X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsubstitution%2Flift_after.ma;h=756b73587517f11161c639663beb027f74154be6;hb=dfcad1c1a698bac1b7fb6a5f59393b28f45182af;hp=02b2c6ee10b5e332e2f0004535111f426929d944;hpb=2c68dcfee2c3fe819c8f92a9609620a85909ce8a;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_after.ma b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_after.ma
index 02b2c6ee1..756b73587 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_after.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_after.ma
@@ -15,6 +15,7 @@
 include "delayed_updating/substitution/lift_eq.ma".
 include "ground/relocation/tr_compose_pap.ma".
 include "ground/relocation/tr_compose_pn.ma".
+include "ground/relocation/tr_compose_tls.ma".
 
 (* LIFT FOR PATH ***********************************************************)
 
@@ -22,7 +23,9 @@ include "ground/relocation/tr_compose_pn.ma".
 
 lemma lift_path_after (p) (f1) (f2):
       ↑[f2]↑[f1]p = ↑[f2∘f1]p.
-#p elim p -p [| * ] // #p #IH #f1 #f2
-<lift_path_L_sn <lift_path_L_sn <lift_path_L_sn
->tr_compose_push_bi //
+#p elim p -p [| * ] // [ #n ] #p #IH #f1 #f2
+[ <lift_path_d_sn <lift_path_d_sn <lift_path_d_sn //
+| <lift_path_L_sn <lift_path_L_sn <lift_path_L_sn
+  >tr_compose_push_bi //
+]
 qed.