fact: Fixpoint T2_2_term (a:T2) : term := match a with zero => Term ord_zero nil |gcons a b 0 zero => Term ord_psi (T2_2_term a :: T2_2_term b ::nil) |gcons 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: Coq(Arith List Lia Compare_dec Relations Wellfounded RelationClasses) hydras(Epsilon0) hydras(More_Arith Restriction) hydras(ON_Generic) hydras(rpo.term rpo.rpo) hydras(T2) hydras(Compat815)