sig
type
'
a t
val
create :
string
->
(
'
a
->
Std_internal
.
Sexp
.t)
->
'
a
Univ_map
.
Multi
.
Key
.t
end