X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Ffpbs_fqup.ma;h=b1e12a7a66c4917aec3296fd6208e779fa8a1ce7;hb=222044da28742b24584549ba86b1805a87def070;hp=ce248aeb1f104c24e80afe60fb7e0c4bdcfade85;hpb=4b4d24e46ac80c9b035b6c23944d851f9f0ec179;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqup.ma index ce248aeb1..b1e12a7a6 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqup.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqup.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/s_computation/fqus_fqup.ma". -include "basic_2/static/ffdeq_fqup.ma". +include "basic_2/static/fdeq_fqup.ma". include "basic_2/rt_computation/fpbs_fqus.ma". (* PARALLEL RST-COMPUTATION FOR CLOSURES ************************************) @@ -22,11 +22,11 @@ include "basic_2/rt_computation/fpbs_fqus.ma". lemma tdeq_fpbs_trans: ∀h,o,T1,T. T1 ≛[h, o] T → ∀G1,G2,L1,L2,T2. ⦃G1, L1, T⦄ ≥[h, o] ⦃G2, L2, T2⦄ → ⦃G1, L1, T1⦄ ≥[h, o] ⦃G2, L2, T2⦄. -/3 width=5 by ffdeq_fpbs_trans, tdeq_ffdeq/ qed-. +/3 width=5 by fdeq_fpbs_trans, tdeq_fdeq/ qed-. lemma fpbs_tdeq_trans: ∀h,o,G1,G2,L1,L2,T1,T. ⦃G1, L1, T1⦄ ≥[h, o] ⦃G2, L2, T⦄ → ∀T2. T ≛[h, o] T2 → ⦃G1, L1, T1⦄ ≥[h, o] ⦃G2, L2, T2⦄. -/3 width=5 by fpbs_ffdeq_trans, tdeq_ffdeq/ qed-. +/3 width=5 by fpbs_fdeq_trans, tdeq_fdeq/ qed-. (* Properties with plus-iterated structural successor for closures **********)