proposition: Lemma cons_rw : forall a b n c, (n=0 /\ c=zero /\ (T2_2_term (cons a b n c)=(Term ord_psi ((T2_2_term a)::(T2_2_term b)::nil)))) \/ (T2_2_term (cons a b n c)= Term ord_cons ((Term ord_psi ((T2_2_term a)::(T2_2_term b)::nil)) ::(nat_2_term n)::(T2_2_term c)::nil)).
proof: Proof. destruct n. destruct c. left;simpl;auto with T2. right;simpl;auto with T2. right;simpl;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