module As_univ:sig..end
See http://mlton.org/UniversalType
type t
val create : unit -> ('a -> t) * (t -> 'a option)create () returns a function to inject and a function to project a
value from a given type in to/from a universal value.