{-# htermination intersectFM_C :: (b1 -> b2 -> b3) -> FiniteMap Bool b1 -> FiniteMap Bool b2 -> FiniteMap Bool b3 #-} import FiniteMap