]> matita.cs.unibo.it Git - helm.git/blob - fpbg_etc.etc
10891d697ed084d3c90508cd22629c54a9c3fd5e
[helm.git] / fpbg_etc.etc
1 lemma fpbg_fqu_trans:
2       ∀G1,G,G2,L1,L,L2,T1,T,T2.
3       ❪G1,L1,T1❫ > ❪G,L,T❫ → ❪G,L,T❫ ⬂ ❪G2,L2,T2❫ →
4       ❪G1,L1,T1❫ > ❪G2,L2,T2❫.
5 #G1 #G #G2 #L1 #L #L2 #T1 #T #T2 #H1 #H2
6 /4 width=5 by fpbg_fpbq_trans, fpbq_fquq, fqu_fquq/
7 qed-.
8
9 lemma fpbq_fpbg_trans:
10       ∀G1,G,G2,L1,L,L2,T1,T,T2.
11       ❪G1,L1,T1❫ ≻ ❪G,L,T❫ → ❪G,L,T❫ > ❪G2,L2,T2❫ →
12       ❪G1,L1,T1❫ > ❪G2,L2,T2❫.
13 /3 width=5 by fpbg_fwd_fpbs, ex2_3_intro/ qed-.