X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ftr_uni_compose.ma;h=abae78a7e74e436ca00059267e3e200993e0daaf;hb=b0c6bbd5db69489a5ebd1b36de6685fa6de441b3;hp=0648738191ed59e9f95f07bcd955c1827e2482c6;hpb=0818b903bf0fb363fab2d7d9f1da64956ea54e81;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma
index 064873819..abae78a7e 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma
@@ -13,15 +13,52 @@
 (**************************************************************************)
 
 include "ground/relocation/tr_uni_pap.ma".
-include "ground/relocation/tr_compose_pap.ma".
-include "ground/relocation/tr_pap_eq.ma".
+include "ground/relocation/tr_id_compose.ma".
+include "ground/relocation/tr_compose_pn.ma".
+include "ground/lib/stream_hdtl_eq.ma".
 
 (* UNIFORM ELEMENTS FOR TOTAL RELOCATION MAPS *******************************)
 
+(* Constructions with tr_compose and tr_next ********************************)
+
+lemma tr_compose_uni_unit_sn (f):
+      ↑f ≗ 𝐮❨𝟏❩∘f.
+#f >nsucc_zero <tr_uni_succ //
+qed.
+
+(* Constructions with tr_compose and tr_tl **********************************)
+
+lemma tr_tl_compose_uni_sn (n) (f):
+      ⇂f ≗ ⇂(𝐮❨n❩∘f).
+#n @(nat_ind_succ … n) -n //
+/2 width=1 by stream_tl_eq_repl/
+qed.
+
+(* Constructions with tr_compose and tr_tls *********************************)
+
+lemma tr_tls_compose_uni_sn (f) (n) (p:pnat):
+      ⇂*[p]f ≗ ⇂*[p](𝐮❨n❩∘f).
+#f #n #p elim p -p //
+#p #IH /2 width=1 by stream_tl_eq_repl/
+qed.
+
+lemma tr_tl_compose_uni_dx (f) (n):
+      ⇂*[↑n]f ≗ ⇂(f∘𝐮❨n❩).
+// qed.
+
+lemma tr_tls_compose_uni_dx (f) (p) (n):
+      ⇂*[p+n]f ≗ ⇂*[p](f∘𝐮❨n❩).
+#f #p elim p -p [| #p #IH ] #n
+[ <nrplus_unit_sn //
+| <nrplus_succ_sn >nsucc_inj >nsucc_inj
+  /2 width=3 by stream_tl_eq_repl/
+]
+qed.
+
 (* Main constructions with tr_compose and tr_tls ****************************)
 
-theorem tr_compose_uni_dx (f) (p):
-        (𝐮❨f@❨p❩❩∘⇂*[p]f ≗ f∘𝐮❨p❩).
+theorem tr_compose_uni_dx_pap (f) (p):
+        (𝐮❨f＠⧣❨p❩❩∘⇂*[p]f) ≗ f∘𝐮❨p❩.
 #f #p
 @nstream_eq_inv_ext #q
 <tr_compose_pap <tr_compose_pap