Tree (base.Base.Set.Using_comparator.Tree)

type ('a, 'cmp) t

val sexp_of_t : 
  ('a -> Sexplib0.Sexp.t) ->
  ('cmp -> Sexplib0.Sexp.t) ->
  ('a, 'cmp) t ->
  Sexplib0.Sexp.t

val t_of_sexp_direct : 
  comparator:('elt, 'cmp) Base__.Comparator.t ->
  (Sexplib0.Sexp.t -> 'elt) ->
  Sexplib0.Sexp.t ->
  ('elt, 'cmp) t

val length : ('a, 'b) t -> int

val is_empty : ('a, 'b) t -> bool

val iter : ('a, 'b) t -> f:('a -> unit) -> unit

val fold : ('a, 'b) t -> init:'acc -> f:('acc -> 'a -> 'acc) -> 'acc

val fold_result : 
  ('a, 'b) t ->
  init:'acc ->
  f:('acc -> 'a -> ('acc, 'e) result) ->
  ('acc, 'e) result

val exists : ('a, 'b) t -> f:('a -> bool) -> bool

val for_all : ('a, 'b) t -> f:('a -> bool) -> bool

val count : ('a, 'b) t -> f:('a -> bool) -> int

val sum : 
  (module Base__Container_intf.Summable with type t = 'sum) ->
  ('a, 'b) t ->
  f:('a -> 'sum) ->
  'sum

val find : ('a, 'b) t -> f:('a -> bool) -> 'a option

val find_map : ('a, 'c) t -> f:('a -> 'b option) -> 'b option

val to_list : ('a, 'b) t -> 'a list

val to_array : ('a, 'b) t -> 'a array

val invariants : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  bool

val mem : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  'a ->
  bool

val add : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  'a ->
  ('a, 'cmp) t

val remove : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  'a ->
  ('a, 'cmp) t

val union : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t

val inter : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t

val diff : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t

val symmetric_diff : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t ->
  ('a, 'a) Base__.Either0.t Base__.Sequence.t

val compare_direct : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t ->
  int

val equal : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t ->
  bool

val is_subset : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  of_:('a, 'cmp) t ->
  bool

val are_disjoint : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t ->
  bool

module Named : sig ... end

val fold_until : 
  ('a, 'b) t ->
  init:'acc ->
  f:('acc -> 'a -> ('acc, 'final) Base__.Container.Continue_or_stop.t) ->
  finish:('acc -> 'final) ->
  'final

val fold_right : ('a, 'b) t -> init:'acc -> f:('a -> 'acc -> 'acc) -> 'acc

val iter2 : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t ->
  f:([ `Both of 'a * 'a | `Left of 'a | `Right of 'a ] -> unit) ->
  unit

val filter : ('a, 'cmp) t -> f:('a -> bool) -> ('a, 'cmp) t

val partition_tf : 
  ('a, 'cmp) t ->
  f:('a -> bool) ->
  ('a, 'cmp) t * ('a, 'cmp) t

val elements : ('a, 'b) t -> 'a list

val min_elt : ('a, 'b) t -> 'a option

val min_elt_exn : ('a, 'b) t -> 'a

val max_elt : ('a, 'b) t -> 'a option

val max_elt_exn : ('a, 'b) t -> 'a

val choose : ('a, 'b) t -> 'a option

val choose_exn : ('a, 'b) t -> 'a

val split : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  'a ->
  ('a, 'cmp) t * 'a option * ('a, 'cmp) t

val split_le_gt : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  'a ->
  ('a, 'cmp) t * ('a, 'cmp) t

val split_lt_ge : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  'a ->
  ('a, 'cmp) t * ('a, 'cmp) t

val group_by : ('a, 'cmp) t -> equiv:('a -> 'a -> bool) -> ('a, 'cmp) t list

val find_exn : ('a, 'b) t -> f:('a -> bool) -> 'a

val nth : ('a, 'b) t -> int -> 'a option

val remove_index : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  int ->
  ('a, 'cmp) t

val to_tree : ('a, 'cmp) t -> ('a, 'cmp) t

val to_sequence : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ?order:[ `Decreasing | `Increasing ] ->
  ?greater_or_equal_to:'a ->
  ?less_or_equal_to:'a ->
  ('a, 'cmp) t ->
  'a Base__.Sequence.t

val binary_search : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  compare:('a -> 'key -> int) ->
  [ `First_equal_to
  | `First_greater_than_or_equal_to
  | `First_strictly_greater_than
  | `Last_equal_to
  | `Last_less_than_or_equal_to
  | `Last_strictly_less_than ] ->
  'key ->
  'a option

val binary_search_segmented : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  segment_of:('a -> [ `Left | `Right ]) ->
  [ `First_on_right | `Last_on_left ] ->
  'a option

val merge_to_sequence : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ?order:[ `Decreasing | `Increasing ] ->
  ?greater_or_equal_to:'a ->
  ?less_or_equal_to:'a ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t ->
  ('a, 'a) Base__Set_intf.Merge_to_sequence_element.t Base__.Sequence.t

val empty : comparator:('a, 'cmp) Base__.Comparator.t -> ('a, 'cmp) t

val singleton : comparator:('a, 'cmp) Base__.Comparator.t -> 'a -> ('a, 'cmp) t

val union_list : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t list ->
  ('a, 'cmp) t

val of_list : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  'a list ->
  ('a, 'cmp) t

val of_sequence : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  'a Base__.Sequence.t ->
  ('a, 'cmp) t

val of_array : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  'a array ->
  ('a, 'cmp) t

val of_sorted_array : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  'a array ->
  (('a, 'cmp) t, Base__.Info.t) result

val of_sorted_array_unchecked : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  'a array ->
  ('a, 'cmp) t

val of_increasing_iterator_unchecked : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  len:int ->
  f:(int -> 'a) ->
  ('a, 'cmp) t

val stable_dedup_list : 
  comparator:('a, 'b) Base__.Comparator.t ->
  'a list ->
  'a list

val map : 
  comparator:('b, 'cmp) Base__.Comparator.t ->
  ('a, 'c) t ->
  f:('a -> 'b) ->
  ('b, 'cmp) t

val filter_map : 
  comparator:('b, 'cmp) Base__.Comparator.t ->
  ('a, 'c) t ->
  f:('a -> 'b option) ->
  ('b, 'cmp) t

val of_tree : 
  comparator:('a, 'cmp) Base__.Comparator.t ->
  ('a, 'cmp) t ->
  ('a, 'cmp) t

val empty_without_value_restriction : ('a, 'b) t