diff options
Diffstat (limited to 'tactics/tauto.ml4')
-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 c22195945..c8740b930 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 |