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