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

Lemma rmap_ext: forall phi1 phi2,
level phi1 = level phi2 ->
(forall l, phi1@l = phi2@l) ->
ghost_of phi1 = ghost_of phi2 ->
phi1=phi2.