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