{-# htermination elemFM :: (Ord a, Ord k) => (a,k) -> FiniteMap (a,k) b -> Bool #-} import FiniteMap