X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Farity%2Fsubst0.ma;h=16046993b35087ed50d658020bd306f124174634;hb=d3548c16f481b14ce94e64c790bc767c59590050;hp=82894da35722dd1bd147226cf978a609335b632f;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/arity/subst0.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/arity/subst0.ma index 82894da35..16046993b 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/arity/subst0.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/arity/subst0.ma @@ -14,17 +14,17 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/arity/props.ma". +include "Basic-1/arity/props.ma". -include "LambdaDelta-1/fsubst0/fwd.ma". +include "Basic-1/fsubst0/fwd.ma". -include "LambdaDelta-1/csubst0/getl.ma". +include "Basic-1/csubst0/getl.ma". -include "LambdaDelta-1/subst0/dec.ma". +include "Basic-1/subst0/dec.ma". -include "LambdaDelta-1/subst0/fwd.ma". +include "Basic-1/subst0/fwd.ma". -include "LambdaDelta-1/getl/getl.ma". +include "Basic-1/getl/getl.ma". theorem arity_gen_cvoid_subst0: \forall (g: G).(\forall (c: C).(\forall (t: T).(\forall (a: A).((arity g c t @@ -233,6 +233,9 @@ A).(\lambda (_: (leq g a1 a2)).(\lambda (d: C).(\lambda (u: T).(\lambda (i: nat).(\lambda (H3: (getl i c0 (CHead d (Bind Void) u))).(\lambda (w: T).(\lambda (v: T).(\lambda (H4: (subst0 i w t0 v)).(\lambda (P: Prop).(H1 d u i H3 w v H4 P)))))))))))))))) c t a H))))). +(* COMMENTS +Initial nodes: 4131 +END *) theorem arity_gen_cvoid: \forall (g: G).(\forall (c: C).(\forall (t: T).(\forall (a: A).((arity g c t @@ -254,6 +257,9 @@ t (lift (S O) i x)))).(or_ind (subst0 i u t (lift (S O) i x)) (eq T t (lift x) (\lambda (t0: T).(ex T (\lambda (v: T).(eq T t0 (lift (S O) i v))))) (ex_intro T (\lambda (v: T).(eq T (lift (S O) i x) (lift (S O) i v))) x (refl_equal T (lift (S O) i x))) t H3))) H2))) H1))))))))))). +(* COMMENTS +Initial nodes: 423 +END *) theorem arity_fsubst0: \forall (g: G).(\forall (c1: C).(\forall (t1: T).(\forall (a: A).((arity g @@ -1110,6 +1116,9 @@ c c2))).(land_ind (subst0 i u t t2) (csubst0 i u c c2) (arity g c2 t2 a2) (\lambda (H7: (subst0 i u t t2)).(\lambda (H8: (csubst0 i u c c2)).(arity_repl g c2 t2 a1 (H1 d1 u i H3 c2 t2 (fsubst0_both i u c t t2 H7 c2 H8)) a2 H2))) H6)) H5))))))))))))))))) c1 t1 a H))))). +(* COMMENTS +Initial nodes: 20387 +END *) theorem arity_subst0: \forall (g: G).(\forall (c: C).(\forall (t1: T).(\forall (a: A).((arity g c @@ -1122,4 +1131,7 @@ a))))))))))) (H0: (getl i c (CHead d (Bind Abbr) u))).(\lambda (t2: T).(\lambda (H1: (subst0 i u t1 t2)).(arity_fsubst0 g c t1 a H d u i H0 c t2 (fsubst0_snd i u c t1 t2 H1)))))))))))). +(* COMMENTS +Initial nodes: 89 +END *)