X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fcnv_eval.ma;h=d87201dad1b18afbaa0b2d30b5e04f91a880a177;hb=488387490fb12d92f56ebcac2fc68d83a0d266ec;hp=efd2c3cce534421d28bd3176a6bb4804726b90c3;hpb=9554ed555d9c744d7dfb787ccdaa6fc63eb6ba10;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_eval.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_eval.ma index efd2c3cce..d87201dad 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_eval.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_eval.ma @@ -56,7 +56,7 @@ theorem cnv_dec (h) (a) (G) (L) (T): ac_props a → elim (dec_min (R_cpmuwe h G L T) … Hn) -Hn [| /2 width=2 by cnv_R_cpmuwe_dec/ ] #n0 #_ -n elim (ac_dec … Ha n0) -Ha - [ * #n #Hn #Ha * #X0 #HX0 #_ + [ * #n #Ha #Hn * #X0 #HX0 #_ elim (abst_dec X0) [ * #p #W #U0 #H destruct elim (cnv_cpes_dec … 1 0 … HV W) [ #HVW | #HnVW ]