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