diff options
| author | barras | 2001-06-29 08:16:09 +0000 |
|---|---|---|
| committer | barras | 2001-06-29 08:16:09 +0000 |
| commit | 1b20fdfdf7f9ab6a92494c413c919635101e7f34 (patch) | |
| tree | af7414e8df67d28ab52f914627d12f91f8af5707 /tactics | |
| parent | 9816d0201e8c72fb469706dd8739bec424a8ba5c (diff) | |
traitement du let dans red_product (tactique Red)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1815 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 7b441e1f49..bb34e96dec 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -493,7 +493,7 @@ let apply_with_bindings (c,lbind) gl = try let clause = make_clenv_binding_apply wc (c,thm_ty) lbind in apply kONT clause gl - with (Logic.RefinerError _|UserError _) as exn -> + with (RefinerError _|UserError _|Failure _) as exn -> let ored = try Some (Tacred.red_product (w_env wc) (w_Underlying wc) thm_ty) with Tacred.Redelimination -> None |