fact: Fixpoint T2_2_term (a:T2) : term := match a with zero => Term ord_zero nil |cons a b 0 zero => Term ord_psi (T2_2_term a :: T2_2_term b ::nil) |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) end.
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