X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FLambdaDelta-1%2Fnf2%2Ffwd.ma;h=e212a16dbf8cddf60882ca9512ab8d9f02d88db2;hb=7048db496643fc440aebc6e85dd425886bcd2e56;hp=5b705dbba1b5acac07967ea218d4800bb084e9d6;hpb=6329f0f87906d3347c39d2ba2f5ec2b2124f17a2;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/nf2/fwd.ma b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/nf2/fwd.ma index 5b705dbba..e212a16db 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/nf2/fwd.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/nf2/fwd.ma @@ -14,15 +14,13 @@ (* This file was automatically generated: do not edit *********************) -set "baseuri" "cic:/matita/LAMBDA-TYPES/LambdaDelta-1/nf2/fwd". +include "LambdaDelta-1/nf2/defs.ma". -include "nf2/defs.ma". +include "LambdaDelta-1/pr2/clen.ma". -include "pr2/clen.ma". +include "LambdaDelta-1/subst0/dec.ma". -include "subst0/dec.ma". - -include "T/props.ma". +include "LambdaDelta-1/T/props.ma". theorem nf2_gen_lref: \forall (c: C).(\forall (d: C).(\forall (u: T).(\forall (i: nat).((getl i c @@ -64,8 +62,7 @@ t)) \to (\forall (P: Prop).P)))) \def \lambda (c: C).(\lambda (u: T).(\lambda (t: T).(\lambda (H: (nf2 c (THead (Flat Cast) u t))).(\lambda (P: Prop).(thead_x_y_y (Flat Cast) u t (H t -(pr2_free c (THead (Flat Cast) u t) t (pr0_epsilon t t (pr0_refl t) u))) -P))))). +(pr2_free c (THead (Flat Cast) u t) t (pr0_tau t t (pr0_refl t) u))) P))))). theorem nf2_gen_beta: \forall (c: C).(\forall (u: T).(\forall (v: T).(\forall (t: T).((nf2 c @@ -194,5 +191,6 @@ theorem nf2_gen_void: T).((pr2 c (THead (Bind Void) u (lift (S O) O t)) t2) \to (eq T (THead (Bind Void) u (lift (S O) O t)) t2))))).(\lambda (P: Prop).(nf2_gen__nf2_gen_aux Void t u O (H t (pr2_free c (THead (Bind Void) u (lift (S O) O t)) t -(pr0_zeta Void not_void_abst t t (pr0_refl t) u))) P))))). +(pr0_zeta Void (sym_not_eq B Abst Void not_abst_void) t t (pr0_refl t) u))) +P))))).