Ltac inv H := (apply join_YES_pfullshare1 in H || apply join_YES_pfullshare2 in H || idtac);
                  (inversion H; clear H; subst).Definition empty_rmap' : rmap'.Definition empty_rmap (n:nat) : rmap := R.squash (n, empty_rmap').

Lemma level_make_rmap: forall f V lev H, @level rmap _ (proj1_sig (make_rmap f V lev H)) = lev.