{-# htermination delListFromFM :: (Ord a, Ord k) => FiniteMap (a,k) b -> [(a,k)] -> FiniteMap (a,k) b #-} import FiniteMap