]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpcs.ma
update in ground_2, static_2, basic_2, apps_2, alpha_1
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / dynamic / cnv_cpcs.ma
index ba65bce5b0eeea2b3b6e5614472a4bf7fdbac009..8487f16881870159ef6910b552d85ae4c788c9b4 100644 (file)
@@ -20,10 +20,10 @@ include "basic_2/dynamic/cnv_aaa.ma".
 
 (* Properties with r-equivalence ********************************************)
 
-lemma cnv_cpcs_dec (a) (h) (G) (L):
-      â\88\80T1. â¦\83G,Lâ¦\84 â\8a¢ T1 ![a,h] â\86\92 â\88\80T2. â¦\83G,Lâ¦\84 â\8a¢ T2 ![a,h] →
-      Decidable â\80¦ (â¦\83G,Lâ¦\84 ⊢ T1 ⬌*[h] T2).
-#a #h #G #L #T1 #HT1 #T2 #HT2
+lemma cnv_cpcs_dec (h) (a) (G) (L):
+      â\88\80T1. â\9dªG,Lâ\9d« â\8a¢ T1 ![h,a] â\86\92 â\88\80T2. â\9dªG,Lâ\9d« â\8a¢ T2 ![h,a] →
+      Decidable â\80¦ (â\9dªG,Lâ\9d« ⊢ T1 ⬌*[h] T2).
+#h #a #G #L #T1 #HT1 #T2 #HT2
 elim (cnv_fwd_aaa … HT1) -HT1 #A1 #HA1
 elim (cnv_fwd_aaa … HT2) -HT2 #A2 #HA2
 /3 width=2 by csx_cpcs_dec, aaa_csx/