proposition: Lemma lt_not_gt : forall a b, a t2< b -> ~ (b t2< a).
proof: Proof. intros a b H H0. case (lt_irr (alpha := a));auto. apply lt_trans with b;auto. 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)