update in delayed_updating

[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / substitution / lift_rmap_closed.ma

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 cc3e61bf7c5ebcfbf3097bff72a55b87e966c070..1fd176270d332f83b81c716b3c99649e6d9d4c79 100644 (file)
--- 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-.