X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Fgetl%2Fflt.ma;h=3d6c90f730e35ac009d34063aa40650c93ffb7dd;hb=de77f79d60ee3c1d30fe03469172950b557441f3;hp=9c3f4ffaa190367777e21923a60154eb87313cb1;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/getl/flt.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/getl/flt.ma index 9c3f4ffaa..3d6c90f73 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/getl/flt.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/getl/flt.ma @@ -14,11 +14,11 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/getl/fwd.ma". +include "Basic-1/getl/fwd.ma". -include "LambdaDelta-1/clear/props.ma". +include "Basic-1/clear/props.ma". -include "LambdaDelta-1/flt/props.ma". +include "Basic-1/flt/props.ma". theorem getl_flt: \forall (b: B).(\forall (c: C).(\forall (e: C).(\forall (u: T).(\forall (i: @@ -61,4 +61,7 @@ nat).(\lambda (_: (((getl n (CHead c0 k t) (CHead e (Bind b) u)) \to (flt e u (CHead c0 k t) (TLRef n))))).(\lambda (H1: (getl (S n) (CHead c0 k t) (CHead e (Bind b) u))).(let H_y \def (H e u (r k n) (getl_gen_S k c0 (CHead e (Bind b) u) t n H1)) in (flt_arith2 e c0 u (r k n) H_y k t (S n)))))) i)))))))) c)). +(* COMMENTS +Initial nodes: 815 +END *)