-- | /O(1)/ test if the set's size is one
isSingleton :: Set.Set a -> Bool
isSingleton s = Set.size s == 1
isSingleton :: Set.Set a -> Bool
isSingleton s = Set.size s == 1
isSingleton s = Set.size s == 1