X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Fsteps%2Frtc_ist_shift.ma;h=66af3f4a5cd52cb5e4a7b46154e44f64c8a38d5c;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hp=99ad5a092fe37ef3049c4e70223b0d2dc0c9fcc4;hpb=0af3592e3a85a4bb82c5c6df259cf9ab117ba0b1;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground_2/steps/rtc_ist_shift.ma b/matita/matita/contribs/lambdadelta/ground_2/steps/rtc_ist_shift.ma
index 99ad5a092..66af3f4a5 100644
--- a/matita/matita/contribs/lambdadelta/ground_2/steps/rtc_ist_shift.ma
+++ b/matita/matita/contribs/lambdadelta/ground_2/steps/rtc_ist_shift.ma
@@ -19,13 +19,13 @@ include "ground_2/steps/rtc_ist.ma".
 
 (* Properties with test for t-transition counter ****************************)
 
-lemma ist_zero_shift: ∀c. 𝐓⦃0,c⦄ → 𝐓⦃0,↕*c⦄.
+lemma ist_zero_shift: ∀c. 𝐓❪0,c❫ → 𝐓❪0,↕*c❫.
 #c #H destruct //
 qed.
 
 (* Inversion properties with test for t-transition counter ******************)
 
-lemma ist_inv_shift: ∀n,c. 𝐓⦃n,↕*c⦄ → ∧∧ 𝐓⦃0,c⦄ & 0 = n.
+lemma ist_inv_shift: ∀n,c. 𝐓❪n,↕*c❫ → ∧∧ 𝐓❪0,c❫ & 0 = n.
 #n #c #H
 elim (shift_inv_dx … H) -H #rt0 #rs0 #ti0 #ts0 #H1 #_ #H2 #H3 #H4 destruct
 elim (max_inv_O3 … H1) -H1 #H11 #H12 destruct
@@ -33,6 +33,6 @@ elim (max_inv_O3 … H2) -H2 #H21 #H22 destruct
 /2 width=1 by conj/
 qed-.
 
-lemma ist_inv_zero_shift: ∀c. 𝐓⦃0,↕*c⦄ → 𝐓⦃0,c⦄.
+lemma ist_inv_zero_shift: ∀c. 𝐓❪0,↕*c❫ → 𝐓❪0,c❫.
 #c #H elim (ist_inv_shift … H) -H //
 qed-.