diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-11-29 18:32:09 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-11-29 18:32:09 +0000 |
| commit | 3dc37b55102cc8f23299c175cdce2d4e980f0d53 (patch) | |
| tree | 4ac20b1fae612aafaaceb5af32aff2d3bd8f6e98 | |
| parent | 719506ef7a6629e582207fbebc5969c0e2724ca0 (diff) | |
UserError in reduce_to_*_ref
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6382 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/tacred.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 5b150303c..9f5dec3f3 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -964,7 +964,10 @@ let reduce_to_ref_gen allow_product env sigma ref t = try let t' = nf_betaiota (one_step_reduce env sigma t) in elimrec env t' l - with NotStepReducible -> raise Not_found + with NotStepReducible -> + errorlabstrm "" + (str "Not a statement of conclusion " ++ + Nametab.pr_global_env Idset.empty ref) in elimrec env t [] |