X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fcnv_cpcs.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fcnv_cpcs.ma;h=5ed59b73998fdea2032d31ac4a3995b80d6938a9;hb=ba7b8553850e4a33cf8607b07758392230d9ed40;hp=ba65bce5b0eeea2b3b6e5614472a4bf7fdbac009;hpb=c0d38a82464481e3c8fd68e4b00d7b9b448df462;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpcs.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpcs.ma
index ba65bce5b..5ed59b739 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpcs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpcs.ma
@@ -20,10 +20,10 @@ include "basic_2/dynamic/cnv_aaa.ma".
 
 (* Properties with r-equivalence ********************************************)
 
-lemma cnv_cpcs_dec (a) (h) (G) (L):
-      ∀T1. ⦃G,L⦄ ⊢ T1 ![a,h] → ∀T2. ⦃G,L⦄ ⊢ T2 ![a,h] →
+lemma cnv_cpcs_dec (h) (a) (G) (L):
+      ∀T1. ⦃G,L⦄ ⊢ T1 ![h,a] → ∀T2. ⦃G,L⦄ ⊢ T2 ![h,a] →
       Decidable … (⦃G,L⦄ ⊢ T1 ⬌*[h] T2).
-#a #h #G #L #T1 #HT1 #T2 #HT2
+#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/