module type S_with_key_set = sig .. end
sig
end
include Asetmap.Map.S
type key_set
val dom : 'a t -> key_set
'a t -> key_set
dom m
m