X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FGround-1%2Fext%2Ftactics.ma;fp=matitaB%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FGround-1%2Fext%2Ftactics.ma;h=0000000000000000000000000000000000000000;hb=88a68a9c334646bc17314d5327cd3b790202acd6;hp=766db9f1f48279c86aa1d2ae8435e84ebd8fd9a6;hpb=4904accd80118cb8126e308ae098d87f8651c9f4;p=helm.git diff --git a/matitaB/matita/contribs/LAMBDA-TYPES/Ground-1/ext/tactics.ma b/matitaB/matita/contribs/LAMBDA-TYPES/Ground-1/ext/tactics.ma deleted file mode 100644 index 766db9f1f..000000000 --- a/matitaB/matita/contribs/LAMBDA-TYPES/Ground-1/ext/tactics.ma +++ /dev/null @@ -1,50 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* This file was automatically generated: do not edit *********************) - -include "Ground-1/preamble.ma". - -theorem insert_eq: - \forall (S: Set).(\forall (x: S).(\forall (P: ((S \to Prop))).(\forall (G: -((S \to Prop))).(((\forall (y: S).((P y) \to ((eq S y x) \to (G y))))) \to -((P x) \to (G x)))))) -\def - \lambda (S: Set).(\lambda (x: S).(\lambda (P: ((S \to Prop))).(\lambda (G: -((S \to Prop))).(\lambda (H: ((\forall (y: S).((P y) \to ((eq S y x) \to (G -y)))))).(\lambda (H0: (P x)).(H x H0 (refl_equal S x))))))). -(* COMMENTS -Initial nodes: 45 -END *) - -theorem unintro: - \forall (A: Set).(\forall (a: A).(\forall (P: ((A \to Prop))).(((\forall (x: -A).(P x))) \to (P a)))) -\def - \lambda (A: Set).(\lambda (a: A).(\lambda (P: ((A \to Prop))).(\lambda (H: -((\forall (x: A).(P x)))).(H a)))). -(* COMMENTS -Initial nodes: 17 -END *) - -theorem xinduction: - \forall (A: Set).(\forall (t: A).(\forall (P: ((A \to Prop))).(((\forall (x: -A).((eq A t x) \to (P x)))) \to (P t)))) -\def - \lambda (A: Set).(\lambda (t: A).(\lambda (P: ((A \to Prop))).(\lambda (H: -((\forall (x: A).((eq A t x) \to (P x))))).(H t (refl_equal A t))))). -(* COMMENTS -Initial nodes: 31 -END *) -