diff options
| author | barras | 2002-02-19 10:22:58 +0000 |
|---|---|---|
| committer | barras | 2002-02-19 10:22:58 +0000 |
| commit | 474114796be655d2c5191c371876e6bdc3783241 (patch) | |
| tree | 0350b662da21338f18c39f391ef80b1905ebcdc0 | |
| parent | e1e84686f5f5a57b57c19f350ab5d4ffd1b9c91f (diff) | |
meilleur message d'erreur lorsqu'on type une evar qui n'existe pas
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2487 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/instantiate.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pretyping/instantiate.ml b/pretyping/instantiate.ml index 42a4dbba7b..95ce7b6bfc 100644 --- a/pretyping/instantiate.ml +++ b/pretyping/instantiate.ml @@ -44,7 +44,10 @@ let instantiate_evar sign c args = (* Existentials. *) let existential_type sigma (n,args) = - let info = Evd.map sigma n in + let info = + try Evd.map sigma n + with Not_found -> + anomaly ("Evar ?"^string_of_int n^" was not declared") in let hyps = info.evar_hyps in instantiate_evar hyps info.evar_concl (Array.to_list args) |