X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Ffpbs_csx.ma;h=11eb81f6c5e838152c9f0d14b7b683ed710378d5;hb=cc178d85bc4fec05b6a9dd176f338b3275beb3d9;hp=c68d3a6610b4e36365cf9310da8f233876469343;hpb=3c7b4071a9ac096b02334c1d47468776b948e2de;p=helm.git 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..11eb81f6c 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 ************************************) @@ -21,8 +21,8 @@ include "basic_2/rt_computation/fpbs.ma". (* Basic_2A1: was: csx_fpbs_conf *) 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. ❨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-.