ghc-exactprint-0.5.0.0: tests/examples/ghc8/Q.hs

module Q where

import qualified Map
import Map(Map)

mymember :: Int -> Map Int a -> Bool
mymember k m = Map.member k m || Map.member (k + 1) m