]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_cnx_vector.ma
update in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / csx_cnx_vector.ma
index 949c28d9ad39e05ce601f8cce4c9abe195fb3a40..a1f65935581d5ee559bf3e36a8eb76f83ed03f8f 100644 (file)
@@ -24,8 +24,8 @@ include "basic_2/rt_computation/csx_vector.ma".
 
 (* Basic_1: was just: sn3_appls_lref *)
 lemma csx_applv_cnx (h) (G) (L):
-      â\88\80T. ð\9d\90\92â¦\83Tâ¦\84 â\86\92 â¦\83G,Lâ¦\84 â\8a¢ â¬\88[h] ð\9d\90\8dâ¦\83Tâ¦\84 →
-      â\88\80Vs. â¦\83G,Lâ¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Vsâ¦\84 â\86\92 â¦\83G,Lâ¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83â\92¶Vs.Tâ¦\84.
+      â\88\80T. ð\9d\90\92â\9dªTâ\9d« â\86\92 â\9dªG,Lâ\9d« â\8a¢ â¬\88ð\9d\90\8d[h] T →
+      â\88\80Vs. â\9dªG,Lâ\9d« â\8a¢ â¬\88\9d\90\92[h] Vs â\86\92 â\9dªG,Lâ\9d« â\8a¢ â¬\88\9d\90\92[h] â\92¶Vs.T.
 #h #G #L #T #H1T #H2T #Vs elim Vs -Vs
 [ #_ normalize in ⊢ (????%); /2 width=1 by cnx_csx/
 | #V #Vs #IHV #H
@@ -41,5 +41,5 @@ qed.
 
 (* Note: strong normalization does not depend on this any more *)
 lemma csx_applv_sort (h) (G) (L):
-      â\88\80s,Vs. â¦\83G,Lâ¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Vsâ¦\84 â\86\92 â¦\83G,Lâ¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83â\92¶Vs.â\8b\86sâ¦\84.
+      â\88\80s,Vs. â\9dªG,Lâ\9d« â\8a¢ â¬\88\9d\90\92[h] Vs â\86\92 â\9dªG,Lâ\9d« â\8a¢ â¬\88\9d\90\92[h] â\92¶Vs.â\8b\86s.
 /3 width=6 by csx_applv_cnx, cnx_sort, simple_atom/ qed.