diff options
| author | herbelin | 2001-12-19 23:03:01 +0000 |
|---|---|---|
| committer | herbelin | 2001-12-19 23:03:01 +0000 |
| commit | 41dbbc37997e28d66f629303dd2996fa9fb04492 (patch) | |
| tree | cf8e90587b01ca5e5dc48d070df3ae0a0f9be61f | |
| parent | 57a320bc7f8b15403a2c3505fe4b70a82625518e (diff) | |
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
| -rw-r--r-- | tactics/tauto.ml4 | 5 |
1 files 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>> |