diff options
| author | courant | 2003-06-27 13:35:03 +0000 |
|---|---|---|
| committer | courant | 2003-06-27 13:35:03 +0000 |
| commit | afe6690652949d92bfbcf34194836364884b7111 (patch) | |
| tree | 5a5dc1f4c8c681f6cb2156dd6083a4671364e700 /tactics | |
| parent | 293b31aab50f0b7f947960ce15bf9ae6b6d576de (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4209 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tauto.ml4 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index c22195945f..c8740b9302 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -86,7 +86,11 @@ let simplif ist = | [id: (?1 ? ?) |- ?] -> $t_is_conj;Elim id;Do 2 Intro;Clear id | [id: (?1 ? ?) |- ?] -> $t_is_disj;Elim id;Intro;Clear id - | [id0: ?1-> ?2; id1: ?1|- ?] -> Generalize (id0 id1);Intro;Clear id0 + | [id0: ?1-> ?2; id1: ?1|- ?] -> + (* Generalize (id0 id1);Intro;Clear id0 does not work + (see Marco Maggiesi's bug PR#301) + so we instead use Assert and Exact. *) + Assert ?2; [Exact (id0 id1) | Clear id0] | [id: ?1 -> ?2|- ?] -> $t_is_unit;Cut ?2; [Intro;Clear id |