X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ftr_uni_compose.ma;h=92315b6a6526c1a605ea0ffae62fd68403f85d65;hb=77479649510792efe4d9cbff508e118360862594;hp=54cf97875272b3995f5bea6b84279ae21f3ec9d4;hpb=7cb9cdbd64e1abbedf3c6af5638c42e3da3f5cea;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 54cf97875..92315b6a6 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma
@@ -29,6 +29,12 @@ 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.
@@ -45,7 +51,7 @@ qed.
 (* Main constructions with tr_compose and tr_tls ****************************)
 
 theorem tr_compose_uni_dx (f) (p):
-        (𝐮❨f@❨p❩❩∘⇂*[p]f) ≗ f∘𝐮❨p❩.
+        (𝐮❨f＠⧣❨p❩❩∘⇂*[p]f) ≗ f∘𝐮❨p❩.
 #f #p
 @nstream_eq_inv_ext #q
 <tr_compose_pap <tr_compose_pap