X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fcsubv%2Fdrop.ma;h=0fb7bbceb39d14756d6123e486714dc93085bec3;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=007670dbb2b6c79c40008de551c94db655f49ede;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_1/csubv/drop.ma b/matita/matita/contribs/lambdadelta/basic_1/csubv/drop.ma index 007670dbb..0fb7bbceb 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/csubv/drop.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/csubv/drop.ma @@ -14,11 +14,13 @@ (* This file was automatically generated: do not edit *********************) -include "Basic-1/csubv/props.ma". +include "basic_1/csubv/props.ma". -include "Basic-1/drop/fwd.ma". +include "basic_1/csubv/fwd.ma". -theorem csubv_drop_conf: +include "basic_1/drop/fwd.ma". + +lemma csubv_drop_conf: \forall (c1: C).(\forall (c2: C).((csubv c1 c2) \to (\forall (e1: C).(\forall (h: nat).((drop h O c1 e1) \to (ex2 C (\lambda (e2: C).(csubv e1 e2)) (\lambda (e2: C).(drop h O c2 e2)))))))) @@ -109,7 +111,4 @@ C).(drop (S h0) O c4 e2)) (ex2 C (\lambda (e2: C).(csubv e1 e2)) (\lambda (e2: C).(csubv e1 e2)) (\lambda (e2: C).(drop (S h0) O (CHead c4 (Flat f2) v2) e2)) x H5 (drop_drop (Flat f2) h0 c4 x H6 v2))))) H4)))))) h H2)))))))))))) c1 c2 H))). -(* COMMENTS -Initial nodes: 1897 -END *)