X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Fmultiple%2Fdrops_drops.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Fmultiple%2Fdrops_drops.ma;h=c8387083e08f8d6f1186e8b346739c07d126cd03;hb=291fe1d3b56faf91d07099f43f3ebde2988649e1;hp=36f7cc9abae8d445d0d4d6efdcc550e8d54df94a;hpb=b5507c449ba38a76666a35664f9cf4e1953ad8ec;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drops.ma b/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drops.ma index 36f7cc9ab..c8387083e 100644 --- a/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drops.ma @@ -20,6 +20,6 @@ include "basic_2A/multiple/drops_drop.ma". (* Main properties **********************************************************) theorem drops_trans: ∀L,L2,s,cs2. ⬇*[s, cs2] L ≡ L2 → ∀L1,cs1. ⬇*[s, cs1] L1 ≡ L → - ⬇*[s, cs2 ;; cs1] L1 ≡ L2. + ⬇*[s, cs2 ● cs1] L1 ≡ L2. #L #L2 #s #cs2 #H elim H -L -L2 -cs2 /3 width=3 by drops_cons/ qed-.