]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_reqx.ma
update in ground_2, static_2, basic_2, apps_2, alpha_1
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / csx_reqx.ma
index 7b3cfdae381b3de0ce427558d0a9b3da38c7bf53..a32c9380e6062a7af024fdd12867738fdc7c8bb1 100644 (file)
@@ -20,8 +20,8 @@ include "basic_2/rt_computation/csx_csx.ma".
 (* Properties with sort-irrelevant equivalence for local environments *******)
 
 (* Basic_2A1: uses: csx_lleq_conf *)
-lemma csx_reqx_conf: â\88\80h,G,L1,T. â¦\83G,L1â¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Tâ¦\84 →
-                     â\88\80L2. L1 â\89\9b[T] L2 â\86\92 â¦\83G,L2â¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Tâ¦\84.
+lemma csx_reqx_conf: â\88\80h,G,L1,T. â\9dªG,L1â\9d« â\8a¢ â¬\88*[h] ð\9d\90\92â\9dªTâ\9d« →
+                     â\88\80L2. L1 â\89\9b[T] L2 â\86\92 â\9dªG,L2â\9d« â\8a¢ â¬\88*[h] ð\9d\90\92â\9dªTâ\9d«.
 #h #G #L1 #T #H
 @(csx_ind … H) -T #T1 #_ #IH #L2 #HL12
 @csx_intro #T2 #HT12 #HnT12
@@ -31,5 +31,5 @@ qed-.
 
 (* Basic_2A1: uses: csx_lleq_conf *)
 lemma csx_reqx_trans: ∀h,L1,L2,T. L1 ≛[T] L2 →
-                      â\88\80G. â¦\83G,L2â¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Tâ¦\84 â\86\92 â¦\83G,L1â¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Tâ¦\84.
+                      â\88\80G. â\9dªG,L2â\9d« â\8a¢ â¬\88*[h] ð\9d\90\92â\9dªTâ\9d« â\86\92 â\9dªG,L1â\9d« â\8a¢ â¬\88*[h] ð\9d\90\92â\9dªTâ\9d«.
 /3 width=3 by csx_reqx_conf, reqx_sym/ qed-.