proposition: Lemma horpo_RC_type_preserving : forall M N, M >>= N -> type M = type N.
proof: Proof. intros. inversion H. apply horpo_type_preserving; trivial. trivial. Qed.
imports: CoLoR(RelExtras ListExtras RelUtil Terms MultisetOrder PairLex MultisetList MultisetTheory AccUtil LogicUtil) Coq(Morphisms Basics)