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=36f7cc9abae8d445d0d4d6efdcc550e8d54df94a;hb=12dc655b7f5321b33b93a310d53e23e60e090caa;hp=dbe215329196c0f8cc2b727d97caf47072f614fa;hpb=dd41efaab7f147d5673cc30a27d36375f9b52c9d;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 dbe215329..36f7cc9ab 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-.