update in ground

[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / tr_compose.ma

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_compose.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_compose.ma
index bbecabe017d40e11c70bd844451751844b0b8041..a72647d29b78228e918a3d25ba3529cbbb4d47da 100644 (file)
--- a/matita/matita/contribs/lambdadelta/ground/relocation/tr_compose.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_compose.ma
@@ -19,7 +19,7 @@ include "ground/relocation/tr_pap.ma".
 
 corec definition tr_compose: tr_map → tr_map → tr_map.
 #f2 * #p1 #f1
-@(stream_cons … (f2@❨p1❩))
+@(stream_cons … (f2＠⧣❨p1❩))
 @(tr_compose ? f1) -tr_compose -f1
 @(⇂*[p1]f2)
 defined.
@@ -32,7 +32,7 @@ interpretation
 
 (*** compose_rew *)
 lemma tr_compose_unfold (f2) (f1):
-      ∀p1. f2@❨p1❩⨮(⇂*[p1]f2)∘f1 = f2∘(p1⨮f1).
+      ∀p1. f2＠⧣❨p1❩⨮(⇂*[p1]f2)∘f1 = f2∘(p1⨮f1).
 #f2 #f1 #p1 <(stream_unfold … (f2∘(p1⨮f1))) //
 qed.
 
@@ -41,7 +41,7 @@ qed.
 (*** compose_inv_rew *)
 lemma tr_compose_inv_unfold (f2) (f1):
       ∀f,p1,p. f2∘(p1⨮f1) = p⨮f →
-      ∧∧ f2@❨p1❩ = p & (⇂*[p1]f2)∘f1 = f.
+      ∧∧ f2＠⧣❨p1❩ = p & (⇂*[p1]f2)∘f1 = f.
 #f2 #f1 #f #p1 #p
 <tr_compose_unfold #H destruct
 /2 width=1 by conj/
@@ -50,7 +50,7 @@ qed-.
 (*** compose_inv_S2 *)
 lemma tr_compose_inv_succ_dx (f2) (f1):
       ∀f,p2,p1,p. (p2⨮f2)∘(↑p1⨮f1) = p⨮f →
-      ∧∧ f2@❨p1❩+p2 = p & f2∘(p1⨮f1) = f2@❨p1❩⨮f.
+      ∧∧ f2＠⧣❨p1❩+p2 = p & f2∘(p1⨮f1) = f2＠⧣❨p1❩⨮f.
 #f2 #f1 #f #p2 #p1 #p
 <tr_compose_unfold #H destruct
 >nsucc_inj <stream_tls_swap