module Data.Bool.Tools (
  (&&&),
  (|||)
) where

import Data.Function.Tools (apply2way)

(&&&), (|||) :: (a -> Bool) -> (a -> Bool) -> a -> Bool
(&&&) = apply2way (&&)
(|||) = apply2way (||)