Definition rmap_unage (k:rmap) : rmap :=
match unsquash k with
| (n,x) => squash (S n, x)
end.

(* Specifications: *)
Lemma rmap_age1_knot_age1 :
rmap_age1 = @age1 _ K.ageable_knot.
Lemma rmap_age1_eq: @age1 _ ag_rmap = rmap_age1.
Lemma rmap_level_eq: @level rmap ag_rmap = fun x => fst (unsquash x).
forall w w':rmap, necR w w' -> identity w' -> identity w.