[Haskell-beginners] Representing a subset relationship