X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FGround-1%2Fplist%2Fprops.ma;h=990397229d24a9e0b09a4fadee0c628b4970f842;hb=e9eda8f13045ff3d4f7b1ec93dec96e09bf65f1a;hp=cfe98b20d8803d5e0456c917880c9674935d42c7;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Ground-1/plist/props.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Ground-1/plist/props.ma index cfe98b20d..990397229 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Ground-1/plist/props.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Ground-1/plist/props.ma @@ -14,7 +14,7 @@ (* This file was automatically generated: do not edit *********************) -include "Base-1/plist/defs.ma". +include "Ground-1/plist/defs.ma". theorem papp_ss: \forall (is1: PList).(\forall (is2: PList).(eq PList (papp (Ss is1) (Ss @@ -28,4 +28,7 @@ nat).(\lambda (p: PList).(\lambda (H: ((\forall (is2: PList).(eq PList (papp (Ss (papp p is2)) (\lambda (p0: PList).(eq PList (PCons n (S n0) p0) (PCons n (S n0) (Ss (papp p is2))))) (refl_equal PList (PCons n (S n0) (Ss (papp p is2)))) (papp (Ss p) (Ss is2)) (H is2))))))) is1). +(* COMMENTS +Initial nodes: 151 +END *)