module type S = Comparable_intf.Sinclude Comparable_intf.S_common
module Map:Core_map.Swith type Key.t = twith type Key.comparator_witness = comparator_witness
module Set:Core_set.Swith type Elt.t = twith type Elt.comparator_witness = comparator_witness