Theorem 2moswapdc 2177

Description: A condition allowing swap of "at most one" and existential quantifiers. (Contributed by Jim Kingdon, 6-Jul-2018.)

Assertion

Ref	Expression
2moswapdc	⊢ (DECID ∃𝑥∃𝑦𝜑 → (∀𝑥∃*𝑦𝜑 → (∃*𝑥∃𝑦𝜑 → ∃*𝑦∃𝑥𝜑)))

Proof of Theorem 2moswapdc

Step	Hyp	Ref	Expression
1		nfe1 1549	. . . 4 ⊢ Ⅎ𝑦∃𝑦𝜑
2	1	moexexdc 2171	. . 3 ⊢ (DECID ∃𝑥∃𝑦𝜑 → ((∃*𝑥∃𝑦𝜑 ∧ ∀𝑥∃*𝑦𝜑) → ∃*𝑦∃𝑥(∃𝑦𝜑 ∧ 𝜑)))
3	2	expcomd 1491	. 2 ⊢ (DECID ∃𝑥∃𝑦𝜑 → (∀𝑥∃*𝑦𝜑 → (∃*𝑥∃𝑦𝜑 → ∃*𝑦∃𝑥(∃𝑦𝜑 ∧ 𝜑))))
4		19.8a 1643	. . . . . 6 ⊢ (𝜑 → ∃𝑦𝜑)
5	4	pm4.71ri 396	. . . . 5 ⊢ (𝜑 ↔ (∃𝑦𝜑 ∧ 𝜑))
6	5	exbii 1658	. . . 4 ⊢ (∃𝑥𝜑 ↔ ∃𝑥(∃𝑦𝜑 ∧ 𝜑))
7	6	mobii 2123	. . 3 ⊢ (∃*𝑦∃𝑥𝜑 ↔ ∃*𝑦∃𝑥(∃𝑦𝜑 ∧ 𝜑))
8	7	imbi2i 226	. 2 ⊢ ((∃*𝑥∃𝑦𝜑 → ∃*𝑦∃𝑥𝜑) ↔ (∃*𝑥∃𝑦𝜑 → ∃*𝑦∃𝑥(∃𝑦𝜑 ∧ 𝜑)))
9	3, 8	imbitrrdi 162	1 ⊢ (DECID ∃𝑥∃𝑦𝜑 → (∀𝑥∃*𝑦𝜑 → (∃*𝑥∃𝑦𝜑 → ∃*𝑦∃𝑥𝜑)))

Syntax hints:   → wi 4   ∧ wa 104  DECID wdc 846  ∀wal 1400  ∃wex 1545  ∃*wmo 2087

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588

This theorem depends on definitions:  df-bi 117  df-dc 847  df-tru 1405  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090

This theorem is referenced by:  2euswapdc  2178