diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-18 08:42:44 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-18 08:42:44 +0000 |
commit | 63604da4cc6590a4dd5878671287a24cbc095402 (patch) | |
tree | 4b046632f017f819d63ba60086a5451d774ccfcc /tactics/extratactics.ml4 | |
parent | 1a12e38b5511a0304fea309fb2714eafd8ad54e8 (diff) |
Backtrack sur commit 1.20
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5531 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/extratactics.ml4')
-rw-r--r-- | tactics/extratactics.ml4 | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index 9c04e5aaf..daf3bb465 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -112,10 +112,6 @@ END (* AutoRewrite *) -let protect forv7 f x = - if !Options.v7 = forv7 then f x - else Util.error (if forv7 then "Use old V7 syntax" else "Use new V8 syntax") - open Autorewrite TACTIC EXTEND AutorewriteV7 [ "AutoRewrite" "[" ne_preident_list(l) "]" ] -> @@ -138,10 +134,10 @@ let add_rewrite_hint name ort t lcsr = (* V7 *) VERNAC COMMAND EXTEND HintRewriteV7 [ "Hint" "Rewrite" orient(o) "[" ne_constr_list(l) "]" "in" preident(b) ] -> - [ protect true (add_rewrite_hint b o (Tacexpr.TacId "")) l ] + [ add_rewrite_hint b o (Tacexpr.TacId "") l ] | [ "Hint" "Rewrite" orient(o) "[" ne_constr_list(l) "]" "in" preident(b) "using" tactic(t) ] -> - [ protect true (add_rewrite_hint b o t) l ] + [ add_rewrite_hint b o t l ] END (* V8 *) |