diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-18 09:33:55 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-18 09:33:55 +0000 |
| commit | bd1681bdb5830333515de304a72943cb93c09baf (patch) | |
| tree | cb75a046496a7cb3b9898905aa2d72f9775ea0a2 /tactics/rewrite.ml4 | |
| parent | 5db85932d5d1f78892f1022d7676338768922c6e (diff) | |
Fix bug #2586 and enhance clsubst* as well as a side effect
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14570 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/rewrite.ml4')
| -rw-r--r-- | tactics/rewrite.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/rewrite.ml4 b/tactics/rewrite.ml4 index 1595ded2d..2af439550 100644 --- a/tactics/rewrite.ml4 +++ b/tactics/rewrite.ml4 @@ -1401,7 +1401,7 @@ let clsubstitute o c = (fun cl -> match cl with | Some id when is_tac id -> tclIDTAC - | _ -> tclTRY (cl_rewrite_clause c o all_occurrences cl)) + | _ -> cl_rewrite_clause c o all_occurrences cl) TACTIC EXTEND substitute | [ "substitute" orient(o) glob_constr_with_bindings(c) ] -> [ clsubstitute o c ] |