[Haskell-cafe] Class invariants/laws