Module R := R0.

Lemma make_rmap (f: AV.address -> resource) g (n: nat) (H: resource_fmap (approx n) (approx n) oo f = f) (HG: ghost_fmap (approx n) (approx n) g = g) : {phi: rmap | level phi = n /\ resource_at phi = f /\ ghost_of phi = g}.