1 include "basic_2/grammar/bteq.ma".
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)