module type MapSet_Lattice_with_cardinality =sig..end
include Map_lattice.Lattice_with_cardinality
type key
type v
val find_lonely_binding : t ->
key *
vt is a singleton map binding k to v, and if
cardinal_zero_or_one v holds, returns the pair (k,v).Not_found otherwise.