X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpg_drops.ma;h=9908844c8f2a692208f995b62a5f0f18cb8d2ab6;hb=68b4f2490c12139c03760b39895619e63b0f38c9;hp=9ea5a2521c53fd943bcf3936f257e0bdb2e19c47;hpb=25c634037771dff0138e5e8e3d4378183ff49b86;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_drops.ma
index 9ea5a2521..9908844c8 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_drops.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_drops.ma
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2/xoa/ex_5_5.ma".
+include "ground/xoa/ex_5_5.ma".
 include "static_2/relocation/drops_drops.ma".
 include "static_2/s_computation/fqup_weight.ma".
 include "static_2/s_computation/fqup_drops.ma".
@@ -60,8 +60,7 @@ lemma cpg_inv_lref1_drops: ∀Rt,c,h,G,i,L,T2. ❪G,L❫ ⊢ #i ⬈[Rt,c,h] T2 
     /3 width=1 by or3_intro0, conj/
   ] *
   #cV #L #W #W2 #HKL #HW2 #HWV2 #H destruct
-  lapply (lifts_trans … HWV2 … HVT2 ??) -V2 [3,6: |*: // ] #H
-  lapply (lifts_uni … H) -H #H
+  lapply (lifts_trans … HWV2 … HVT2 (𝐔❨↑↑i❩) ?) -V2 [1,3: // ] #H (**) (* explicit rtmap *)
   /4 width=8 by drops_drop, ex4_4_intro, or3_intro2, or3_intro1/
 ]
 qed-.