From 420143a1aeaaf152a4e10867fe74fb2079367ea5 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 3 Sep 2002 16:30:02 +0000
Subject: pretyping/pretyping.ml

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2986 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/pretype_errors.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'pretyping/pretype_errors.ml')

diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml
index cc8b0ed8b3..4a60fce3d6 100644
--- a/pretyping/pretype_errors.ml
+++ b/pretyping/pretype_errors.ml
@@ -24,6 +24,7 @@ type pretype_error =
   (* Unification *)
   | OccurCheck of int * constr
   | NotClean of int * constr
+  | UnsolvableImplicit of hole_kind
   (* Pretyping *)
   | VarNotFound of identifier
   | UnexpectedType of constr * constr
@@ -135,6 +136,9 @@ let error_not_clean env sigma ev c =
   let c = nf_evar sigma c in
   raise (PretypeError (env_ise sigma env, NotClean (ev,c)))
 
+let error_unsolvable_implicit loc env sigma e =
+  raise (PretypeError (env_ise sigma env, UnsolvableImplicit e))
+
 (*s Ml Case errors *)
 
 let error_cant_find_case_type_loc loc env sigma expr =
-- 
cgit v1.2.3