X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fmultiple%2Fllpx_sn_llor.ma;h=bc65d200238ffaaff8e06fed192053bf67c8e9ab;hb=52e675f555f559c047d5449db7fc89a51b977d35;hp=6f27ec9b088cf2ee37aa7f14027713307a754b5f;hpb=75fac6d60f67a4dfa38ea6c2cc45a18eda5d8996;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/multiple/llpx_sn_llor.ma b/matita/matita/contribs/lambdadelta/basic_2/multiple/llpx_sn_llor.ma
index 6f27ec9b0..bc65d2002 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/multiple/llpx_sn_llor.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/multiple/llpx_sn_llor.ma
@@ -27,8 +27,8 @@ lemma llpx_sn_llor_fwd_sn: ∀R. (∀L. reflexive … (R L)) →
 elim (llpx_sn_llpx_sn_alt … H1) -H1 #HL12 #IH1
 elim H2 -H2 #_ #HL1 #IH2
 @lpx_sn_intro_alt // #I1 #I #K1 #K #V1 #V #i #HLK1 #HLK
-lapply (ldrop_fwd_length_lt2 … HLK) #HiL
-elim (ldrop_O1_lt (Ⓕ) L2 i) // -HiL -HL1 -HL12 #I2 #K2 #V2 #HLK2
+lapply (drop_fwd_length_lt2 … HLK) #HiL
+elim (drop_O1_lt (Ⓕ) L2 i) // -HiL -HL1 -HL12 #I2 #K2 #V2 #HLK2
 elim (IH2 … HLK1 HLK2 HLK) -IH2 -HLK * /2 width=1 by conj/
 #HnT #H1 #H2 elim (IH1 … HnT … HLK1 HLK2) -IH1 -HnT -HLK1 -HLK2 /2 width=1 by conj/
 qed-.