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

Lemma resources_same_level:
forall f phi,
(forall l : AV.address, join_sub (f l) (phi @ l)) ->
resource_fmap (approx (level phi)) (approx (level phi)) oo f = f.