diff options
author | 2000-12-14 01:35:52 +0000 | |
---|---|---|
committer | 2000-12-14 01:35:52 +0000 | |
commit | 992302908a84b4610148696a94626db8ebc919c7 (patch) | |
tree | a79f0b099eb742f3ecedeb8bbac4bac956ed21d2 /pretyping | |
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')
-rw-r--r-- | pretyping/pretype_errors.ml | 4 | ||||
-rw-r--r-- | pretyping/pretype_errors.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index 3a6897d98..dbc717fc0 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))) diff --git a/pretyping/pretype_errors.mli b/pretyping/pretype_errors.mli index 7d93dbb18..88f5889eb 100644 --- a/pretyping/pretype_errors.mli +++ b/pretyping/pretype_errors.mli @@ -53,7 +53,7 @@ val error_wrong_numarg_constructor_loc : loc -> path_kind -> constructor_path -> int -> 'b val error_wrong_predicate_arity_loc : - loc -> path_kind -> env -> constr -> int -> int -> 'b + loc -> env -> constr -> constr -> constr -> 'b val error_needs_inversion : path_kind -> env -> constr -> constr -> 'a |