diff options
| author | delahaye | 2000-11-23 21:10:08 +0000 |
|---|---|---|
| committer | delahaye | 2000-11-23 21:10:08 +0000 |
| commit | 8f88501d1f51ae06a48a04df31fa32b192df2447 (patch) | |
| tree | 866d6ed9d28f2a2748a9d0546427154ef83c5a7f | |
| parent | 897faf0719a7f457eb12c08c948683064c09103d (diff) | |
On n'introduit que des produits non dependants
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@936 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tauto.ml4 | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index 57f95409f6..64f6a48c84 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -67,7 +67,7 @@ let simplif () = | [id: (?1 ?2 ?3) -> ?4|- ?] -> $t_is_disj;Cut ?3-> ?4;[Cut ?2-> ?4;[Intros;Clear id|Intro;Apply id; Left;Assumption]|Intro;Apply id;Right;Assumption] - | [id0: ?1-> ?2; id1: ?1|- ?] -> Generalize (id0 id1);Intro;Clear id0 + | [id0: ?1-> ?; id1: ?1|- ?] -> Generalize (id0 id1);Intro;Clear id0 | [|- (?1 ? ?)] -> $t_is_conj;Split);$t_not_dep_intros)>> let rec tauto_main () = @@ -100,12 +100,10 @@ let compute = function let reduction = Tacticals.onAllClauses (fun ido -> compute ido) let tauto = - (tclTHEN (interp <:tactic<Intros>>) - (tclTHEN reduction (interp (tauto_main ())))) + (tclTHEN reduction (interp (tauto_main ()))) let intuition = - (tclTHEN (interp <:tactic<Intros>>) - (tclTHEN reduction (interp (intuition_main ())))) + (tclTHEN reduction (interp (intuition_main ()))) let _ = hide_atomic_tactic "Tauto" tauto let _ = hide_atomic_tactic "Intuition" intuition |