X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsubstitution%2Flift_path_after.ma;h=ec54cdedf483d044d551f39e17010ff00007a0d7;hb=7008128d354c6e998a87bc2febe9f86ea714869c;hp=1bdf3c592b2d51f3aa51d012a6016974784c2798;hpb=a4cacf8e269910184348a037106551dbc8a46fd4;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_after.ma b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_after.ma
index 1bdf3c592..ec54cdedf 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_after.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_after.ma
@@ -12,20 +12,16 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "delayed_updating/substitution/lift_gen_eq.ma".
-include "ground/relocation/tr_compose_pap.ma".
-include "ground/relocation/tr_compose_pn.ma".
-include "ground/relocation/tr_compose_tls.ma".
+include "delayed_updating/substitution/lift_rmap_after.ma".
+include "delayed_updating/substitution/prelift_label_after.ma".
 
 (* LIFT FOR PATH ************************************************************)
 
 (* Constructions with tr_after **********************************************)
 
-lemma lift_path_after (p) (f1) (f2):
-      ↑[f2]↑[f1]p = ↑[f2∘f1]p.
-#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 //
-]
+lemma lift_path_after (g) (f) (p):
+      🠡[g]🠡[f]p = 🠡[g∘f]p.
+#g #f #p elim p -p //
+#l #p #IH
+<lift_path_rcons <lift_path_rcons  <IH -IH //
 qed.