X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsubstitution%2Flift_eq.ma;h=fad4995de2f7f7af8fa789a1cfb7308d4c8a7396;hb=dfcad1c1a698bac1b7fb6a5f59393b28f45182af;hp=9e23b2cb9a5620d08bab1658735ea0cc32344dd6;hpb=f2a1fcef1f05dae5dff517ffc0a8439f6071955b;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_eq.ma b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_eq.ma
index 9e23b2cb9..fad4995de 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_eq.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_eq.ma
@@ -13,8 +13,14 @@
 (**************************************************************************)
 
 include "delayed_updating/substitution/lift.ma".
+(*
+include "ground/relocation/tr_uni_compose.ma".
+include "ground/relocation/tr_compose_compose.ma".
 include "ground/relocation/tr_compose_eq.ma".
+*)
+include "ground/relocation/tr_pap_eq.ma".
 include "ground/relocation/tr_pn_eq.ma".
+include "ground/lib/stream_tls_eq.ma".
 
 (* LIFT FOR PATH ***********************************************************)
 
@@ -29,14 +35,12 @@ interpretation
 
 lemma lift_eq_repl (A) (p) (k1) (k2):
       k1 ≗{A} k2 → stream_eq_repl … (λf1,f2. ↑❨k1, f1, p❩ = ↑❨k2, f2, p❩).
-#A #p @(path_ind_lift … p) -p [| #n #IH | #n #l0 #q #IH |*: #q #IH ]
-#k1 #k2 #f1 #f2 #Hk #Hf
+#A #p elim p -p [| * [ #n ] #q #IH ]
+#k1 #k2 #Hk #f1 #f2 #Hf
 [ <lift_empty <lift_empty /2 width=1 by/
-| <lift_d_empty_sn <lift_d_empty_sn <(tr_pap_eq_repl … Hf)
-  /3 width=1 by tr_compose_eq_repl, stream_eq_refl/
-| <lift_d_lcons_sn <lift_d_lcons_sn
-  /3 width=1 by tr_compose_eq_repl, stream_eq_refl/
-| /2 width=1 by/
+| <lift_d_sn <lift_d_sn <(tr_pap_eq_repl … Hf)
+  /3 width=3 by stream_tls_eq_repl, compose_repl_fwd_sn/
+| /3 width=1 by/
 | /3 width=1 by tr_push_eq_repl/
 | /3 width=1 by/
 | /3 width=1 by/
@@ -70,16 +74,15 @@ lemma lift_path_eq_repl (p):
 
 lemma lift_path_append_sn (p) (f) (q):
       q●↑[f]p = ↑❨(λg,p. proj_path g (q●p)), f, p❩.
-#p @(path_ind_lift … p) -p // [ #n #l #p |*: #p ] #IH #f #q
-[ <lift_d_lcons_sn <lift_d_lcons_sn <IH -IH //
-| <lift_m_sn <lift_m_sn //
-| <lift_L_sn <lift_L_sn >lift_lcons_alt // >lift_append_rcons_sn //
-  <IH <IH -IH <list_append_rcons_sn //
-| <lift_A_sn <lift_A_sn >lift_lcons_alt >lift_append_rcons_sn //
-  <IH <IH -IH <list_append_rcons_sn //
-| <lift_S_sn <lift_S_sn >lift_lcons_alt >lift_append_rcons_sn //
-  <IH <IH -IH <list_append_rcons_sn //
-]
+#p elim p -p // * [ #n ] #p #IH #f #q
+[ <lift_d_sn <lift_d_sn
+| <lift_m_sn <lift_m_sn
+| <lift_L_sn <lift_L_sn
+| <lift_A_sn <lift_A_sn
+| <lift_S_sn <lift_S_sn
+] 
+>lift_lcons_alt // >lift_append_rcons_sn //
+<IH <IH -IH <list_append_rcons_sn //
 qed.
 
 lemma lift_path_lcons (f) (p) (l):
@@ -88,6 +91,14 @@ lemma lift_path_lcons (f) (p) (l):
 >lift_lcons_alt <lift_path_append_sn //
 qed.
 
+lemma lift_path_d_sn (f) (p) (n):
+      (𝗱(f@❨n❩)◗↑[⇂*[n]f]p) = ↑[f](𝗱n◗p).
+// qed.
+
+lemma lift_path_m_sn (f) (p):
+      (𝗺◗↑[f]p) = ↑[f](𝗺◗p).
+// qed.
+
 lemma lift_path_L_sn (f) (p):
       (𝗟◗↑[⫯f]p) = ↑[f](𝗟◗p).
 // qed.
@@ -99,3 +110,14 @@ lemma lift_path_A_sn (f) (p):
 lemma lift_path_S_sn (f) (p):
       (𝗦◗↑[f]p) = ↑[f](𝗦◗p).
 // qed.
+(* COMMENT 
+
+(* Advanced constructions with proj_rmap and stream_tls *********************)
+
+lemma lift_rmap_tls_d_dx (f) (p) (m) (n):
+      ⇂*[m+n]↑[p]f ≗ ⇂*[m]↑[p◖𝗱n]f.
+#f #p #m #n
+<lift_rmap_d_dx >nrplus_inj_dx
+/2 width=1 by tr_tls_compose_uni_dx/
+qed.
+*)