val is_subset : ('a, 'cmp) named ‑> of_:('a, 'cmp) named ‑> unit Or_error.t
val equal : ('a, 'cmp) named ‑> ('a, 'cmp) named ‑> unit Or_error.t