class Eq a where (==) :: a -> a -> Bool
wenn a in Eq, dann [a] in Eq:
instance Eq a => Eq [a] where [] == [] = True (x : xs) == (y : ys) = (x == y) && ( xs == ys ) _ == _ = False