Definition inflate_initial_mem (w: rmap): rmap :=
proj1_sig (make_rmap (inflate_initial_mem' w) (ghost_of w) _
(inflate_initial_mem'_fmap w) (ghost_of_approx w)).

Lemma inflate_initial_mem_level: forall w, level (inflate_initial_mem w) = level w.
Definition all_VALs (phi: rmap) :=
forall l, match phi @ l with
| YES _ _ k _ => isVAL k
| _ => True
end.