From b2cf3bc56ebd4511070ccfedd0f0895a695a6b23 Mon Sep 17 00:00:00 2001
From: barras
Date: Fri, 5 Mar 2004 21:35:15 +0000
Subject: modif des fixpoints pour que si on donne une notation au produit, les
 pts fixes s'affichent correctement

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5435 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/tacinterp.ml | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

(limited to 'tactics')

diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml
index 14482cb7a1..5c792a463b 100644
--- a/tactics/tacinterp.ml
+++ b/tactics/tacinterp.ml
@@ -242,12 +242,13 @@ let coerce_to_inductive = function
 (* Table of "pervasives" macros tactics (e.g. auto, simpl, etc.) *)
 let atomic_mactab = ref Idmap.empty
 let add_primitive_tactic s tac =
-  let id = id_of_string s in
-  atomic_mactab := Idmap.add id tac !atomic_mactab
+  (if not !Options.v7 then
+    let id = id_of_string s in
+    atomic_mactab := Idmap.add id tac !atomic_mactab)
 
 let _ =
   if not !Options.v7 then
-    let nocl = {onhyps=Some[];onconcl=true; concl_occs=[]} in
+    (let nocl = {onhyps=Some[];onconcl=true; concl_occs=[]} in
     List.iter
       (fun (s,t) -> add_primitive_tactic s (TacAtom((0,0),t)))
       [ "red", TacReduce(Red false,nocl);
@@ -266,8 +267,14 @@ let _ =
         "constructor", TacAnyConstructor None;
         "reflexivity", TacReflexivity;
         "symmetry", TacSymmetry nocl
-      ]
-
+      ];
+    List.iter
+      (fun (s,t) -> add_primitive_tactic s t)
+      [ "idtac",TacId "";
+        "fail", TacFail(ArgArg 0,"");
+        "fresh", TacArg(TacFreshId None)
+      ])
+ 
 let lookup_atomic id = Idmap.find id !atomic_mactab
 let is_atomic id = Idmap.mem id !atomic_mactab
 let is_atomic_kn kn =
-- 
cgit v1.2.3