{-# htermination plusFM_C :: (b -> b -> b) -> FiniteMap () b -> FiniteMap () b -> FiniteMap () b #-} import FiniteMap