module Incubator:sig..end
val op_map : ('a -> 'b) -> 'a BatSet.t -> 'b BatSet.tmap, but f must be order preserving;
i.e. if a < b then f a < f b. This allows the tree structure
to be maintained internally, resulting in O(n) work instead of O(n
log n).