// qed.
lemma fquqa_drop: ∀G,L,K,T,U,e.
- â\87©[e] L â\89¡ K â\86\92 â\87§[0, e] T ≡ U → ⦃G, L, U⦄ ⊐⊐⸮ ⦃G, K, T⦄.
+ â¬\87[e] L â\89¡ K â\86\92 â¬\86[0, e] T ≡ U → ⦃G, L, U⦄ ⊐⊐⸮ ⦃G, K, T⦄.
#G #L #K #T #U #e #HLK #HTU elim (eq_or_gt e)
/3 width=5 by fqu_drop_lt, or_introl/ #H destruct
>(drop_inv_O2 … HLK) -L >(lift_inv_O2 … HTU) -T //