module TyVarEnv : sig ... end
val type_open : (?used_slot:bool ref -> Asttypes.override_flag -> Env.t -> Location.t -> Longident.t Asttypes.loc -> Path.t * Env.t) ref
val valid_tyvar_name : string -> bool
val transl_simple_type : Env.t -> ?univars:TyVarEnv.poly_univars -> closed:bool -> Parsetree.core_type -> Typedtree.core_type
val transl_simple_type_univars : Env.t -> Parsetree.core_type -> Typedtree.core_type
val transl_simple_type_delayed : Env.t -> Parsetree.core_type -> Typedtree.core_type * Types.type_expr * (unit -> unit)
val transl_type_scheme : Env.t -> Parsetree.core_type -> Typedtree.core_type
val transl_type_param : Env.t -> Parsetree.core_type -> Typedtree.core_type
exception Already_bound
type error =
  1. | Unbound_type_variable of string * string list
  2. | No_type_wildcards
  3. | Undefined_type_constructor of Path.t
  4. | Type_arity_mismatch of Longident.t * int * int
  5. | Bound_type_variable of string
  6. | Recursive_type
  7. | Type_mismatch of Errortrace.unification_error
  8. | Alias_type_mismatch of Errortrace.unification_error
  9. | Present_has_conjunction of string
  10. | Present_has_no_type of string
  11. | Constructor_mismatch of Types.type_expr * Types.type_expr
  12. | Not_a_variant of Types.type_expr
  13. | Variant_tags of string * string
  14. | Invalid_variable_name of string
  15. | Cannot_quantify of string * Types.type_expr
  16. | Multiple_constraints_on_type of Longident.t
  17. | Method_mismatch of string * Types.type_expr * Types.type_expr
  18. | Opened_object of Path.t option
  19. | Not_an_object of Types.type_expr
exception Error of Location.t * Env.t * error
val report_error : Env.t -> Format.formatter -> error -> unit
val transl_modtype_longident : (Location.t -> Env.t -> Longident.t -> Path.t) ref
val check_package_with_type_constraints : (Location.t -> Env.t -> Types.module_type -> (Longident.t Asttypes.loc * Typedtree.core_type) list -> Types.module_type) ref