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