kernel/type_errors.ml

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@583 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 5 insertions, 2 deletions

diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml
index 247620a67..b8a080366 100644
--- a/pretyping/pretype_errors.ml
+++ b/pretyping/pretype_errors.ml
@@ -49,13 +49,16 @@ let error_wrong_predicate_arity_loc loc k env c n1 n2 =
 let error_needs_inversion k env x t =
   raise (TypeError (k, env, NeedsInversion (x,t)))
 
-
 let error_ill_formed_branch_loc loc k env c i actty expty =
   raise_pretype_error (loc, k, env, IllFormedBranch (c,i,actty,expty))
 
+(*s Implicit arguments synthesis errors *)
+
+let error_unexpected_type_loc loc env actty expty =
+  raise_pretype_error (loc, CCI, env, UnexpectedType (actty, expty))
+
 let error_occur_check k env ev c =
   raise (TypeError (k, env, OccurCheck (ev,c)))
 
 let error_not_clean k env ev c =
   raise (TypeError (k, env, NotClean (ev,c)))
-