proposition: Lemma lt_irr : forall alpha, ~ alpha < 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 (Arith.Lt.lt_irrefl _ H0). case IHalpha3; auto. Qed.
imports: EPSILON0 Arith List Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat Gamma0_prelude Gamma0_length term rpo