module Data.Eq.HT where

import Data.Function.HT (compose2, )

{-# INLINE equating #-}
equating :: Eq b => (a -> b) -> a -> a -> Bool
equating :: (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
(==)