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

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_rmap_closed.ma b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_rmap_closed.ma
index cc3e61bf7..1fd176270 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_rmap_closed.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_rmap_closed.ma
@@ -20,24 +20,24 @@ include "ground/lib/stream_eq_eq.ma".
 
 (* Destructions with cpp ****************************************************)
 
-lemma tls_plus_lift_rmap_closed (f) (q) (n):
-      q ϵ 𝐂❨n❩ →
-      ∀m. ⇂*[m]f ≗ ⇂*[m+n]↑[q]f.
-#f #q #n #Hq elim Hq -q -n //
+lemma tls_plus_lift_rmap_closed (o) (f) (q) (n):
+      q ϵ 𝐂❨o,n❩ →
+      ∀m. ⇂*[m]f ≗ ⇂*[m+n]🠢[f]q.
+#o #f #q #n #Hq elim Hq -q -n //
 #q #n #_ #IH #m
 <nplus_succ_dx <stream_tls_swap //
 qed-.
 
-lemma tls_lift_rmap_closed (f) (q) (n):
-      q ϵ 𝐂❨n❩ →
-      f ≗ ⇂*[n]↑[q]f.
-#f #q #n #H0
-/2 width=1 by tls_plus_lift_rmap_closed/
+lemma tls_lift_rmap_closed (o) (f) (q) (n):
+      q ϵ 𝐂❨o,n❩ →
+      f ≗ ⇂*[n]🠢[f]q.
+#o #f #q #n #H0
+/2 width=2 by tls_plus_lift_rmap_closed/
 qed-.
 
-lemma tls_succ_lift_rmap_append_L_closed_dx (f) (p) (q) (n):
-      q ϵ 𝐂❨n❩ →
-      ↑[p]f ≗ ⇂*[↑n]↑[p●𝗟◗q]f.
-#f #p #q #n #Hq
-/3 width=1 by tls_lift_rmap_closed, pcc_L_sn/
+lemma tls_succ_lift_rmap_append_L_closed_dx (o) (f) (p) (q) (n):
+      q ϵ 𝐂❨o,n❩ →
+      🠢[f]p ≗ ⇂*[↑n]🠢[f](p●𝗟◗q).
+#o #f #p #q #n #Hq
+/3 width=2 by tls_lift_rmap_closed, pcc_L_sn/
 qed-.