diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-06 12:46:25 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-06 12:46:25 +0000 |
| commit | 8ec12027e4641f88272c0275e31e93565f7c34cc (patch) | |
| tree | 06d90a5a2532cc1c2b7b43e1229e5257c3b58970 /pretyping/pretyping.ml | |
| parent | 1c8eaac415b43ec27aa81afdc39837c14fb2d92c (diff) | |
kernel/type_errors.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@583 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretyping.ml')
| -rw-r--r-- | pretyping/pretyping.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index cadaa7f78..147960ade 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -461,7 +461,8 @@ and pretype_type valcon env isevars lvar lmeta = function then { uj_val = nf_ise1 !isevars tj.uj_val; uj_type = tj.uj_type } - else error "This type should be another one !" + else + error_unexpected_type_loc (loc_of_rawconstr c) env tj.uj_val v let unsafe_fmachine tycon nocheck isevars metamap env lvar lmeta constr = |