Definition initial_mem (m: mem) lev (IOK: initial_rmap_ok m lev) : juicy_mem.Definition juicy_mem_level (j: juicy_mem) (lev: nat) :=
  level (m_phi j) = lev.

(* Specifications: *)
Lemma initial_mem_level: forall lev m j IOK, j = initial_mem m lev IOK -> juicy_mem_level j (level lev).
Lemma initial_mem_all_VALs: forall lev m j IOK, j = initial_mem m lev IOK -> all_VALs (m_phi j).
Lemma perm_mem_access: forall m b ofs p, perm m b ofs Cur p -> exists p', (perm_order p' p /\ access_at m (b, ofs) Cur = Some p').