[Haskell-cafe] Testing nested implication properties with QuickCheck?