Haskell idiom for predicate lifting

preds.txt

Suppose I want to use an argument twice, as for example in the expression:
(\x -> (pred1 x) and (pred2 x))

Is there a shorter way of doing this?


liftA2 (&&) pred1 pred2

You can be cute and use the applicative instance on functions: 
(&&) <$> pred1 <*> pred2
I would recommend against such cuteness however and just write out the arguments.

And here's the arrow implementation
(pred1 &&& pred2) >>> uncurry (&&)
You need Data.Tuple (for uncurry) and Data.Arrow.