proposition: Lemma zero_lt_succ : forall alpha, zero < succ alpha.
proof: Proof. destruct alpha;simpl. auto with T2. case alpha1;case alpha2;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