Module R := R0.
Hint Resolve (@subp_sepcon _ Join_rmap Perm_rmap Sep_rmap): contractive.

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}.