fact: Definition Makeitree makeitree m := match m with | itree_node t1 t2 => product (makeitree t1) (makeitree t2) | itree_leaf n => itree_leaf (S n) end.
imports: TLC(LibTactics LibLogic LibReflect LibFun LibEpsilon LibList LibInt LibNat LibProd LibSum LibRelation LibWf LibFix LibStream) ZifyNat TLC.LibNat