type constructor_description = {cstr_name : string;cstr_res : Types.type_expr;cstr_existentials : Types.type_expr list;cstr_args : Types.type_expr list;cstr_arity : int;cstr_tag : constructor_tag;cstr_consts : int;cstr_nonconsts : int;cstr_generalized : bool;cstr_private : Asttypes.private_flag;cstr_loc : Location.t;cstr_attributes : Parsetree.attributes;cstr_inlined : Types.type_declaration option;cstr_uid : Types.Uid.t;
}and constructor_tag = | Cstr_constant of int| Cstr_block of int| Cstr_unboxed| Cstr_extension of Path.t * bool
val equal_constr : constructor_description -> constructor_description -> boolval may_equal_constr :
constructor_description ->
constructor_description ->
boolval cstr_res_type_path : constructor_description -> Path.ttype label_description = {lbl_name : string;lbl_res : Types.type_expr;lbl_arg : Types.type_expr;lbl_mut : Asttypes.mutable_flag;lbl_atomic : Asttypes.atomic_flag;lbl_pos : int;lbl_all : label_description array;lbl_repres : Types.record_representation;lbl_private : Asttypes.private_flag;lbl_loc : Location.t;lbl_attributes : Parsetree.attributes;lbl_uid : Types.Uid.t;
}val lbl_res_type_path : label_description -> Path.t