From 63604da4cc6590a4dd5878671287a24cbc095402 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 18 Mar 2004 08:42:44 +0000 Subject: Backtrack sur commit 1.20 git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5531 85f007b7-540e-0410-9357-904b9bb8a0f7 --- tactics/extratactics.ml4 | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'tactics/extratactics.ml4') 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 *) -- cgit v1.2.3