(* Advanced properties ******************************************************)
(* Basic_2A1: uses: lsx_sort *)
-lemma rsx_sort (h) (G): â\88\80L,s. G â\8a¢ â¬\88*[h,â\8b\86s] ð\9d\90\92â¦\83Lâ¦\84.
+lemma rsx_sort (h) (G): â\88\80L,s. G â\8a¢ â¬\88*[h,â\8b\86s] ð\9d\90\92â\9dªLâ\9d«.
#h #G #L1 #s @rsx_intro #L2 #H #Hs
elim Hs -Hs /3 width=3 by lpx_fwd_length, reqx_sort_length/
qed.
(* Basic_2A1: uses: lsx_gref *)
-lemma rsx_gref (h) (G): â\88\80L,l. G â\8a¢ â¬\88*[h,§l] ð\9d\90\92â¦\83Lâ¦\84.
+lemma rsx_gref (h) (G): â\88\80L,l. G â\8a¢ â¬\88*[h,§l] ð\9d\90\92â\9dªLâ\9d«.
#h #G #L1 #s @rsx_intro #L2 #H #Hs
elim Hs -Hs /3 width=3 by lpx_fwd_length, reqx_gref_length/
qed.
-lemma rsx_unit (h) (G): â\88\80I,L. G â\8a¢ â¬\88*[h,#0] ð\9d\90\92â¦\83L.â\93¤{I}â¦\84.
+lemma rsx_unit (h) (G): â\88\80I,L. G â\8a¢ â¬\88*[h,#0] ð\9d\90\92â\9dªL.â\93¤[I]â\9d«.
#h #G #I #L1 @rsx_intro
#Y #HY #HnY elim HnY -HnY
elim (lpx_inv_unit_sn … HY) -HY #L2 #HL12 #H destruct