X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Fsty1%2Fprops.ma;h=53061952e312717dc04c55fe970e84d04ff9e8c4;hb=de77f79d60ee3c1d30fe03469172950b557441f3;hp=0dec20c47b795bf4abc0f3e2414a3c1a41ec5487;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/sty1/props.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/sty1/props.ma index 0dec20c47..53061952e 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/sty1/props.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/sty1/props.ma @@ -14,9 +14,9 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/sty1/defs.ma". +include "Basic-1/sty1/defs.ma". -include "LambdaDelta-1/sty0/props.ma". +include "Basic-1/sty0/props.ma". theorem sty1_trans: \forall (g: G).(\forall (c: C).(\forall (t1: T).(\forall (t: T).((sty1 g c @@ -28,6 +28,9 @@ c t (\lambda (t0: T).(sty1 g c t1 t0)) (\lambda (t3: T).(\lambda (H1: (sty0 g c t t3)).(sty1_sing g c t1 t H t3 H1))) (\lambda (t0: T).(\lambda (_: (sty1 g c t t0)).(\lambda (H2: (sty1 g c t1 t0)).(\lambda (t3: T).(\lambda (H3: (sty0 g c t0 t3)).(sty1_sing g c t1 t0 H2 t3 H3)))))) t2 H0))))))). +(* COMMENTS +Initial nodes: 131 +END *) theorem sty1_bind: \forall (g: G).(\forall (b: B).(\forall (c: C).(\forall (v: T).(\forall (t1: @@ -44,6 +47,9 @@ t2)).(sty1_ind g (CHead c (Bind b) v) t1 (\lambda (t: T).(sty1 g c (THead t1) (THead (Bind b) v t))).(\lambda (t3: T).(\lambda (H2: (sty0 g (CHead c (Bind b) v) t t3)).(sty1_sing g c (THead (Bind b) v t1) (THead (Bind b) v t) H1 (THead (Bind b) v t3) (sty0_bind g b c v t t3 H2))))))) t2 H))))))). +(* COMMENTS +Initial nodes: 259 +END *) theorem sty1_appl: \forall (g: G).(\forall (c: C).(\forall (v: T).(\forall (t1: T).(\forall @@ -59,6 +65,9 @@ T).(\lambda (_: (sty1 g c t1 t)).(\lambda (H1: (sty1 g c (THead (Flat Appl) v t1) (THead (Flat Appl) v t))).(\lambda (t3: T).(\lambda (H2: (sty0 g c t t3)).(sty1_sing g c (THead (Flat Appl) v t1) (THead (Flat Appl) v t) H1 (THead (Flat Appl) v t3) (sty0_appl g c v t t3 H2))))))) t2 H)))))). +(* COMMENTS +Initial nodes: 213 +END *) theorem sty1_lift: \forall (g: G).(\forall (e: C).(\forall (t1: T).(\forall (t2: T).((sty1 g e @@ -77,6 +86,9 @@ c h d H1)))))))) (\lambda (t: T).(\lambda (_: (sty1 g e t1 t)).(\lambda (H1: (sty0 g e t t3)).(\lambda (c: C).(\lambda (h: nat).(\lambda (d: nat).(\lambda (H3: (drop h d c e)).(sty1_sing g c (lift h d t1) (lift h d t) (H1 c h d H3) (lift h d t3) (sty0_lift g e t t3 H2 c h d H3))))))))))) t2 H))))). +(* COMMENTS +Initial nodes: 277 +END *) theorem sty1_correct: \forall (g: G).(\forall (c: C).(\forall (t1: T).(\forall (t: T).((sty1 g c @@ -88,6 +100,9 @@ T).(sty0 g c t0 t2)))) (\lambda (t2: T).(\lambda (H0: (sty0 g c t1 t2)).(sty0_correct g c t1 t2 H0))) (\lambda (t0: T).(\lambda (_: (sty1 g c t1 t0)).(\lambda (_: (ex T (\lambda (t2: T).(sty0 g c t0 t2)))).(\lambda (t2: T).(\lambda (H2: (sty0 g c t0 t2)).(sty0_correct g c t0 t2 H2)))))) t H))))). +(* COMMENTS +Initial nodes: 123 +END *) theorem sty1_abbr: \forall (g: G).(\forall (c: C).(\forall (d: C).(\forall (v: T).(\forall (i: @@ -104,6 +119,9 @@ H1)))) (\lambda (t: T).(\lambda (_: (sty1 g d v t)).(\lambda (H2: (sty1 g c t2)).(sty1_sing g c (TLRef i) (lift (S i) O t) H2 (lift (S i) O t2) (sty0_lift g d t t2 H3 c (S i) O (getl_drop Abbr c d v i H)))))))) w H0)))))))). +(* COMMENTS +Initial nodes: 231 +END *) theorem sty1_cast2: \forall (g: G).(\forall (c: C).(\forall (t1: T).(\forall (t2: T).((sty1 g c @@ -139,4 +157,7 @@ c v1 v3)) (\lambda (v3: T).(sty1 g c (THead (Flat Cast) v1 t1) (THead (Flat Cast) v3 t3))) x0 (sty1_sing g c v1 x H5 x0 H8) (sty1_sing g c (THead (Flat Cast) v1 t1) (THead (Flat Cast) x t) H6 (THead (Flat Cast) x0 t3) (sty0_cast g c x x0 H8 t t3 H2))))) H7)))))) H4))))))))))) t2 H))))). +(* COMMENTS +Initial nodes: 657 +END *)