matita/matita/contribs/lambdadelta/basic_2A/etc/fpn/fqu.etc

   1 include "basic_2/grammar/bteq.ma".
   2
   3 lemma fqu_fwd_bteq: ∀G1,G2,L1,L2,T1,T2. ⦃G1, L1, T1⦄ ⊃ ⦃G2, L2, T2⦄ →
   4                     ⦃G1, L1, T1⦄ ⋕ ⦃G2, L2, T2⦄ → ⊥.
   5 #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -G1 -G2 -L1 -L2 -T1 -T2
   6 [ #I #G #L #V * #_ #H elim (plus_xSy_x_false … H)
   7 | #I #G #L #V #T * #_ #_ #H elim (discr_tpair_xy_x … H)
   8 | #a #I #G #L #V #T * #_ #_ #H elim (discr_tpair_xy_y … H)
   9 | #I #G #L #V #T * #_ #_ #H elim (discr_tpair_xy_y … H)
  10 | #G #L #K #T #U #e #HLK #_ * #_ #H
  11   lapply (ldrop_fwd_length_lt4 … HLK ?) // >H -L #H
  12   elim (lt_refl_false … H)
  13 ]
  14 qed-.