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