X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Freduction%2Ftpr_tpss.ma;h=9aaf5c42382c4f8bc1b094845f74746f5315513d;hb=035e3f52f8da3cb3cdb493aa20568ad673cc2cf5;hp=e56c4a9a55e48461a855776543c1bf515762e289;hpb=83aea9a1662de32505512d6296921ebfffcfc53d;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/Basic_2/reduction/tpr_tpss.ma b/matita/matita/contribs/lambda_delta/Basic_2/reduction/tpr_tpss.ma
index e56c4a9a5..9aaf5c423 100644
--- a/matita/matita/contribs/lambda_delta/Basic_2/reduction/tpr_tpss.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/reduction/tpr_tpss.ma
@@ -13,7 +13,7 @@
 (**************************************************************************)
 
 include "Basic_2/unfold/ltpss_ltpss.ma".
-include "Basic_2/reduction/ltpr_drop.ma".
+include "Basic_2/reduction/ltpr_ldrop.ma".
 
 (* CONTEXT-FREE PARALLEL REDUCTION ON TERMS *********************************)
 
@@ -27,7 +27,7 @@ lemma tpr_tps_ltpr: ∀T1,T2. T1 ⇒ T2 →
   elim (tps_inv_atom1 … H) -H
   [ #H destruct -X /2/
   | * #K1 #V1 #i #Hdi #Hide #HLK1 #HVU1 #H #L2 #HL12 destruct -I;
-    elim (ltpr_drop_conf … HLK1 … HL12) -HLK1 HL12 #X #HLK2 #H
+    elim (ltpr_ldrop_conf … HLK1 … HL12) -HLK1 HL12 #X #HLK2 #H
     elim (ltpr_inv_pair1 … H) -H #K2 #V2 #_ #HV12 #H destruct -X;
     elim (lift_total V2 0 (i+1)) #U2 #HVU2
     lapply (tpr_lift … HV12 … HVU1 … HVU2) -HV12 HVU1 #HU12