proposition: Lemma pred_of_cons' : forall a b n , zero < a \/ zero < b -> pred (cons a b n zero) = None.
proof: Proof. intros a b n H; rewrite (pred_of_cons n zero H). simpl;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