X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcsx_reqx.ma;h=5d35690cc7ef19e42cab29dcd0060a700d838399;hp=f6f8970e3f9740679a8c4c24f45f8714717e9a43;hb=b2cdc4abd9ac87e39bc51b0d9c38daea179adbd5;hpb=3c7b4071a9ac096b02334c1d47468776b948e2de

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_reqx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_reqx.ma
index f6f8970e3..5d35690cc 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_reqx.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_reqx.ma
@@ -26,8 +26,8 @@ lemma csx_reqx_conf (G) (L1):
 #G #L1 #T #H
 @(csx_ind … H) -T #T1 #_ #IH #L2 #HL12
 @csx_intro #T2 #HT12 #HnT12
-elim (reqx_cpx_trans … HL12 … HT12) -HT12
-/5 width=5 by cpx_reqx_conf_sn, csx_teqx_trans, teqx_trans/
+lapply (reqx_cpx_trans … HL12 … HT12) -HT12
+/3 width=4 by cpx_reqx_conf_sn/
 qed-.
 
 (* Basic_2A1: uses: csx_lleq_trans *)