[Haskell-cafe] equational reasoning