]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground_2/steps/rtc_max.ma
notational update in ground_2 and basic_2
[helm.git] / matita / matita / contribs / lambdadelta / ground_2 / steps / rtc_max.ma
index 46f457536456d6e034d544f3e4c1e604101bb6e0..cfd1be7e5f675917f8e979e79f151c3f282263eb 100644 (file)
@@ -71,6 +71,10 @@ lemma isrt_max_O2: โˆ€n,c1,c2. ๐‘๐“โฆƒn, c1โฆ„ โ†’ ๐‘๐“โฆƒ0, c2โฆ„ โ†’ 
 #n #c1 #c2 #H1 #H2 >(max_O2 n) /2 width=1 by isrt_max/
 qed.
 
+lemma isrt_max_idem1: โˆ€n,c1,c2. ๐‘๐“โฆƒn, c1โฆ„ โ†’ ๐‘๐“โฆƒn, c2โฆ„ โ†’ ๐‘๐“โฆƒn, c1โˆจc2โฆ„.
+#n #c1 #c2 #H1 #H2 >(idempotent_max n) /2 width=1 by isrt_max/
+qed.
+
 (* Inversion properties with test for constrained rt-transition counter *****)
 
 lemma isrt_inv_max: โˆ€n,c1,c2. ๐‘๐“โฆƒn, c1 โˆจ c2โฆ„ โ†’
@@ -83,12 +87,12 @@ qed-.
 lemma isrt_inv_max_O_dx: โˆ€n,c1,c2. ๐‘๐“โฆƒn, c1 โˆจ c2โฆ„ โ†’ ๐‘๐“โฆƒ0, c2โฆ„ โ†’ ๐‘๐“โฆƒn, c1โฆ„.
 #n #c1 #c2 #H #H2
 elim (isrt_inv_max โ€ฆ H) -H #n1 #n2 #Hn1 #Hn2 #H destruct
-lapply (isrt_mono โ€ฆ Hn2 H2) -c2 #H destruct //
+lapply (isrt_inj โ€ฆ Hn2 H2) -c2 #H destruct //
 qed-.
 
 (* Properties with shift ****************************************************)
 
-lemma max_shift: รข\88\80c1,c2. ((รข\86\93c1) รข\88ยจ (รข\86\93c2)) = รข\86\93(c1โˆจc2).
+lemma max_shift: รข\88\80c1,c2. ((รข\86\95*c1) รข\88ยจ (รข\86\95*c2)) = รข\86\95*(c1โˆจc2).
 * #ri1 #rs1 #ti1 #ts1 * #ri2 #rs2 #ti2 #ts2
 <shift_rew <shift_rew <shift_rew <max_rew //
 qed.