Multi.Key
type 'a t
val create : name:Base.string -> ('a -> Base.Sexp.t) -> 'a t
val id : 'a t -> 'a Base.list Base.Type_equal.Id.t