module NS:sig
..end
Sets of pairs Node.t * Zone.t
, with a special semantics for zones:
add n z (add n z' empty)
results in (n, Zone.join z z')
instead
of a set with two different elements. All operations see only instance
of a node, with the join of all possible zones. Conversely, a node should
not be present with an empty zone.
include Datatype.S
val empty : t
val is_empty : t -> bool
val pretty : t Pretty_utils.formatter
val add' : Pdg_aux.node -> t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val remove : PdgTypes.Node.t -> t -> t
val mem : PdgTypes.Node.t -> t -> bool
val mem' : Pdg_aux.node -> t -> bool
val intersects : t -> t -> bool
val for_all' : (Pdg_aux.node -> bool) -> t -> bool
val iter' : (Pdg_aux.node -> unit) -> t -> unit
val fold : (Pdg_aux.node -> 'a -> 'a) -> t -> 'a -> 'a
val filter' : (Pdg_aux.node -> bool) -> t -> t