notational update in ground_2 and basic_2

[helm.git] / matita / matita / contribs / lambdadelta / ground_2 / relocation / nstream_istot.ma

diff --git a/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_istot.ma b/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_istot.ma
index 759b83a13026dce98c53cf4e8f2b0e9aaae8e55a..8dbd7ce38ad9cd4f351319f4ab5c1d1dfeecd65e 100644 (file)
--- a/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_istot.ma
+++ b/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_istot.ma
@@ -22,7 +22,7 @@ rec definition apply (i: nat) on i: rtmap → nat ≝ ?.
 * #n #f cases i -i
 [ @n
 | #i lapply (apply i f) -apply -i -f
-  #i @(⫯(n+i))
+  #i @(â\86\91(n+i))
 ]
 defined.
 
@@ -35,7 +35,7 @@ lemma at_O1: ∀i2,f. @⦃0, i2@f⦄ ≘ i2.
 #i2 elim i2 -i2 /2 width=5 by at_refl, at_next/
 qed.
 
-lemma at_S1: â\88\80n,f,i1,i2. @â¦\83i1, fâ¦\84 â\89\98 i2 â\86\92 @â¦\83⫯i1, n@fâ¦\84 â\89\98 ⫯(n+i2).
+lemma at_S1: â\88\80n,f,i1,i2. @â¦\83i1, fâ¦\84 â\89\98 i2 â\86\92 @â¦\83â\86\91i1, n@fâ¦\84 â\89\98 â\86\91(n+i2).
 #n elim n -n /3 width=7 by at_push, at_next/
 qed.
 
@@ -60,8 +60,8 @@ lemma at_inv_O1: ∀f,n,i2. @⦃0, n@f⦄ ≘ i2 → n = i2.
 #j2 #Hj * -i2 /3 width=1 by eq_f/
 qed-.
 
-lemma at_inv_S1: â\88\80f,n,j1,i2. @â¦\83⫯j1, n@f⦄ ≘ i2 →
-                 â\88\83â\88\83j2. @â¦\83j1, fâ¦\84 â\89\98 j2 & ⫯(n+j2) = i2.
+lemma at_inv_S1: â\88\80f,n,j1,i2. @â¦\83â\86\91j1, n@f⦄ ≘ i2 →
+                 â\88\83â\88\83j2. @â¦\83j1, fâ¦\84 â\89\98 j2 & â\86\91(n+j2) = i2.
 #f #n elim n -n /2 width=5 by at_inv_npx/
 #n #IH #j1 #i2 #H elim (at_inv_xnx … H) -H [2,3: // ]
 #j2 #Hj * -i2 elim (IH … Hj) -IH -Hj
@@ -94,7 +94,7 @@ elim (eq_inv_seq_aux … H) -H normalize //
 #Hn #Hf /4 width=1 by eq_f2, eq_f/
 qed.
 
-lemma apply_S1: â\88\80f,i. (⫯f)@â\9d´iâ\9dµ = ⫯(f@❴i❵).
+lemma apply_S1: â\88\80f,i. (â\86\91f)@â\9d´iâ\9dµ = â\86\91(f@❴i❵).
 * #n #f * //
 qed.