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

Theorem 2eu6 2541
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 2539 . 2 ((∃!𝑥𝑦𝜑 ∧ ∃!𝑦𝑥𝜑) ↔ (∃𝑥𝑦𝜑 ∧ ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))))
2 nfia1 2015 . . . . . 6 𝑥(∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
3 nfa1 2013 . . . . . . . . . . . . 13 𝑦𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))
4 nfv 1828 . . . . . . . . . . . . 13 𝑦 𝑥 = 𝑧
5 simpl 471 . . . . . . . . . . . . . . 15 ((𝑥 = 𝑧𝑦 = 𝑤) → 𝑥 = 𝑧)
65imim2i 16 . . . . . . . . . . . . . 14 ((𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑𝑥 = 𝑧))
76sps 2040 . . . . . . . . . . . . 13 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑𝑥 = 𝑧))
83, 4, 7exlimd 2071 . . . . . . . . . . . 12 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∃𝑦𝜑𝑥 = 𝑧))
9 ax12v 2032 . . . . . . . . . . . 12 (𝑥 = 𝑧 → (∃𝑦𝜑 → ∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑)))
108, 9syli 38 . . . . . . . . . . 11 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∃𝑦𝜑 → ∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑)))
1110com12 32 . . . . . . . . . 10 (∃𝑦𝜑 → (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑)))
1211spsd 2042 . . . . . . . . 9 (∃𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑)))
13 nfs1v 2420 . . . . . . . . . . . . 13 𝑦[𝑤 / 𝑦]𝜑
14 simpr 475 . . . . . . . . . . . . . . . 16 ((𝑥 = 𝑧𝑦 = 𝑤) → 𝑦 = 𝑤)
1514imim2i 16 . . . . . . . . . . . . . . 15 ((𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑𝑦 = 𝑤))
16 sbequ1 2093 . . . . . . . . . . . . . . 15 (𝑦 = 𝑤 → (𝜑 → [𝑤 / 𝑦]𝜑))
1715, 16syli 38 . . . . . . . . . . . . . 14 ((𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑 → [𝑤 / 𝑦]𝜑))
1817sps 2040 . . . . . . . . . . . . 13 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑 → [𝑤 / 𝑦]𝜑))
193, 13, 18exlimd 2071 . . . . . . . . . . . 12 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∃𝑦𝜑 → [𝑤 / 𝑦]𝜑))
2019imim2d 54 . . . . . . . . . . 11 (∀𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ((𝑥 = 𝑧 → ∃𝑦𝜑) → (𝑥 = 𝑧 → [𝑤 / 𝑦]𝜑)))
2120al2imi 1731 . . . . . . . . . 10 (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑) → ∀𝑥(𝑥 = 𝑧 → [𝑤 / 𝑦]𝜑)))
22 sb6 2412 . . . . . . . . . . 11 ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑 ↔ ∀𝑥(𝑥 = 𝑧 → [𝑤 / 𝑦]𝜑))
23 2sb6 2427 . . . . . . . . . . 11 ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑 ↔ ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
2422, 23bitr3i 264 . . . . . . . . . 10 (∀𝑥(𝑥 = 𝑧 → [𝑤 / 𝑦]𝜑) ↔ ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
2521, 24syl6ib 239 . . . . . . . . 9 (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∀𝑥(𝑥 = 𝑧 → ∃𝑦𝜑) → ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑)))
2612, 25sylcom 30 . . . . . . . 8 (∃𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑)))
2726ancld 573 . . . . . . 7 (∃𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) ∧ ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))))
28 2albiim 1805 . . . . . . 7 (∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) ↔ (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) ∧ ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑)))
2927, 28syl6ibr 240 . . . . . 6 (∃𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤))))
302, 29exlimi 2070 . . . . 5 (∃𝑥𝑦𝜑 → (∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤))))
31302eximdv 1833 . . . 4 (∃𝑥𝑦𝜑 → (∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)) → ∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤))))
3231imp 443 . . 3 ((∃𝑥𝑦𝜑 ∧ ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))) → ∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
33 biimpr 208 . . . . . . 7 ((𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
34332alimi 1729 . . . . . 6 (∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
35342eximi 1751 . . . . 5 (∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∃𝑧𝑤𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
36 2exsb 2452 . . . . 5 (∃𝑥𝑦𝜑 ↔ ∃𝑧𝑤𝑥𝑦((𝑥 = 𝑧𝑦 = 𝑤) → 𝜑))
3735, 36sylibr 222 . . . 4 (∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∃𝑥𝑦𝜑)
38 biimp 203 . . . . . 6 ((𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → (𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)))
39382alimi 1729 . . . . 5 (∀𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∀𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)))
40392eximi 1751 . . . 4 (∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤)))
4137, 40jca 552 . . 3 (∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)) → (∃𝑥𝑦𝜑 ∧ ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))))
4232, 41impbii 197 . 2 ((∃𝑥𝑦𝜑 ∧ ∃𝑧𝑤𝑥𝑦(𝜑 → (𝑥 = 𝑧𝑦 = 𝑤))) ↔ ∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
431, 42bitri 262 1 ((∃!𝑥𝑦𝜑 ∧ ∃!𝑦𝑥𝜑) ↔ ∃𝑧𝑤𝑥𝑦(𝜑 ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 194  wa 382  wal 1472  wex 1694  [wsb 1865  ∃!weu 2453
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2228
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1866  df-eu 2457  df-mo 2458
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator