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