sig
  module Signature_names :
    sig
      type t
      val simplify :
        Env.t ->
        Typemod.Signature_names.t -> Types.signature -> Types.signature
    end
  val type_module : Env.t -> Parsetree.module_expr -> Typedtree.module_expr
  val type_structure :
    Env.t ->
    Parsetree.structure ->
    Location.t ->
    Typedtree.structure * Types.signature * Typemod.Signature_names.t * Env.t
  val type_toplevel_phrase :
    Env.t ->
    Parsetree.structure ->
    Typedtree.structure * Types.signature * Typemod.Signature_names.t * Env.t
  val type_implementation :
    string ->
    string ->
    string ->
    Env.t ->
    Parsetree.structure -> Typedtree.structure * Typedtree.module_coercion
  val type_interface :
    string -> Env.t -> Parsetree.signature -> Typedtree.signature
  val transl_signature : Env.t -> Parsetree.signature -> Typedtree.signature
  val check_nongen_schemes : Env.t -> Types.signature -> unit
  val modtype_of_package :
    Env.t ->
    Location.t ->
    Path.t -> Longident.t list -> Types.type_expr list -> Types.module_type
  val path_of_module : Typedtree.module_expr -> Path.t option
  val save_signature :
    string ->
    Typedtree.signature ->
    string -> string -> Env.t -> Cmi_format.cmi_infos -> unit
  val package_units :
    Env.t -> string list -> string -> string -> Typedtree.module_coercion
  val initial_env :
    loc:Location.t ->
    safe_string:bool ->
    initially_opened_module:string option ->
    open_implicit_modules:string list -> Env.t
  module Sig_component_kind :
    sig
      type t =
          Value
        | Type
        | Module
        | Module_type
        | Extension_constructor
        | Class
        | Class_type
      val to_string : Typemod.Sig_component_kind.t -> string
    end
  type hiding_error =
      Illegal_shadowing of { shadowed_item_id : Ident.t;
        shadowed_item_kind : Typemod.Sig_component_kind.t;
        shadowed_item_loc : Location.t; shadower_id : Ident.t;
        user_id : Ident.t; user_kind : Typemod.Sig_component_kind.t;
        user_loc : Location.t;
      }
    | Appears_in_signature of { opened_item_id : Ident.t;
        opened_item_kind : Typemod.Sig_component_kind.t; user_id : Ident.t;
        user_kind : Typemod.Sig_component_kind.t; user_loc : Location.t;
      }
  type error =
      Cannot_apply of Types.module_type
    | Not_included of Includemod.error list
    | Cannot_eliminate_dependency of Types.module_type
    | Signature_expected
    | Structure_expected of Types.module_type
    | With_no_component of Longident.t
    | With_mismatch of Longident.t * Includemod.error list
    | With_makes_applicative_functor_ill_typed of Longident.t * Path.t *
        Includemod.error list
    | With_changes_module_alias of Longident.t * Ident.t * Path.t
    | With_cannot_remove_constrained_type
    | Repeated_name of Typemod.Sig_component_kind.t * string
    | Non_generalizable of Types.type_expr
    | Non_generalizable_class of Ident.t * Types.class_declaration
    | Non_generalizable_module of Types.module_type
    | Implementation_is_required of string
    | Interface_not_compiled of string
    | Not_allowed_in_functor_body
    | Not_a_packed_module of Types.type_expr
    | Incomplete_packed_module of Types.type_expr
    | Scoping_pack of Longident.t * Types.type_expr
    | Recursive_module_require_explicit_type
    | Apply_generative
    | Cannot_scrape_alias of Path.t
    | Badly_formed_signature of string * Typedecl.error
    | Cannot_hide_id of Typemod.hiding_error
    | Invalid_type_subst_rhs
  exception Error of Location.t * Env.t * Typemod.error
  exception Error_forward of Location.error
  val report_error :
    Env.t -> Stdlib.Format.formatter -> Typemod.error -> unit
  module ImplementationHooks :
    sig
      type t = Typedtree.structure * Typedtree.module_coercion
      val add_hook : string -> (Misc.hook_info -> t -> t) -> unit
      val apply_hooks : Misc.hook_info -> t -> t
    end
  module InterfaceHooks :
    sig
      type t = Typedtree.signature
      val add_hook : string -> (Misc.hook_info -> t -> t) -> unit
      val apply_hooks : Misc.hook_info -> t -> t
    end
end