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

Lemma make_rmap'':
forall n (f: AV.address -> resource) g,
exists phi:rmap, level phi = n /\ resource_at phi = resource_fmap (approx n) (approx n) oo f /\
ghost_of phi = ghost_fmap (approx n) (approx n) g.