diff options
| -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 *) |