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