X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fcnv_cpce.ma;h=b9b6560fb9515f36f6e7891e9d9fdea2a2cd5611;hb=48bd1f41417fb167a100eb1613a64a711484b69a;hp=792c48f05fc8b3dac92418a394cc89e1bdcdc112;hpb=0fea4ed429678c3293027cfe76fdbe15cfa331cb;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpce.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpce.ma
index 792c48f05..b9b6560fb 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpce.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_cpce.ma
@@ -20,9 +20,10 @@ include "basic_2/dynamic/cnv_cpmuwe.ma".
 
 (* Properties with context-sensitive parallel eta-conversion for terms ******)
 
-lemma cpce_total_cnv (a) (h) (G) (L):
-      ∀T1. ⦃G,L⦄ ⊢ T1 ![a,h] → ∃T2. ⦃G,L⦄ ⊢ T1 ⬌η[h] T2.
-#a #h #G #L #T1 #HT1
+axiom cpce_total_cnv (h) (a) (G) (L):
+      ∀T1. ⦃G,L⦄ ⊢ T1 ![h,a] → ∃T2. ⦃G,L⦄ ⊢ T1 ⬌η[h] T2.
+(*
+#h #a #G #L #T1 #HT1
 lapply (cnv_fwd_csx … HT1) #H
 generalize in match HT1; -HT1
 @(csx_ind_fpbg … H) -G -L -T1
@@ -67,3 +68,4 @@ generalize in match HT1; -HT1
   /3 width=2 by cpce_flat, ex_intro/
 ]
 qed-.
+*)