(* given the reference of an inductive type, returns the i-th contructor *)
val mk_constructor: int -> reference -> reference
(* given the reference of an inductive type, returns the i-th contructor *)
val mk_constructor: int -> reference -> reference