fact: Fixpoint Tree2T1 (t: GenTree.tree nat): option T1 := match t with | GenTree.Leaf 0 => Some zero | GenTree.Node n [:: t1; t2] => match Tree2T1 t1, Tree2T1 t2 with | Some b, Some c => Some (cons b n c) | _, _ => None end | _ => None end.
imports: mathcomp(all_ssreflect zify) Coq(Logic.Eqdep_dec) hydras(DecPreOrder ON_Generic T1 E0) gaia_hydras(T1Bridge)