Module `Tree.Named`

type nonrec ('a, 'cmp) t = { tree : ('a, 'cmp) t; name : string; }

val is_subset : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> of_:('a, 'cmp) t -> unit Or_error.t
val equal : comparator:('a, 'cmp) Comparator.t -> ('a, 'cmp) t -> ('a, 'cmp) t -> unit Or_error.t