diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-13 11:09:51 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-13 11:09:51 +0000 |
commit | 928d186f5dcc649793ea9f3dd8f880d93786dfe7 (patch) | |
tree | 35dba013cc375c73fd78d4476e326dfca747d127 /tactics/leminv.ml | |
parent | f30692968587b96d7be86062efa57a777ddbbf09 (diff) |
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
Diffstat (limited to 'tactics/leminv.ml')
-rw-r--r-- | tactics/leminv.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tactics/leminv.ml b/tactics/leminv.ml index abb114d91..6795b4817 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) |