X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fcomputation%2Fcpxs_cpxs.ma;h=b6431c294bcee4fd18c9014c5527cb3fac1ce98e;hb=1555848a5546d0154964286d3400114481d78962;hp=fad7c97a5ace28125cbb857ba5de4f076f9cc72b;hpb=548f2d3f410c05e2eb332f5c2d074f5e6c6985e1;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/cpxs_cpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/cpxs_cpxs.ma index fad7c97a5..b6431c294 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/computation/cpxs_cpxs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/computation/cpxs_cpxs.ma @@ -96,13 +96,13 @@ qed-. lemma lpx_cpx_trans: ∀h,g,G. s_r_transitive … (cpx h g G) (λ_.lpx h g G). #h #g #G #L2 #T1 #T2 #HT12 elim HT12 -G -L2 -T1 -T2 [ /2 width=3 by/ -| /3 width=2 by cpx_cpxs, cpx_sort/ +| /3 width=2 by cpx_cpxs, cpx_st/ | #I #G #L2 #K2 #V0 #V2 #W2 #i #HLK2 #_ #HVW2 #IHV02 #L1 #HL12 elim (lpx_ldrop_trans_O1 … HL12 … HLK2) -L2 #X #HLK1 #H elim (lpx_inv_pair2 … H) -H #K1 #V1 #HK12 #HV10 #H destruct /4 width=7 by cpxs_delta, cpxs_strap2/ |4,9: /4 width=1 by cpxs_beta, cpxs_bind, lpx_pair/ -|5,7,8: /3 width=1 by cpxs_flat, cpxs_ti, cpxs_tau/ +|5,7,8: /3 width=1 by cpxs_flat, cpxs_ct, cpxs_eps/ | /4 width=3 by cpxs_zeta, lpx_pair/ | /4 width=3 by cpxs_theta, cpxs_strap1, lpx_pair/ ]