Ltac inj_pair_tac :=
 match goal with H: (@existT ?U ?P ?p ?x = @existT _ _ _ ?y) |- _ =>
   generalize (@inj_pair2 U P p x y H); clear H; intro; try (subst x || subst y)
 end.

Lemma level_later_fash: forall m m': rmap, (level m > level m')%nat -> exists m1, laterR m m1 /\ level m1 = level m'.