Module Map.With_comparator

type ('key, 'cmp, 'z) t = comparator:('key, 'cmp) Base.Comparator.t -> 'z