From b4f100cb9fa0d57834f17526325bb996efe60249 Mon Sep 17 00:00:00 2001
From: corbinea
Date: Thu, 3 Jul 2003 20:03:52 +0000
Subject: switching back to old tauto

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4219 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/first-order/g_ground.ml4 | 2 +-
 tactics/tauto.ml4                | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/first-order/g_ground.ml4 b/contrib/first-order/g_ground.ml4
index da1d0dcbdd..ebfb0e0181 100644
--- a/contrib/first-order/g_ground.ml4
+++ b/contrib/first-order/g_ground.ml4
@@ -95,7 +95,7 @@ TACTIC EXTEND Ground
 END
 
 TACTIC EXTEND GTauto   
-  [ "Tauto" ] ->
+  [ "GTauto" ] ->
      [ gen_ground_tac false (Some fail_solver) Void ]   
 END
 
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4
index 36a98a4aa0..c8740b9302 100644
--- a/tactics/tauto.ml4
+++ b/tactics/tauto.ml4
@@ -189,7 +189,7 @@ let lfo_wrap n gl=
       errorlabstrm "LinearIntuition" [< str "LinearIntuition failed." >]
 
 TACTIC EXTEND Tauto
-| [ "OldTauto" ] -> [ tauto ]
+| [ "Tauto" ] -> [ tauto ]
 END
 
 TACTIC EXTEND TSimplif
-- 
cgit v1.2.3