X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Fty3%2Farity.ma;h=4400e1540b5c7043025780b5fe20d4513b3c1558;hb=de77f79d60ee3c1d30fe03469172950b557441f3;hp=3be6c0d3b056d950b5e55d1cf896c37dfe70b660;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/ty3/arity.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/ty3/arity.ma index 3be6c0d3b..4400e1540 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/ty3/arity.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/ty3/arity.ma @@ -14,11 +14,11 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/ty3/pr3_props.ma". +include "Basic-1/ty3/pr3_props.ma". -include "LambdaDelta-1/arity/pr3.ma". +include "Basic-1/arity/pr3.ma". -include "LambdaDelta-1/asucc/fwd.ma". +include "Basic-1/asucc/fwd.ma". theorem ty3_arity: \forall (g: G).(\forall (c: C).(\forall (t1: T).(\forall (t2: T).((ty3 g c @@ -180,4 +180,7 @@ Cast) t4 t3) a1)) (\lambda (a1: A).(arity g c0 (THead (Flat Cast) t0 t4) x) (arity_repl g c0 t0 (asucc g x0) H9 (asucc g (asucc g x)) (asucc_repl g x0 (asucc g x) (arity_mono g c0 t4 x0 H8 (asucc g x) H6))) t4 H6))))) H7))))) H4)))))))))) c t1 t2 H))))). +(* COMMENTS +Initial nodes: 3761 +END *)