fact: Definition Treeincr treeincr t := match t with | leaf n => leaf (S n) | node l => node (LibList.map treeincr l) end.
imports: TLC(LibTactics LibLogic LibReflect LibFun LibEpsilon LibList LibInt LibNat LibProd LibSum LibRelation LibWf LibFix LibStream) ZifyNat