type ('a, 'b) t
include sig ... end
val compare : ('a ‑> 'a ‑> int) ‑> ('b ‑> 'b ‑> int) ‑> ('a, 'b) t ‑> ('a, 'b) t ‑> int
val sexp_of_t : ('a ‑> Sexp.t) ‑> ('b ‑> Sexp.t) ‑> ('a, 'b) t ‑> Sexp.t