(* Typechecking of type expressions for the core language *)

val transl_simple_type:
        Env.t -> bool -> Parsetree.core_type -> Typedtree.type_expr
val transl_type_scheme:
        Env.t -> Parsetree.core_type -> Typedtree.type_expr
val reset_type_variables: unit -> unit
val enter_type_variable: string -> Typedtree.type_expr

exception Already_bound

type error =
    Unbound_type_variable of string
  | Unbound_type_constructor of Longident.t
  | Type_arity_mismatch of Longident.t * int * int

exception Error of Location.t * error

val report_error: error -> unit