X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Ffpbs_csx.ma;h=159b57bcb85d391a5fe3b2ad3b5f971530a4c941;hp=c68d3a6610b4e36365cf9310da8f233876469343;hb=e23331eef5817eaa6c5e1c442d1d6bbb18650573;hpb=b118146b97959e6a6dde18fdd014b8e1e676a2d1 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_csx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_csx.ma index c68d3a661..159b57bcb 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_csx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_csx.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/rt_computation/csx_fpbq.ma". -include "basic_2/rt_computation/fpbs.ma". +include "basic_2/rt_computation/csx_fpb.ma". +include "basic_2/rt_computation/fpbs_fqup.ma". (* PARALLEL RST-COMPUTATION FOR CLOSURES ************************************) @@ -24,5 +24,5 @@ lemma fpbs_csx_conf: ∀G1,L1,T1. ❪G1,L1❫ ⊢ ⬈*𝐒 T1 → ∀G2,L2,T2. ❪G1,L1,T1❫ ≥ ❪G2,L2,T2❫ → ❪G2,L2❫ ⊢ ⬈*𝐒 T2. #G1 #L1 #T1 #HT1 #G2 #L2 #T2 #H @(fpbs_ind … H) -G2 -L2 -T2 -/2 width=5 by csx_fpbq_conf/ +/2 width=5 by csx_fpb_conf/ qed-.