]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_id.ma
update in delayed_updating
[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / substitution / lift_path_id.ma
index 1966c25f296285cae82e212e877101d81a31e6cb..20408487bf7564bfcda64795e41acab257c723a2 100644 (file)
 (*                                                                        *)
 (**************************************************************************)
 
-include "delayed_updating/substitution/lift_eq.ma".
-include "ground/relocation/tr_id_pap.ma".
-include "ground/relocation/tr_id_tls.ma".
+include "delayed_updating/substitution/lift_path.ma".
+include "delayed_updating/substitution/lift_rmap_id.ma".
+include "delayed_updating/substitution/prelift_label_id.ma".
 
 (* LIFT FOR PATH ************************************************************)
 
 (* Constructions with tr_id *************************************************)
 
 lemma lift_path_id (p):
-      p = [𝐢]p.
+      p = 🠡[𝐢]p.
 #p elim p -p //
-* [ #n ] #p #IH //
-[ <lift_path_d_sn //
-| <lift_path_L_sn //
-]
+#l #p #IH
+<lift_path_rcons //
 qed.