X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Fcnv_eval.ma;h=3126454a8b0f5f819061287bf75965cd2631c712;hp=44bd544d711728108309b5eee903ad2b6b94d2ce;hb=b118146b97959e6a6dde18fdd014b8e1e676a2d1;hpb=613d8642b1154dde0c026cbdcd96568910198251 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 44bd544d7..3126454a8 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_eval.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_eval.ma @@ -79,7 +79,7 @@ theorem cnv_dec (h) (a) (G) (L) (T): ac_props a → elim (cnv_inv_appl_cpes … H) -H #m0 #q #W0 #U0 #_ #_ #_ #_ #HTU0 lapply (cpmuwe_abst … HTU0) -HTU0 #HTU0 elim (cnv_cpmuwe_mono … HT … HTU0 … HX0) -T #_ #H - elim (tweq_inv_abst_sn … H) -W0 -U0 #W0 #U0 #H destruct + elim (teqw_inv_abst_sn … H) -W0 -U0 #W0 #U0 #H destruct /2 width=4 by/ ] (* Note: failed applicability *)