diff options
| author | herbelin | 2000-12-14 01:35:52 +0000 |
|---|---|---|
| committer | herbelin | 2000-12-14 01:35:52 +0000 |
| commit | 992302908a84b4610148696a94626db8ebc919c7 (patch) | |
| tree | a79f0b099eb742f3ecedeb8bbac4bac956ed21d2 /pretyping/pretype_errors.ml | |
| parent | 65a7fec2956690a2fff3514665d42f4105e4a4ca (diff) | |
Raffinement erreur Wrong Predicate
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1097 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretype_errors.ml')
| -rw-r--r-- | pretyping/pretype_errors.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index 3a6897d98a..dbc717fc0d 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -49,8 +49,8 @@ let error_bad_constructor_loc loc k cstr ind = let error_wrong_numarg_constructor_loc loc k c n = raise_pretype_error (loc, k, Global.env(), WrongNumargConstructor (c,n)) -let error_wrong_predicate_arity_loc loc k env c n1 n2 = - raise_pretype_error (loc, k, env, WrongPredicateArity (c,n1,n2)) +let error_wrong_predicate_arity_loc loc env c n1 n2 = + raise_pretype_error (loc, CCI, env, WrongPredicateArity (c,n1,n2)) let error_needs_inversion k env x t = raise (TypeError (k, env, NeedsInversion (x,t))) |