fact: Fixpoint T1_2_term (a:T1) : term := match a with zero => Term ord_zero nil |cons a n b => Term ord_cons (T1_2_term a :: nat_2_term n ::T1_2_term b::nil) end.
imports: Arith Omega Compare_dec Relations Wellfounded Tools More_nat Wf_nat AccP not_decreasing ArithRing term rpo List