    module Data.Eq.HT where

    import Data.Function.HT (compose2, )

    {-# INLINE equating #-}
    equating :: Eq b => (a -> b) -> a -> a -> Bool
    equating :: forall b a. Eq b => (a -> b) -> a -> a -> Bool
    equating = (b -> b -> Bool) -> (a -> b) -> a -> a -> Bool
    forall b c a. (b -> b -> c) -> (a -> b) -> a -> a -> c
    compose2 b -> b -> Bool
    forall a. Eq a => a -> a -> Bool
    (==)