(* Inversions with rtc_max and rtc_shift ************************************)
-lemma rtc_ism_inv_max_shift_sn (n) (c1) (c2): ð\9d\90\8câ\9dªn,â\86\95*c1 â\88¨ c2â\9d« →
- â\88§â\88§ ð\9d\90\8câ\9dªð\9d\9f\8e,c1â\9d« & ð\9d\90\8câ\9dªn,c2â\9d«.
+lemma rtc_ism_inv_max_shift_sn (n) (c1) (c2): ð\9d\90\8câ\9d¨n,â\86\95*c1 â\88¨ c2â\9d© →
+ â\88§â\88§ ð\9d\90\8câ\9d¨ð\9d\9f\8e,c1â\9d© & ð\9d\90\8câ\9d¨n,c2â\9d©.
#n #c1 #c2 #H
elim (rtc_ism_inv_max … H) -H #n1 #n2 #Hc1 #Hc2 #H destruct
elim (rtc_ism_inv_shift … Hc1) -Hc1 #Hc1 * -n1 <nmax_zero_sn