]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/static_2/static/feqx.ma
update un delayed_updating
[helm.git] / matita / matita / contribs / lambdadelta / static_2 / static / feqx.ma
index 9804e73c2aa46eb7557c41b331ac42fb72f158c3..f3388bfa437ed1299777740202a9f2a91b2d998c 100644 (file)
@@ -17,10 +17,7 @@ include "static_2/static/reqx.ma".
 include "static_2/static/feqg.ma".
 
 (* SORT-IRRELEVANT EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES *************)
-(*
-definition feqx: relation6 genv lenv term genv lenv term ≝
-           feqg sfull.
-*)
+
 interpretation
   "sort-irrelevant equivalence on referred entries (closure)"
   'ApproxEqSn G1 L1 T1 G2 L2 T2 = (feqg sfull G1 L1 T1 G2 L2 T2).
@@ -28,7 +25,7 @@ interpretation
 (* Basic_properties *********************************************************)
 
 lemma feqg_feqx (S) (G1) (G2) (L1) (L2) (T1) (T2):
-      â\9dªG1,L1,T1â\9d« â\89\9b[S] â\9dªG2,L2,T2â\9d« â\86\92 â\9dªG1,L1,T1â\9d« â\89\85 â\9dªG2,L2,T2â\9d«.
+      â\9d¨G1,L1,T1â\9d© â\89\9b[S] â\9d¨G2,L2,T2â\9d© â\86\92 â\9d¨G1,L1,T1â\9d© â\89\85 â\9d¨G2,L2,T2â\9d©.
 #S #G1 #G2 #L1 #L2 #T1 #T2 #H
 elim (feqg_inv_gen_sn … H) -H
 /3 width=2 by feqg_intro_sn, reqg_reqx, teqg_teqx/