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
{-
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