fact: Fixpoint tree_decode (gt : GenTree.tree unit) := match gt with | GenTree.Leaf tt => BinLeaf | GenTree.Node 2 [:: tl; tr] => BinNode (tree_decode tl) (tree_decode tr) | _ => BinLeaf end.
imports: HB(structures) mathcomp(all_ssreflect) tools combclass ordtype