{-# htermination minusFM :: FiniteMap (Ratio Int) b1 -> FiniteMap (Ratio Int) b2 -> FiniteMap (Ratio Int) b1 #-}
import FiniteMap