]> matita.cs.unibo.it Git - helm.git/blob - matita/matita/contribs/lambdadelta/basic_2/etc/fpn/fqu.etc
- ynat: some additions
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / 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-.