{--------------------------------------------------------------------
  Minimal, Maximal
--------------------------------------------------------------------}
-- | /O(log n)/. The minimal element of a set.
findMin :: Set a -> a
findMin (Bin _ x Tip _) = x
findMin :: Set a -> a
findMin (Bin _ x Tip _) = x
findMin (Bin _ x Tip _) = x