X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Ffpbg_fqup.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Ffpbg_fqup.ma;h=3660f103c9385fadd72c28d5a3df8bda44e73a49;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=37681f1fa5ce4a0d3966880f3b5594edf7ef2dfe;hpb=33d0a7a9029859be79b25b5a495e0f30dab11f37;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_fqup.ma index 37681f1fa..3660f103c 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_fqup.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_fqup.ma @@ -20,10 +20,10 @@ include "basic_2/rt_computation/fpbg.ma". (* Advanced properties ******************************************************) lemma fpbc_fpbg (G1) (G2) (L1) (L2) (T1) (T2): - ❪G1,L1,T1❫ ≻ ❪G2,L2,T2❫ → ❪G1,L1,T1❫ > ❪G2,L2,T2❫. + ❨G1,L1,T1❩ ≻ ❨G2,L2,T2❩ → ❨G1,L1,T1❩ > ❨G2,L2,T2❩. /3 width=13 by fpbg_intro, fpb_fpbs/ qed. lemma fpbc_fpbs_fpbg (G) (L) (T): - ∀G1,L1,T1. ❪G1,L1,T1❫ ≻ ❪G,L,T❫ → - ∀G2,L2,T2. ❪G,L,T❫ ≥ ❪G2,L2,T2❫ → ❪G1,L1,T1❫ > ❪G2,L2,T2❫. + ∀G1,L1,T1. ❨G1,L1,T1❩ ≻ ❨G,L,T❩ → + ∀G2,L2,T2. ❨G,L,T❩ ≥ ❨G2,L2,T2❩ → ❨G1,L1,T1❩ > ❨G2,L2,T2❩. /2 width=9 by fpbg_intro/ qed.