X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Fsteps%2Frtc_shift.ma;h=9601be038fdb753b502154fbf3753cd5e9d4bcb0;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hp=165e1eeda586863948d44f2f2c2ab32a061ac84d;hpb=5b5dca0c118dfbe3ba8f0514ef07549544eb7810;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground_2/steps/rtc_shift.ma b/matita/matita/contribs/lambdadelta/ground_2/steps/rtc_shift.ma
index 165e1eeda..9601be038 100644
--- a/matita/matita/contribs/lambdadelta/ground_2/steps/rtc_shift.ma
+++ b/matita/matita/contribs/lambdadelta/ground_2/steps/rtc_shift.ma
@@ -12,6 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "ground_2/xoa/ex_5_4.ma".
 include "ground_2/notation/functions/updownarrowstar_1.ma".
 include "ground_2/steps/rtc_isrt.ma".
 
@@ -43,18 +44,18 @@ qed-.
 
 (* Properties with test for costrained rt-transition counter ****************)
 
-lemma isr_shift: âc. ððâ¦0,câ¦ â ððâ¦0,â*câ¦.
+lemma isr_shift: âc. ððâª0,câ« â ððâª0,â*câ«.
 #c * #ri #rs #H destruct /2 width=3 by ex1_2_intro/
 qed.
 
 (* Inversion properties with test for costrained rt-counter *****************)
 
-lemma isrt_inv_shift: ân,c. ððâ¦n,â*câ¦ â ððâ¦0,câ¦ â§ 0 = n.
+lemma isrt_inv_shift: ân,c. ððâªn,â*câ« â ððâª0,câ« â§ 0 = n.
 #n #c * #ri #rs #H
 elim (shift_inv_dx â¦ H) -H #rt0 #rs0 #ti0 #ts0 #_ #_ #H1 #H2 #H3
 elim (max_inv_O3 â¦ H1) -H1 /3 width=3 by ex1_2_intro, conj/
 qed-.
 
-lemma isr_inv_shift: âc. ððâ¦0,â*câ¦ â ððâ¦0,câ¦.
+lemma isr_inv_shift: âc. ððâª0,â*câ« â ððâª0,câ«.
 #c #H elim (isrt_inv_shift â¦ H) -H //
 qed-.