let nset_map f set = IntMap.map (fun _ n -> f n) set