X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frelocation%2Fldrop_lpx_sn.ma;h=3dc3b2f7974f1a829c27cd6feb565d6a2ae6b141;hb=376fd7774ef0fa2f30a4afb25aab6158e3cd04b7;hp=127f92cc0b8ab3520ae278f0acec4ceccb632f10;hpb=e4be4188d549da5fde54cdc37a6fb4eb2469c15b;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/ldrop_lpx_sn.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/ldrop_lpx_sn.ma
index 127f92cc0..3dc3b2f79 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/relocation/ldrop_lpx_sn.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/relocation/ldrop_lpx_sn.ma
@@ -13,7 +13,7 @@
 (**************************************************************************)
 
 include "basic_2/grammar/lpx_sn.ma".
-include "basic_2/relocation/ldrop.ma".
+include "basic_2/relocation/ldrop_leq.ma".
 
 (* DROPPING *****************************************************************)
 
@@ -44,16 +44,17 @@ lemma lpx_sn_liftable_dedropable: ∀R. (∀L. reflexive ? (R L)) →
 | #I #K1 #V1 #X #H elim (lpx_sn_inv_pair1 … H) -H
   #K2 #V2 #HK12 #HV12 #H destruct
   lapply (lpx_sn_fwd_length … HK12)
-  #H @(ex3_intro … (K2.ⓑ{I}V2))  (**) (* explicit constructor *)
-  /3 width=1 by lsuby_O1, lpx_sn_pair, monotonic_le_plus_l/
+  #H @(ex3_intro … (K2.ⓑ{I}V2)) (**) (* explicit constructor *)
+  /3 width=1 by lpx_sn_pair, monotonic_le_plus_l/
+  @leq_O2 normalize //
 | #I #L1 #K1 #V1 #e #_ #IHLK1 #K2 #HK12 elim (IHLK1 … HK12) -K1
-  /3 width=5 by ldrop_drop, lsuby_pair, lpx_sn_pair, ex3_intro/
+  /3 width=5 by ldrop_drop, leq_pair, lpx_sn_pair, ex3_intro/
 | #I #L1 #K1 #V1 #W1 #d #e #HLK1 #HWV1 #IHLK1 #X #H
   elim (lpx_sn_inv_pair1 … H) -H #K2 #W2 #HK12 #HW12 #H destruct
   elim (lift_total W2 d e) #V2 #HWV2
   lapply (H2R … HW12 … HLK1 … HWV1 … HWV2) -W1
   elim (IHLK1 … HK12) -K1
-  /3 width=6 by ldrop_skip, lsuby_succ, lpx_sn_pair, ex3_intro/
+  /3 width=6 by ldrop_skip, leq_succ, lpx_sn_pair, ex3_intro/
 ]
 qed-.