X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsubstitution%2Flift_rmap_closed.ma;h=56abc470717544ad2e53d3aa681608f48a349dcf;hp=cc3e61bf7c5ebcfbf3097bff72a55b87e966c070;hb=d06053844638d88936d711b66fddbcca2a9add1c;hpb=9e31ac1f3f868349154b0ce2e550e2476aaf6a30

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..56abc4707 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❩ →
+lemma tls_plus_lift_rmap_closed (o) (f) (q) (n):
+      q ϵ 𝐂❨o,n❩ →
       ∀m. ⇂*[m]f ≗ ⇂*[m+n]↑[q]f.
-#f #q #n #Hq elim Hq -q -n //
+#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❩ →
+lemma tls_lift_rmap_closed (o) (f) (q) (n):
+      q ϵ 𝐂❨o,n❩ →
       f ≗ ⇂*[n]↑[q]f.
-#f #q #n #H0
-/2 width=1 by tls_plus_lift_rmap_closed/
+#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❩ →
+lemma tls_succ_lift_rmap_append_L_closed_dx (o) (f) (p) (q) (n):
+      q ϵ 𝐂❨o,n❩ →
       ↑[p]f ≗ ⇂*[↑n]↑[p●𝗟◗q]f.
-#f #p #q #n #Hq
-/3 width=1 by tls_lift_rmap_closed, pcc_L_sn/
+#o #f #p #q #n #Hq
+/3 width=2 by tls_lift_rmap_closed, pcc_L_sn/
 qed-.