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