type 'a t
=
{
from : 'a;
to_ : 'a;
}
include sig ... end
val sexp_of_t : ('a ‑> Sexplib.Sexp.t) ‑> 'a t ‑> Sexplib.Sexp.t