X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Fclen%2Fgetl.ma;h=af8a96cf556dfbfe173c76fd4d6e06a3a758d5ad;hb=bf8fe5331d6e6d2dfe955efa54b1ffdafaae8429;hp=6f15e6d31676d45745559452d2c4336e966d3323;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/clen/getl.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/clen/getl.ma index 6f15e6d31..af8a96cf5 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/clen/getl.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/clen/getl.ma @@ -14,9 +14,9 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/clen/defs.ma". +include "Basic-1/clen/defs.ma". -include "LambdaDelta-1/getl/props.ma". +include "Basic-1/getl/props.ma". theorem getl_ctail_clen: \forall (b: B).(\forall (t: T).(\forall (c: C).(ex nat (\lambda (n: @@ -41,6 +41,9 @@ t0) (CHead (CSort n) (Bind b) t))) x (getl_head (Bind b0) (clen c0) (CTail F).(ex_intro nat (\lambda (n: nat).(getl (clen c0) (CHead (CTail (Bind b) t c0) (Flat f) t0) (CHead (CSort n) (Bind b) t))) x (getl_flat (CTail (Bind b) t c0) (CHead (CSort x) (Bind b) t) (clen c0) H1 f t0))) k))) H0)))))) c))). +(* COMMENTS +Initial nodes: 459 +END *) theorem getl_gen_tail: \forall (k: K).(\forall (b: B).(\forall (u1: T).(\forall (u2: T).(\forall @@ -352,4 +355,7 @@ nat).(eq C (CSort x0) (CSort n0))) x0 (refl_equal nat (S n)) (refl_equal K (Bind b)) (refl_equal T u1) (refl_equal C (CSort x0)))) (s k0 (r k0 n)) (s_r k0 n)) (clen c) H4) k H5))) u2 H6))) c2 H7)))))))) H3)) H2)))))) i)))))) c1)))))). +(* COMMENTS +Initial nodes: 7489 +END *)