]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx_length.ma
update in ground_2, static_2, basic_2, apps_2, alpha_1
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / rsx_length.ma
index 1954e6b6be3ad9da06194886cb0fa442e57c12bd..81021b2c89c51d342e5b88fed04ac26adddcc017 100644 (file)
@@ -21,18 +21,18 @@ include "basic_2/rt_computation/rsx.ma".
 (* 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