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