From 928d186f5dcc649793ea9f3dd8f880d93786dfe7 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 13 Jun 2010 11:09:51 +0000
Subject: Fixed bug #2314 (inversion using not checking the correctness of its
 arguments enough)

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

(limited to 'tactics')

diff --git a/tactics/leminv.ml b/tactics/leminv.ml
index abb114d917..6795b4817a 100644
--- a/tactics/leminv.ml
+++ b/tactics/leminv.ml
@@ -288,7 +288,10 @@ let lemInv id c gls =
     let clause = clenv_constrain_last_binding (mkVar id) clause in
     Clenvtac.res_pf clause ~allow_K:true gls
   with
-    |  UserError (a,b) ->
+    | NoSuchBinding ->
+	errorlabstrm ""
+	  (hov 0 (pr_constr c ++ spc () ++ str "does not refer to an inversion lemma."))
+    | UserError (a,b) ->
 	 errorlabstrm "LemInv"
 	   (str "Cannot refine current goal with the lemma " ++
 	      pr_lconstr_env (Global.env()) c)
-- 
cgit v1.2.3