diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tauto.ml4 | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index e327e4aac..a54b69360 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -98,8 +98,11 @@ let rec tauto_intuit t_reduce t_solver ist = Orelse (Match Reverse 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; (Assumption Orelse (Intro; Assumption))]; Solve [ $t_tauto_intuit ] + Cut ?3; + [Intro;Clear id + |Cut ?1 -> ?2; + [Exact id|Generalize [y:?2](id [x:?1]y);Intro;Clear id] + ]; Solve [ $t_tauto_intuit ] | [|- (?1 ? ?)] -> $t_is_disj;Solve [Left;$t_tauto_intuit | Right;$t_tauto_intuit] ) |