diff options
author | 2001-06-01 15:35:37 +0000 | |
---|---|---|
committer | 2001-06-01 15:35:37 +0000 | |
commit | b5221c0c8aca9c8051fa4b4db75324afa41027fc (patch) | |
tree | 9789d6a66505f491cb98db83b62e621f13abf4c1 | |
parent | 50da43eaa170cd051de690d7a396d56060c60e87 (diff) |
Correction d'un bug du a un Intros trop violent
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1777 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | tactics/tauto.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index 39ed28313..ffb7f09a1 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -97,7 +97,7 @@ let rec tauto_main () = (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;Intros; + Intros;Apply id;Assumption]|Clear id]|Intros;Apply id;Intro; Assumption];$t_tauto_main | [|- (?1 ? ?)] -> $t_is_disj;(Left;$t_tauto_main) Orelse (Right;$t_tauto_main)) |