proposition: Lemma lt_epsilon0_ok : forall alpha, nf alpha -> lt_epsilon0 alpha -> alpha < epsilon0.
proof: Proof. induction 1;intros; compute;auto with T2. inversion_clear H1. constructor 2. auto with T2. apply IHnf2;auto with T2. inversion_clear H3. constructor 2;auto with T2. 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