Typklassen

class Eq a where
  (==), (/=) :: a -> a -> Bool
  a == b = not (a /= b)
  a /= b = not (a == b)