jon.recoil.org

Module Make.Set

include Flambda2_algorithms.Container_types.Set with type elt = int and type t = Flambda2_algorithms.Patricia_tree.set
type elt = int
val empty : Set.t
val is_empty : Set.t -> bool
val mem : Set.elt -> Set.t -> bool
val add : Set.elt -> Set.t -> Set.t
val singleton : Set.elt -> Set.t
val remove : Set.elt -> Set.t -> Set.t
val union : Set.t -> Set.t -> Set.t
val union_sharing : Set.t -> Set.t -> Set.t

union_sharing s1 s2 is union s1 s2, with maximal sharing of the result with s1.

val union_shared : Set.t -> Set.t -> Set.t

union_shared s1 s2 is union_sharing s1 s2, with a fast path for shared subsets of s1 and s2.

val inter : Set.t -> Set.t -> Set.t
val disjoint : Set.t -> Set.t -> bool
val diff : Set.t -> Set.t -> Set.t
val diff_sharing : Set.t -> Set.t -> Set.t

diff_sharing s1 s2 is diff s1 s2, with maximal sharing of the result with s1.

val diff_shared : Set.t -> Set.t -> Set.t

diff_shared s1 s2 is diff_sharing s1 s2, with a fast path for shared subsets of s1 and s2.

val compare : Set.t -> Set.t -> int
val equal : Set.t -> Set.t -> bool
val subset : Set.t -> Set.t -> bool
val iter : (Set.elt -> unit) -> Set.t -> unit
val map : (Set.elt -> Set.elt) -> Set.t -> Set.t
val fold : (Set.elt -> 'a -> 'a) -> Set.t -> 'a -> 'a
val for_all : (Set.elt -> bool) -> Set.t -> bool
val exists : (Set.elt -> bool) -> Set.t -> bool
val filter : (Set.elt -> bool) -> Set.t -> Set.t
val filter_map : (Set.elt -> Set.elt option) -> Set.t -> Set.t
val partition : (Set.elt -> bool) -> Set.t -> Set.t * Set.t
val cardinal : Set.t -> int
val elements : Set.t -> Set.elt list
val min_elt : Set.t -> Set.elt
val min_elt_opt : Set.t -> Set.elt option
val max_elt : Set.t -> Set.elt
val max_elt_opt : Set.t -> Set.elt option
val choose : Set.t -> Set.elt
val choose_opt : Set.t -> Set.elt option
val split : Set.elt -> Set.t -> Set.t * bool * Set.t
val find : Set.elt -> Set.t -> Set.elt
val of_list : Set.elt list -> Set.t
val to_seq : Set.t -> Set.elt Stdlib.Seq.t
val print : Stdlib.Format.formatter -> Set.t -> unit
val to_string : Set.t -> string
val union_list : Set.t list -> Set.t
val get_singleton : Set.t -> Set.elt option
val valid : Set.t -> bool

For testing; should always return true