{-# htermination minusFM :: FiniteMap Ordering b1 -> FiniteMap Ordering b2 -> FiniteMap Ordering b1 #-}
import FiniteMap