MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  2eu6 Structured version   Visualization version   GIF version

Theorem 2eu6 2657
Description: Two equivalent expressions for double existential uniqueness. (Contributed by NM, 2-Feb-2005.) (Revised by Mario Carneiro, 17-Oct-2016.) (Proof shortened by Wolf Lammen, 2-Oct-2019.)
Assertion
Ref Expression
2eu6 ((∃!𝑥𝑦𝜑 ∧ ∃!𝑦𝑥𝜑) ↔ ∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
Distinct variable groups:   𝑥,𝑦,𝑧,𝑤   𝜑,𝑧,𝑤
Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem 2eu6
StepHypRef Expression
1 2eu4 2655 . 2 ((∃!𝑥𝑦𝜑 ∧ ∃!𝑦𝑥𝜑) ↔ (∃𝑥𝑦𝜑 ∧ ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))))
2 nfia1 2156 . . . . . 6 𝑥(∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
3 nfa1 2154 . . . . . . . . . . . . 13 𝑦𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))
4 nfv 1922 . . . . . . . . . . . . 13 𝑦 𝑥 = 𝑧
5 simpl 486 . . . . . . . . . . . . . . 15 ((𝑥 = 𝑧𝑦 = 𝑤) → 𝑥 = 𝑧)
65imim2i 16 . . . . . . . . . . . . . 14 ((𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑𝑥 = 𝑧))
76sps 2184 . . . . . . . . . . . . 13 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑𝑥 = 𝑧))
83, 4, 7exlimd 2218 . . . . . . . . . . . 12 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∃𝑦𝜑𝑥 = 𝑧))
9 ax12v 2178 . . . . . . . . . . . 12 (𝑥 = 𝑧 → (∃𝑦𝜑 → ∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑)))
108, 9syli 39 . . . . . . . . . . 11 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∃𝑦𝜑 → ∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑)))
1110com12 32 . . . . . . . . . 10 (∃𝑦𝜑 → (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑)))
1211spsd 2186 . . . . . . . . 9 (∃𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑)))
13 nfs1v 2159 . . . . . . . . . . . . 13 𝑦[𝑤 / 𝑦]𝜑
14 simpr 488 . . . . . . . . . . . . . . . 16 ((𝑥 = 𝑧𝑦 = 𝑤) → 𝑦 = 𝑤)
1514imim2i 16 . . . . . . . . . . . . . . 15 ((𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑𝑦 = 𝑤))
16 sbequ1 2247 . . . . . . . . . . . . . . 15 (𝑦 = 𝑤 → (𝜑 → [𝑤 / 𝑦]𝜑))
1715, 16syli 39 . . . . . . . . . . . . . 14 ((𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑 → [𝑤 / 𝑦]𝜑))
1817sps 2184 . . . . . . . . . . . . 13 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑 → [𝑤 / 𝑦]𝜑))
193, 13, 18exlimd 2218 . . . . . . . . . . . 12 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∃𝑦𝜑 → [𝑤 / 𝑦]𝜑))
2019imim2d 57 . . . . . . . . . . 11 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ((𝑥 = 𝑧 → ∃𝑦𝜑) → (𝑥 = 𝑧 → [𝑤 / 𝑦]𝜑)))
2120al2imi 1823 . . . . . . . . . 10 (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑) → ∀𝑥(𝑥 = 𝑧 → [𝑤 / 𝑦]𝜑)))
22 sb6 2093 . . . . . . . . . . 11 ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑 ↔ ∀𝑥(𝑥 = 𝑧 → [𝑤 / 𝑦]𝜑))
23 2sb6 2094 . . . . . . . . . . 11 ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑 ↔ ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
2422, 23bitr3i 280 . . . . . . . . . 10 (∀𝑥(𝑥 = 𝑧 → [𝑤 / 𝑦]𝜑) ↔ ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
2521, 24syl6ib 254 . . . . . . . . 9 (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑) → ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑)))
2612, 25sylcom 30 . . . . . . . 8 (∃𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑)))
2726ancld 554 . . . . . . 7 (∃𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) ∧ ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))))
28 2albiim 1898 . . . . . . 7 (∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) ↔ (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) ∧ ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑)))
2927, 28syl6ibr 255 . . . . . 6 (∃𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤))))
302, 29exlimi 2217 . . . . 5 (∃𝑥𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤))))
31302eximdv 1927 . . . 4 (∃𝑥𝑦𝜑 → (∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤))))
3231imp 410 . . 3 ((∃𝑥𝑦𝜑 ∧ ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))) → ∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
33 biimpr 223 . . . . . . 7 ((𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
34332alimi 1820 . . . . . 6 (∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
35342eximi 1843 . . . . 5 (∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∃𝑧𝑤𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
36 2exsb 2360 . . . . 5 (∃𝑥𝑦𝜑 ↔ ∃𝑧𝑤𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
3735, 36sylibr 237 . . . 4 (∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∃𝑥𝑦𝜑)
38 biimp 218 . . . . . 6 ((𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)))
39382alimi 1820 . . . . 5 (∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)))
40392eximi 1843 . . . 4 (∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)))
4137, 40jca 515 . . 3 (∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → (∃𝑥𝑦𝜑 ∧ ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))))
4232, 41impbii 212 . 2 ((∃𝑥𝑦𝜑 ∧ ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))) ↔ ∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
431, 42bitri 278 1 ((∃!𝑥𝑦𝜑 ∧ ∃!𝑦𝑥𝜑) ↔ ∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  wal 1541  wex 1787  [wsb 2072  ∃!weu 2567
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2018  ax-10 2143  ax-11 2160  ax-12 2177
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-ex 1788  df-nf 1792  df-sb 2073  df-mo 2539  df-eu 2568
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator