X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Fcounters%2Frtc_ism_shift.ma;h=e3acb7ccdf6a4d8a07daf6da2bdaeee59c05d47e;hb=8db3579bec4d9a97af526f95a179587a2fbfe3e3;hp=3ecc6d0171de5a2faaba9a47d14eed7cc9c1c5ba;hpb=dbc57c92512c04b3fd88f8289bb8dbe99b2f90e0;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/counters/rtc_ism_shift.ma b/matita/matita/contribs/lambdadelta/ground/counters/rtc_ism_shift.ma
index 3ecc6d017..e3acb7ccd 100644
--- a/matita/matita/contribs/lambdadelta/ground/counters/rtc_ism_shift.ma
+++ b/matita/matita/contribs/lambdadelta/ground/counters/rtc_ism_shift.ma
@@ -19,18 +19,18 @@ include "ground/counters/rtc_ism.ma".
 
 (* Constructions with rtc_shift *********************************************)
 
-lemma rtc_isr_shift (c):  𝐌❪𝟎,c❫ → 𝐌❪𝟎,↕*c❫.
+lemma rtc_isr_shift (c):  𝐌❨𝟎,c❩ → 𝐌❨𝟎,↕*c❩.
 #c * #ri #rs #H destruct /2 width=3 by ex1_2_intro/
 qed.
 
 (* Inversions with rtc_shift ************************************************)
 
-lemma rtc_ism_inv_shift (n) (c): 𝐌❪n,↕*c❫ → ∧∧ 𝐌❪𝟎,c❫ & 𝟎 = n.
+lemma rtc_ism_inv_shift (n) (c): 𝐌❨n,↕*c❩ → ∧∧ 𝐌❨𝟎,c❩ & 𝟎 = n.
 #n #c * #ri #rs #H
 elim (rtc_shift_inv_dx … H) -H #rt0 #rs0 #ti0 #ts0 #_ #_ #H1 #H2 #H3
 elim (eq_inv_nmax_zero … H1) -H1 /3 width=3 by ex1_2_intro, conj/
 qed-.
 
-lemma rtc_isr_inv_shift (c): 𝐌❪𝟎,↕*c❫ → 𝐌❪𝟎,c❫.
+lemma rtc_isr_inv_shift (c): 𝐌❨𝟎,↕*c❩ → 𝐌❨𝟎,c❩.
 #c #H elim (rtc_ism_inv_shift … H) -H //
 qed-.