Instance juicy_mem_ageable: ageable juicy_mem :=
  mkAgeable _ (fun j => level (m_phi j)) age1_juicy_mem juicy_mem_ageable_facts.

(* Specifications: *)
Lemma level_juice_level_phi: forall (j: juicy_mem), level j = level (m_phi j).
Lemma juicy_mem_ext: forall j1 j2, m_dry j1 = m_dry j2 -> m_phi j1 = m_phi j2 -> j1=j2.
Lemma unage_writable: forall (phi phi': rmap) loc, age phi phi' -> writable loc phi' -> writable loc phi.
Lemma unage_readable: forall (phi phi': rmap) loc, age phi phi' -> readable loc phi' -> readable loc phi.