--------------------------------------------------------------

findMin, findMax :: Ord k => Set k -> Maybe k
findMin s = T23.minimum s >>= return . fst


findMin, findMax :: Ord k => Set k -> Maybe k
findMin s = T23.minimum s >>= return . fst
findMin s = T23.minimum s >>= return . fst