matita/matita/contribs/lambdadelta/basic_2/etc/fpbg/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-.