fact: Fixpoint t2_length (t:T2) : nat := match t with zero => 0 | gcons a b n v => nbterms (gcons a b n v) + 2 * (Nat.max (t2_length a) (Nat.max (t2_length b) (t2_length_aux v))) end with t2_length_aux (t:T2) : nat := match t with zero => 0 | gcons a b n v => Nat.max (t2_length a) (Nat.max (t2_length b) (t2_length_aux v)) end.
imports: Coq(Arith Compare_dec Relations Wellfounded Lia) hydras(More_Arith Restriction T1 OrdNotations Compat815)