ADASDDA

--b)
min_tree :: Tree a -> Int
min_tree Empty = 0
min_tree (Node _ l r) = 1 + min (min_tree l) (min_tree r)

--Funkcje uzyte z poprzednich zadań
--Wywołanie np.
--max_tree tree_a
--min_tree tree_a