{-# htermination elemFM :: Ordering -> FiniteMap Ordering b -> Bool #-}
import FiniteMap