proposition: Lemma compare_rw_eq (alpha beta : T2): alpha = beta -> compare alpha beta = Eq.
proof: Proof. intros; subst beta; generalize (compare_reflect alpha alpha); case (compare alpha alpha); trivial. all : intro H0; destruct (lt_irr H0). Qed.
imports: Coq(Arith List Lia Compare_dec Relations Wellfounded RelationClasses) hydras(Epsilon0) hydras(More_Arith Restriction) hydras(ON_Generic) hydras(rpo.term rpo.rpo) hydras(T2) hydras(Compat815)