lapply (isrt_inj โฆ Hn2 H2) -c2 #H destruct //
qed-.
-lemma isrt_inv_max_eq_t: โn,c1,c2. ๐๐โชn,c1 โจ c2โซ โ eq_t c1 c2 โ
+lemma isrt_inv_max_eq_t: โn,c1,c2. ๐๐โชn,c1 โจ c2โซ โ rtc_eq_t c1 c2 โ
โงโง ๐๐โชn,c1โซ & ๐๐โชn,c2โซ.
#n #c1 #c2 #H #Hc12
elim (isrt_inv_max โฆ H) -H #n1 #n2 #Hc1 #Hc2 #H destruct