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: Coq(Arith Lia Compare_dec Relations Wellfounded Wf_nat List Bool Eqdep_dec Ensembles ArithRing Logic) hydras(More_Arith Restriction DecPreOrder rpo.term rpo.rpo Epsilon0.T1)