package ocaml-base-compiler
type 'elt core_diff = ('elt, unit) difftype core_sigitem_symptom = | Value_descriptions of (Types.value_description, Includecore.value_mismatch) diff| Type_declarations of (Types.type_declaration, Includecore.type_mismatch) diff| Extension_constructors of (Types.extension_constructor, Includecore.extension_constructor_mismatch) diff| Class_type_declarations of (Types.class_type_declaration, Ctype.class_match_failure list) diff| Class_declarations of (Types.class_declaration, Ctype.class_match_failure list) diff
type core_module_type_symptom = | Not_an_alias| Not_an_identifier| Incompatible_aliases| Abstract_module_type| Unbound_module_path of Path.t
type module_type_symptom = | Mt_core of core_module_type_symptom| Signature of signature_symptom| Functor of functor_symptom| Invalid_module_alias of Path.t| After_alias_expansion of module_type_diff
and module_type_diff = (Types.module_type, module_type_symptom) diffand ('arg, 'path) functor_param_symptom = | Incompatible_params of 'arg * Types.functor_parameter| Mismatch of module_type_diff
and arg_functor_param_symptom =
(Types.functor_parameter, Ident.t) functor_param_symptomand functor_params_diff =
(Types.functor_parameter list * Types.module_type) core_diffand signature_symptom = {env : Env.t;missings : Types.signature_item list;incompatibles : (Ident.t * sigitem_symptom) list;oks : (int * Typedtree.module_coercion) list;leftovers : (Types.signature_item as 'it * 'it * int) list;(*signature items that could not be compared due to type divergence
*)
}and sigitem_symptom = | Core of core_sigitem_symptom| Module_type_declaration of (Types.modtype_declaration, module_type_declaration_symptom) diff| Module_type of module_type_diff
and module_type_declaration_symptom = | Illegal_permutation of Typedtree.module_coercion| Not_greater_than of module_type_diff| Not_less_than of module_type_diff| Incomparable of {less_than : module_type_diff;greater_than : module_type_diff;
}
type all = | In_Compilation_unit of (string, signature_symptom) diff| In_Signature of signature_symptom| In_Module_type of module_type_diff| In_Module_type_substitution of Ident.t * (Types.module_type, module_type_declaration_symptom) diff| In_Type_declaration of Ident.t * core_sigitem_symptom| In_Expansion of core_module_type_symptom