X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Fmultiple%2Fdrops_drop.ma;h=2502ebc9e70f2039ba16b31e1f99f96933ddee5a;hp=2e938ac75c4823506562dbe3b66e75b3f302923b;hb=1fd63df4c77f5c24024769432ea8492748b4ac79;hpb=277fc8ff21ce3dbd6893b1994c55cf5c06a98355 diff --git a/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drop.ma b/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drop.ma index 2e938ac75..2502ebc9e 100644 --- a/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drop.ma +++ b/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drop.ma @@ -21,7 +21,7 @@ include "basic_2A/multiple/drops.ma". lemma drops_drop_trans: ∀L1,L,cs. ⬇*[Ⓕ, cs] L1 ≡ L → ∀L2,i. ⬇[i] L ≡ L2 → ∃∃L0,cs0,i0. ⬇[i0] L1 ≡ L0 & ⬇*[Ⓕ, cs0] L0 ≡ L2 & - @⦃i, cs⦄ ≡ i0 & cs ▭ i ≡ cs0. + @❪i, cs❫ ≘ i0 & cs ▭ i ≘ cs0. #L1 #L #cs #H elim H -L1 -L -cs [ /2 width=7 by drops_nil, minuss_nil, at_nil, ex4_3_intro/ | #L1 #L0 #L #cs #l #m #_ #HL0 #IHL0 #L2 #i #HL2