sig
  type t = extension_constructor
  val of_val : 'a -> Obj.Extension_constructor.t
  val name : Obj.Extension_constructor.t -> string
  val id : Obj.Extension_constructor.t -> int
end