minBy0  ::  Ord a => (Tree -> a) -> [Tree] -> Tree
minBy0  =   minimumBy . comparing
minBy0  ::  Ord a => (Tree -> a) -> [Tree] -> Tree
minBy0  =   minimumBy . comparing
minBy0  =   minimumBy . comparing