{-# htermination (==) :: (Eq a, Eq k) => (a, k) -> (a, k) -> Bool #-}