[Haskell-cafe] Type-class predicates head-normal forms