Module R := R.
Hint Resolve (@subp_sepcon _ Join_rmap Perm_rmap Sep_rmap): contractive.
unfold identity_rmap; intros.
rewrite R.unsquash_squash.
simpl.
apply extensionality; intro l.
unfold compose; simpl; auto.
Qed.

Lemma ageN_level : forall n (phi1 phi2 : rmap),
ageN n phi1 = Some phi2 -> level phi1 = (n + (level phi2))%nat.