diff options
| author | Pierre-Marie Pédrot | 2019-02-04 15:18:59 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-02-04 15:18:59 +0100 |
| commit | d5722a22c9ae4dec43f8c444fbebb1b1072fb686 (patch) | |
| tree | 2b1d2af4154149828cf5d69bad83f6549e670853 /pretyping/pretype_errors.ml | |
| parent | 8e73ceb7b4bdb6a17d039b17fd5e44ceffe255a2 (diff) | |
| parent | 30d0b1052b6351a539558ff1fe16e4f8578c03ba (diff) | |
Merge PR #9144: Fixes #4633: clearer message unknown existential
Ack-by: herbelin
Reviewed-by: ppedrot
Diffstat (limited to 'pretyping/pretype_errors.ml')
| -rw-r--r-- | pretyping/pretype_errors.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index 01b0d96f98..dc6607557d 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -53,6 +53,7 @@ type pretype_error = | NonLinearUnification of Name.t * constr (* Pretyping *) | VarNotFound of Id.t + | EvarNotFound of Id.t | UnexpectedType of constr * constr | NotProduct of constr | TypingError of type_error @@ -167,6 +168,9 @@ let error_not_product ?loc env sigma c = let error_var_not_found ?loc env sigma s = raise_pretype_error ?loc (env, sigma, VarNotFound s) +let error_evar_not_found ?loc env sigma id = + raise_pretype_error ?loc (env, sigma, EvarNotFound id) + (*s Typeclass errors *) let unsatisfiable_constraints env evd ev comp = |