type 'a t
val create : name:Core_kernel__.Import.string ‑> ('a ‑> Sexp.t) ‑> 'a t
val id : 'a t ‑> 'a Core_kernel__.Import.list Type_equal.Id.t