X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Freduction%2Fcpx.ma;h=27f51b90782eb5f4ffecacad7d5ea9e24d11fbd4;hb=7e06d9d148ae04a21943377debd933a742d0c2fa;hp=3a495f59a15d9cb64ffda7d957e7112bbfab2ef2;hpb=3167db4903eea2eddc60a91cfd922be3672ce077;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/reduction/cpx.ma b/matita/matita/contribs/lambdadelta/basic_2/reduction/cpx.ma index 3a495f59a..27f51b907 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/reduction/cpx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/reduction/cpx.ma @@ -55,11 +55,11 @@ lemma lsubr_cpx_trans: ∀h,g,G. lsub_trans … (cpx h g G) lsubr. [ // | /2 width=2 by cpx_st/ | #I #G #L1 #K1 #V1 #V2 #W2 #i #HLK1 #_ #HVW2 #IHV12 #L2 #HL12 - elim (lsubr_fwd_drop2_bind … HL12 … HLK1) -HL12 -HLK1 * + elim (lsubr_fwd_drop2_pair … HL12 … HLK1) -HL12 -HLK1 * /4 width=7 by cpx_delta, cpx_ct/ -|4,9: /4 width=1 by cpx_bind, cpx_beta, lsubr_bind/ +|4,9: /4 width=1 by cpx_bind, cpx_beta, lsubr_pair/ |5,7,8: /3 width=1 by cpx_flat, cpx_eps, cpx_ct/ -|6,10: /4 width=3 by cpx_zeta, cpx_theta, lsubr_bind/ +|6,10: /4 width=3 by cpx_zeta, cpx_theta, lsubr_pair/ ] qed-.