proposition: Lemma lt_irr : forall alpha, ~ alpha t2< alpha.
proof: Proof. induction alpha. - apply not_lt_zero. - red; inversion_clear 1. + case (IHalpha1 H0). + case (IHalpha2 H0). + case (IHalpha1 H0). + case (IHalpha1 H0). + case (Nat.lt_irrefl _ H0). + case IHalpha3; 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)