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

(* Specifications: *)
Lemma approx_p  : forall (p:pred rmap) n w, approx n p w -> p w.
Lemma snd_identity_map : forall n, proj1_sig (snd (R.unsquash (identity_rmap n))) = fun _ => R.NO .
unfold identity_rmap; intros.