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