SOE ex.9.2

{-
flip :: (a -> b -> c) -> b -> a -> c
flip f x y = f y x
-}

because:
flip (flip f) x y
<=> (flip f) y x
<=> f x y

so,
flip (flip f) == f

Leave a Reply