deleteMax :: Ord a => Set a -> Set a
deleteMax = \set -> (Set.delete (Set.findMax set) set)
deleteMax :: Ord a => Set a -> Set a
deleteMax = \set -> (Set.delete (Set.findMax set) set)
deleteMax = \set -> (Set.delete (Set.findMax set) set)