From 45870d709209aecf94bb5f6915672ce8043e2f48 Mon Sep 17 00:00:00 2001
From: clrenard
Date: Sat, 15 Nov 2003 15:21:38 +0000
Subject: Amelioration du message d'erreur en cas de tentative d'instanciation
 avec de mauvaise variables lors de l'unification.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4923 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/clenv.ml        | 2 +-
 proofs/evar_refiner.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/proofs/clenv.ml b/proofs/clenv.ml
index f59226e893..d5df3bc958 100644
--- a/proofs/clenv.ml
+++ b/proofs/clenv.ml
@@ -574,7 +574,7 @@ and w_resrec metas evars wc =
              	    | App (f,cl) when isConst f ->
 			let wc' = mimick_evar f (Array.length cl) evn wc in
 			w_resrec metas evars wc'
-		    | _ -> error "w_Unify"))
+		    | _ -> raise ex (* error "w_Unify" *)))
 	| _ -> anomaly "w_resrec"
 
 
diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml
index efbf675b7b..7ce48f2bb6 100644
--- a/proofs/evar_refiner.ml
+++ b/proofs/evar_refiner.ml
@@ -106,7 +106,7 @@ let w_Define sp c wc =
   let cty = 
     try 
       w_type_of (w_Focus sp wc) (mkCast (c,spdecl.evar_concl))
-    with Not_found -> 
+    with Not_found | (Type_errors.TypeError (_, Type_errors.UnboundVar _))-> 
       error "Instantiation contains unlegal variables"
   in 
   match spdecl.evar_body with
-- 
cgit v1.2.3