# Module type Core_set_intf.Accessors2

    module type Accessors2 = sig .. end

    include Container.S1_phantom_invariant

    type ('a, 'cmp) tree

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

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

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

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

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

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

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

    val symmetric_diff : ('a, 'cmp) t -> ('a, 'cmp) t -> ('a, 'a) Either.t Sequence.t

    val compare_direct : ('a, 'cmp) t -> ('a, 'cmp) t -> int

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

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

    val fold_until : ('a, 'c) t ->
           init:'b -> f:('b -> 'a -> [ `Continue of 'b | `Stop of 'b ]) -> 'b

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

    val iter2 : ('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 : ('a, 'cmp) t -> 'a -> ('a, 'cmp) t * 'a option * ('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 find_index : ('a, 'b) t -> int -> 'a option

    val remove_index : ('a, 'cmp) t -> int -> ('a, 'cmp) t

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

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

    val to_map : ('a, 'cmp) t -> f:('a -> 'b) -> ('a, 'b, 'cmp) Map.t