fact: Fixpoint T1_to_T2 (alpha :T1) : T2 := match alpha with | T1.zero => zero | T1.cons a n b => gcons zero (T1_to_T2 a) n (T1_to_T2 b) end.
imports: Coq(Arith Compare_dec Relations Wellfounded Lia) hydras(More_Arith Restriction T1 OrdNotations Compat815)