Using_comparator.TreeA Tree.t contains just the tree data structure that a set is based on, without including the comparator. Accordingly, any operation on a Tree.t must also take as an argument the corresponding comparator.
val t_of_sexp_direct : comparator:('elt, 'cmp) Comparator.t -> (Sexp.t -> 'elt) -> Sexp.t -> ('elt, 'cmp) tmodule Named : sig ... endinclude Container.S1_phantom_invariant with type ('a, 'b) t := ('a, 'b) tval length : (_, _) t -> intval is_empty : (_, _) t -> boolval iter : ('a, _) t -> f:('a -> unit) -> unitval fold : ('a, _) t -> init:'accum -> f:('accum -> 'a -> 'accum) -> 'accumfold t ~init ~f returns f (... f (f (f init e1) e2) e3 ...) en, where e1..en are the elements of t.
val fold_result : ('a, _) t -> init:'accum -> f:('accum -> 'a -> ('accum, 'e) Result.t) ->
('accum, 'e) Result.tfold_result t ~init ~f is a short-circuiting version of fold that runs in the Result monad. If f returns an Error _, that value is returned without any additional invocations of f.
val exists : ('a, _) t -> f:('a -> bool) -> boolReturns true if and only if there exists an element for which the provided function evaluates to true. This is a short-circuiting operation.
val for_all : ('a, _) t -> f:('a -> bool) -> boolReturns true if and only if the provided function evaluates to true for all elements. This is a short-circuiting operation.
val count : ('a, _) t -> f:('a -> bool) -> intReturns the number of elements for which the provided function evaluates to true.
val sum : (module Base__Container_intf.Summable with type t = 'sum) -> ('a, _) t -> f:('a -> 'sum) -> 'sumReturns the sum of f i for all i in the container.
val find : ('a, _) t -> f:('a -> bool) -> 'a optionReturns as an option the first element for which f evaluates to true.
val find_map : ('a, _) t -> f:('a -> 'b option) -> 'b optionReturns the first evaluation of f that returns Some, and returns None if there is no such element.
val to_list : ('a, _) t -> 'a listval to_array : ('a, _) t -> 'a arrayval invariants : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> boolval mem : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> 'a -> boolval add : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> 'a -> ('a, 'cmp) tval remove : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> 'a -> ('a, 'cmp) tval union : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> ('a, 'cmp) t -> ('a, 'cmp) tval inter : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> ('a, 'cmp) t -> ('a, 'cmp) tval diff : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> ('a, 'cmp) t -> ('a, 'cmp) tval symmetric_diff : comparator:('a, 'cmp) Comparator.t ->
('a, 'cmp) t -> ('a, 'cmp) t -> ('a, 'a) Either.t Sequence.tval compare_direct : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> ('a, 'cmp) t -> intval equal : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> ('a, 'cmp) t -> boolval is_subset : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> of_:('a, 'cmp) t -> boolval are_disjoint : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> ('a, 'cmp) t -> boolval fold_until : ('a, _) t -> init:'accum -> f:('accum -> 'a -> ('accum, 'final) Base__Set_intf.Continue_or_stop.t) ->
finish:('accum -> 'final) -> 'finalval fold_right : ('a, _) t -> init:'accum -> f:('a -> 'accum -> 'accum) -> 'accumval iter2 : comparator:('a, 'cmp) Comparator.t ->
('a, 'cmp) t -> ('a, 'cmp) t -> f:([ `Left of 'a | `Right of 'a | `Both of 'a * 'a ] -> unit)
-> unitval filter : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> f:('a -> bool) ->
('a, 'cmp) tval partition_tf : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> f:('a -> bool) ->
('a, 'cmp) t * ('a, 'cmp) tval elements : ('a, _) t -> 'a listval min_elt : ('a, _) t -> 'a optionval min_elt_exn : ('a, _) t -> 'aval max_elt : ('a, _) t -> 'a optionval max_elt_exn : ('a, _) t -> 'aval choose : ('a, _) t -> 'a optionval choose_exn : ('a, _) t -> 'aval split : comparator:('a, 'cmp) Comparator.t ->
('a, 'cmp) t -> 'a -> ('a, 'cmp) t * 'a option * ('a, 'cmp) tval group_by : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> equiv:('a -> 'a -> bool) ->
('a, 'cmp) t listval find_exn : ('a, _) t -> f:('a -> bool) -> 'aval nth : ('a, _) t -> int -> 'a optionval remove_index : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> int -> ('a, 'cmp) tval to_sequence : comparator:('a, 'cmp) Comparator.t ->
?order:[ `Increasing | `Decreasing ] -> ?greater_or_equal_to:'a ->
?less_or_equal_to:'a -> ('a, 'cmp) t -> 'a Sequence.tval binary_search : comparator:('a, 'cmp) Comparator.t ->
('a, 'cmp) t -> compare:('a -> 'key -> int) ->
[ `Last_strictly_less_than | `Last_less_than_or_equal_to | `Last_equal_to | `First_equal_to | `First_greater_than_or_equal_to | `First_strictly_greater_than ] -> 'key -> 'a optionval binary_search_segmented : comparator:('a, 'cmp) Comparator.t ->
('a, 'cmp) t -> segment_of:('a -> [ `Left | `Right ]) ->
[ `Last_on_left | `First_on_right ] -> 'a optionval merge_to_sequence : comparator:('a, 'cmp) Comparator.t ->
?order:[ `Increasing | `Decreasing ] -> ?greater_or_equal_to:'a ->
?less_or_equal_to:'a -> ('a, 'cmp) t -> ('a, 'cmp) t -> ('a, 'a) Sequence.Merge_with_duplicates_element.t Sequence.tval empty : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) tval singleton : comparator:('a, 'cmp) Comparator.t -> 'a -> ('a, 'cmp) tval union_list : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t list -> ('a, 'cmp) tval of_list : comparator:('a, 'cmp) Comparator.t -> 'a list -> ('a, 'cmp) tval of_array : comparator:('a, 'cmp) Comparator.t -> 'a array -> ('a, 'cmp) tval of_sorted_array : comparator:('a, 'cmp) Comparator.t -> 'a array -> ('a, 'cmp) t Or_error.tval of_sorted_array_unchecked : comparator:('a, 'cmp) Comparator.t ->
'a array -> ('a, 'cmp) tval of_increasing_iterator_unchecked : comparator:('a, 'cmp) Comparator.t -> len:int ->
f:(int -> 'a) -> ('a, 'cmp) tval stable_dedup_list : comparator:('a, 'cmp) Comparator.t -> 'a list -> 'a listval map : comparator:('b, 'cmp) Comparator.t -> ('a, _) t -> f:('a -> 'b) -> ('b, 'cmp) tval filter_map : comparator:('b, 'cmp) Comparator.t -> ('a, _) t -> f:('a -> 'b option) ->
('b, 'cmp) tval of_tree : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> ('a, 'cmp) tval empty_without_value_restriction : (_, _) t