Data MyNum = MyInteger Integer
           | MyDouble Double
           | MyRational Rational


isMyDouble :: MyNum -> Bool
isMyDouble (MyDouble _) = True
isMyDouble _             = False

-- intended use:
-- any isMyDouble [MyInteger 1, MyInteger 2, MyDouble 3] == True