X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fmultiple%2Fdrops_drops.ma;h=2ee3a07ff415d3ab41edbd28c426892ad7351da1;hb=43282d3750af8831c8100c60d75c56fdfb7ff3c9;hp=c4751028ae245797ee343bcdc15cf9adbbfbaf62;hpb=6c985e4e2e7846a2b9abd0c84569f21c24e9ce2f;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/multiple/drops_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/multiple/drops_drops.ma index c4751028a..2ee3a07ff 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/multiple/drops_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/multiple/drops_drops.ma @@ -19,7 +19,7 @@ include "basic_2/multiple/drops_drop.ma". (* Main properties **********************************************************) (* Basic_1: was: drop1_trans *) -theorem drops_trans: ∀L,L2,s,des2. ⇩*[s, des2] L ≡ L2 → ∀L1,des1. ⇩*[s, des1] L1 ≡ L → - ⇩*[s, des2 @@ des1] L1 ≡ L2. +theorem drops_trans: ∀L,L2,s,des2. ⬇*[s, des2] L ≡ L2 → ∀L1,des1. ⬇*[s, des1] L1 ≡ L → + ⬇*[s, des2 @@ des1] L1 ≡ L2. #L #L2 #s #des2 #H elim H -L -L2 -des2 /3 width=3 by drops_cons/ qed-.