proposition: Lemma is_limit_not_succ: forall alpha, is_limit alpha -> ~ is_successor alpha.
proof: Proof. induction 1. red;inversion 1. subst alpha;subst beta. case H;intro;lt_clean. inversion H8. red;inversion 1. subst gamma. case zero_not_lim;auto. case IHis_limit. 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