X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBase-1%2Fext%2Ftactics.ma;fp=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBase-1%2Fext%2Ftactics.ma;h=0000000000000000000000000000000000000000;hb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;hp=79551495d86e5e699ba5d1ef301cf0a87b74fbe1;hpb=89519c7b52e06304a94019dd528925300380cdc0;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Base-1/ext/tactics.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Base-1/ext/tactics.ma deleted file mode 100644 index 79551495d..000000000 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Base-1/ext/tactics.ma +++ /dev/null @@ -1,41 +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 "Base-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))))))). - -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)))). - -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))))). -