fact: Definition phi (alpha beta : T2) : T2 := match beta with zero => [alpha, beta] | [b1, b2] => (match compare alpha b1 with Datatypes.Lt => [b1, b2 ] | _ => [alpha,[b1, b2]] end) | gcons b1 b2 0 (gcons zero zero n zero) => (match compare alpha b1 with Datatypes.Lt => [alpha, (gcons b1 b2 0 (fin n))] | _ => [alpha, (gcons b1 b2 0 (fin (S n)))] end) | any_beta => [alpha, any_beta] 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)