diff options
Diffstat (limited to 'pretyping/pretype_errors.mli')
-rw-r--r-- | pretyping/pretype_errors.mli | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/pretyping/pretype_errors.mli b/pretyping/pretype_errors.mli index f8e39f316..e816463e7 100644 --- a/pretyping/pretype_errors.mli +++ b/pretyping/pretype_errors.mli @@ -24,6 +24,10 @@ type unification_error = | InstanceNotSameType of existential_key * env * types * types | UnifUnivInconsistency of Univ.univ_inconsistency +type position =(Id.t * Locus.hyp_location_flag) option + +type subterm_unification_error = bool * (position * int * constr) * (position * int * constr) * (constr * constr * unification_error) option + type pretype_error = (** Old Case *) | CantFindCaseType of constr @@ -47,7 +51,7 @@ type pretype_error = | UnexpectedType of constr * constr | NotProduct of constr | TypingError of type_error - | CannotUnifyOccurrences of Termops.subterm_unification_error + | CannotUnifyOccurrences of subterm_unification_error exception PretypeError of env * Evd.evar_map * pretype_error |