-- | /O(1)/. The maximal key of the map.
findMax :: IntMap a -> (Key, a)
findMax (IntMap (WordMap Empty)) = error "findMax: empty map has no maximal element"
findMax :: IntMap a -> (Key, a)
findMax (IntMap (WordMap Empty)) = error "findMax: empty map has no maximal element"
findMax (IntMap (WordMap Empty)) = error "findMax: empty map has no maximal element"