5 lines
162 B
Haskell
5 lines
162 B
Haskell
{-# LANGUAGE Safe #-}
|
|
module Test.QuickCheck.Isomorphic (isomorphic) where
|
|
|
|
isomorphic :: Eq a => (t -> a) -> (t -> a) -> t -> Bool
|
|
isomorphic f g x = f x == g x
|