From 41dbbc37997e28d66f629303dd2996fa9fb04492 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 19 Dec 2001 23:03:01 +0000
Subject: Puisque Orelse semble lier moins que THEN, ajout d'un reduce après le
 Orelse

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

diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4
index e5f9086d7f..6ad442f5ed 100644
--- a/tactics/tauto.ml4
+++ b/tactics/tauto.ml4
@@ -96,7 +96,8 @@ let rec tauto_main t_reduce ist =
   <:tactic<
     $t_simplif;$t_axioms
     Orelse
-      (Match Context With
+      ($t_reduce;
+      Match Context With
       | [id:(?1-> ?2)-> ?3|- ?] ->
         Cut ?2-> ?3;[Intro;Cut ?1-> ?2;[Intro;Cut ?3;[Intro;Clear id|
           Intros;Apply id;Assumption]|Clear id]|Intros;Apply id;Try Intro;
@@ -112,7 +113,7 @@ let rec intuition_main t_reduce ist =
   and t_intuition_main = tacticIn (intuition_main t_reduce) in
   <:tactic<
     $t_simplif;$t_axioms
-    Orelse Try (Solve [Auto with *|Intro;$t_intuition_main])>>
+    Orelse ($t_reduce; Try (Solve [Auto with *|Intro;$t_intuition_main]))>>
 
 let unfold_not_iff = function
   | None -> interp <:tactic<Unfold not iff>>
-- 
cgit v1.2.3