From 8f88501d1f51ae06a48a04df31fa32b192df2447 Mon Sep 17 00:00:00 2001
From: delahaye
Date: Thu, 23 Nov 2000 21:10:08 +0000
Subject: On n'introduit que des produits non dependants

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@936 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/tauto.ml4 | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4
index 57f95409f6..64f6a48c84 100644
--- a/tactics/tauto.ml4
+++ b/tactics/tauto.ml4
@@ -67,7 +67,7 @@ let simplif () =
         | [id: (?1 ?2 ?3) -> ?4|- ?] ->
           $t_is_disj;Cut ?3-> ?4;[Cut ?2-> ?4;[Intros;Clear id|Intro;Apply id;
             Left;Assumption]|Intro;Apply id;Right;Assumption]
-        | [id0: ?1-> ?2; id1: ?1|- ?] -> Generalize (id0 id1);Intro;Clear id0
+        | [id0: ?1-> ?; id1: ?1|- ?] -> Generalize (id0 id1);Intro;Clear id0
         | [|- (?1 ? ?)] -> $t_is_conj;Split);$t_not_dep_intros)>>
 
 let rec tauto_main () =
@@ -100,12 +100,10 @@ let compute = function
 let reduction = Tacticals.onAllClauses (fun ido -> compute ido)
 
 let tauto =
-  (tclTHEN (interp <:tactic<Intros>>)
-    (tclTHEN reduction (interp (tauto_main ()))))
+  (tclTHEN reduction (interp (tauto_main ())))
 
 let intuition =
-  (tclTHEN (interp <:tactic<Intros>>)
-    (tclTHEN reduction (interp (intuition_main ()))))
+  (tclTHEN reduction (interp (intuition_main ())))
 
 let _ = hide_atomic_tactic "Tauto" tauto
 let _ = hide_atomic_tactic "Intuition" intuition
-- 
cgit v1.2.3