RosettaCodeData/Task/Test-integerness/Haskell/test-integerness-5.hs

instance (Eq a, Num a, ContainsInteger a) => ContainsInteger (Complex a) where
  isInteger z = isInteger (realPart z) && (imagPart z == 0)