X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Fsteps%2Frtc_isrt_shift.ma;h=0e0b73f4a350e7c4f9d3db3cf13cdf22ef6f2d57;hp=b9f14a9586d9a8bbc8cc704302568bf38efaf946;hb=baa54e5db0fb93c4242dd1b67a5018ca63206cf6;hpb=6604a232815858a6c75dd25ac45abd68438077ff diff --git a/matita/matita/contribs/lambdadelta/ground/steps/rtc_isrt_shift.ma b/matita/matita/contribs/lambdadelta/ground/steps/rtc_isrt_shift.ma index b9f14a958..0e0b73f4a 100644 --- a/matita/matita/contribs/lambdadelta/ground/steps/rtc_isrt_shift.ma +++ b/matita/matita/contribs/lambdadelta/ground/steps/rtc_isrt_shift.ma @@ -17,13 +17,13 @@ include "ground/steps/rtc_isrt.ma". (* RT-TRANSITION COUNTER ****************************************************) -(* Properties with test for costrained rt-transition counter ****************) +(* Properties with test for constrained rt-transition counter ***************) 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 *****************) +(* Inversion properties with test for constrained rt-transition counter *****) lemma isrt_inv_shift: ∀n,c. 𝐑𝐓❪n,↕*c❫ → 𝐑𝐓❪0,c❫ ∧ 0 = n. #n #c * #ri #rs #H