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

Theorem kmlem2 8933
Description: Lemma for 5-quantifier AC of Kurt Maes, Th. 4, part of 3 => 4. (Contributed by NM, 25-Mar-2004.)
Assertion
Ref Expression
kmlem2 (∃𝑦𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)) ↔ ∃𝑦𝑦𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦))))
Distinct variable groups:   𝑥,𝑦,𝜑   𝑥,𝑤,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑧,𝑤)

Proof of Theorem kmlem2
Dummy variables 𝑣 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ineq2 3792 . . . . . . . 8 (𝑦 = 𝑣 → (𝑧𝑦) = (𝑧𝑣))
21eleq2d 2684 . . . . . . 7 (𝑦 = 𝑣 → (𝑤 ∈ (𝑧𝑦) ↔ 𝑤 ∈ (𝑧𝑣)))
32eubidv 2489 . . . . . 6 (𝑦 = 𝑣 → (∃!𝑤 𝑤 ∈ (𝑧𝑦) ↔ ∃!𝑤 𝑤 ∈ (𝑧𝑣)))
43imbi2d 330 . . . . 5 (𝑦 = 𝑣 → ((𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)) ↔ (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑣))))
54ralbidv 2982 . . . 4 (𝑦 = 𝑣 → (∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)) ↔ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑣))))
65cbvexv 2274 . . 3 (∃𝑦𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)) ↔ ∃𝑣𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑣)))
7 indi 3855 . . . . . . . . . . . 12 (𝑧 ∩ (𝑣 ∪ {𝑢})) = ((𝑧𝑣) ∪ (𝑧 ∩ {𝑢}))
8 elssuni 4440 . . . . . . . . . . . . . . . . 17 (𝑧𝑥𝑧 𝑥)
98ssneld 3590 . . . . . . . . . . . . . . . 16 (𝑧𝑥 → (¬ 𝑢 𝑥 → ¬ 𝑢𝑧))
10 disjsn 4223 . . . . . . . . . . . . . . . 16 ((𝑧 ∩ {𝑢}) = ∅ ↔ ¬ 𝑢𝑧)
119, 10syl6ibr 242 . . . . . . . . . . . . . . 15 (𝑧𝑥 → (¬ 𝑢 𝑥 → (𝑧 ∩ {𝑢}) = ∅))
1211impcom 446 . . . . . . . . . . . . . 14 ((¬ 𝑢 𝑥𝑧𝑥) → (𝑧 ∩ {𝑢}) = ∅)
1312uneq2d 3751 . . . . . . . . . . . . 13 ((¬ 𝑢 𝑥𝑧𝑥) → ((𝑧𝑣) ∪ (𝑧 ∩ {𝑢})) = ((𝑧𝑣) ∪ ∅))
14 un0 3945 . . . . . . . . . . . . 13 ((𝑧𝑣) ∪ ∅) = (𝑧𝑣)
1513, 14syl6eq 2671 . . . . . . . . . . . 12 ((¬ 𝑢 𝑥𝑧𝑥) → ((𝑧𝑣) ∪ (𝑧 ∩ {𝑢})) = (𝑧𝑣))
167, 15syl5req 2668 . . . . . . . . . . 11 ((¬ 𝑢 𝑥𝑧𝑥) → (𝑧𝑣) = (𝑧 ∩ (𝑣 ∪ {𝑢})))
1716eleq2d 2684 . . . . . . . . . 10 ((¬ 𝑢 𝑥𝑧𝑥) → (𝑤 ∈ (𝑧𝑣) ↔ 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢}))))
1817eubidv 2489 . . . . . . . . 9 ((¬ 𝑢 𝑥𝑧𝑥) → (∃!𝑤 𝑤 ∈ (𝑧𝑣) ↔ ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢}))))
1918imbi2d 330 . . . . . . . 8 ((¬ 𝑢 𝑥𝑧𝑥) → ((𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑣)) ↔ (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢})))))
2019ralbidva 2981 . . . . . . 7 𝑢 𝑥 → (∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑣)) ↔ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢})))))
21 vsnid 4187 . . . . . . . . . . . 12 𝑢 ∈ {𝑢}
2221olci 406 . . . . . . . . . . 11 (𝑢𝑣𝑢 ∈ {𝑢})
23 elun 3737 . . . . . . . . . . 11 (𝑢 ∈ (𝑣 ∪ {𝑢}) ↔ (𝑢𝑣𝑢 ∈ {𝑢}))
2422, 23mpbir 221 . . . . . . . . . 10 𝑢 ∈ (𝑣 ∪ {𝑢})
25 elssuni 4440 . . . . . . . . . . 11 ((𝑣 ∪ {𝑢}) ∈ 𝑥 → (𝑣 ∪ {𝑢}) ⊆ 𝑥)
2625sseld 3587 . . . . . . . . . 10 ((𝑣 ∪ {𝑢}) ∈ 𝑥 → (𝑢 ∈ (𝑣 ∪ {𝑢}) → 𝑢 𝑥))
2724, 26mpi 20 . . . . . . . . 9 ((𝑣 ∪ {𝑢}) ∈ 𝑥𝑢 𝑥)
2827con3i 150 . . . . . . . 8 𝑢 𝑥 → ¬ (𝑣 ∪ {𝑢}) ∈ 𝑥)
2928biantrurd 529 . . . . . . 7 𝑢 𝑥 → (∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢}))) ↔ (¬ (𝑣 ∪ {𝑢}) ∈ 𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢}))))))
3020, 29bitrd 268 . . . . . 6 𝑢 𝑥 → (∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑣)) ↔ (¬ (𝑣 ∪ {𝑢}) ∈ 𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢}))))))
31 vex 3193 . . . . . . . 8 𝑣 ∈ V
32 snex 4879 . . . . . . . 8 {𝑢} ∈ V
3331, 32unex 6921 . . . . . . 7 (𝑣 ∪ {𝑢}) ∈ V
34 eleq1 2686 . . . . . . . . 9 (𝑦 = (𝑣 ∪ {𝑢}) → (𝑦𝑥 ↔ (𝑣 ∪ {𝑢}) ∈ 𝑥))
3534notbid 308 . . . . . . . 8 (𝑦 = (𝑣 ∪ {𝑢}) → (¬ 𝑦𝑥 ↔ ¬ (𝑣 ∪ {𝑢}) ∈ 𝑥))
36 ineq2 3792 . . . . . . . . . . . 12 (𝑦 = (𝑣 ∪ {𝑢}) → (𝑧𝑦) = (𝑧 ∩ (𝑣 ∪ {𝑢})))
3736eleq2d 2684 . . . . . . . . . . 11 (𝑦 = (𝑣 ∪ {𝑢}) → (𝑤 ∈ (𝑧𝑦) ↔ 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢}))))
3837eubidv 2489 . . . . . . . . . 10 (𝑦 = (𝑣 ∪ {𝑢}) → (∃!𝑤 𝑤 ∈ (𝑧𝑦) ↔ ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢}))))
3938imbi2d 330 . . . . . . . . 9 (𝑦 = (𝑣 ∪ {𝑢}) → ((𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)) ↔ (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢})))))
4039ralbidv 2982 . . . . . . . 8 (𝑦 = (𝑣 ∪ {𝑢}) → (∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)) ↔ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢})))))
4135, 40anbi12d 746 . . . . . . 7 (𝑦 = (𝑣 ∪ {𝑢}) → ((¬ 𝑦𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦))) ↔ (¬ (𝑣 ∪ {𝑢}) ∈ 𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢}))))))
4233, 41spcev 3290 . . . . . 6 ((¬ (𝑣 ∪ {𝑢}) ∈ 𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧 ∩ (𝑣 ∪ {𝑢})))) → ∃𝑦𝑦𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦))))
4330, 42syl6bi 243 . . . . 5 𝑢 𝑥 → (∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑣)) → ∃𝑦𝑦𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)))))
44 vuniex 6919 . . . . . 6 𝑥 ∈ V
45 eleq2 2687 . . . . . . . 8 (𝑦 = 𝑥 → (𝑢𝑦𝑢 𝑥))
4645notbid 308 . . . . . . 7 (𝑦 = 𝑥 → (¬ 𝑢𝑦 ↔ ¬ 𝑢 𝑥))
4746exbidv 1847 . . . . . 6 (𝑦 = 𝑥 → (∃𝑢 ¬ 𝑢𝑦 ↔ ∃𝑢 ¬ 𝑢 𝑥))
48 nalset 4765 . . . . . . . 8 ¬ ∃𝑦𝑢 𝑢𝑦
49 alexn 1768 . . . . . . . 8 (∀𝑦𝑢 ¬ 𝑢𝑦 ↔ ¬ ∃𝑦𝑢 𝑢𝑦)
5048, 49mpbir 221 . . . . . . 7 𝑦𝑢 ¬ 𝑢𝑦
5150spi 2052 . . . . . 6 𝑢 ¬ 𝑢𝑦
5244, 47, 51vtocl 3249 . . . . 5 𝑢 ¬ 𝑢 𝑥
5343, 52exlimiiv 1856 . . . 4 (∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑣)) → ∃𝑦𝑦𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦))))
5453exlimiv 1855 . . 3 (∃𝑣𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑣)) → ∃𝑦𝑦𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦))))
556, 54sylbi 207 . 2 (∃𝑦𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)) → ∃𝑦𝑦𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦))))
56 exsimpr 1793 . 2 (∃𝑦𝑦𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦))) → ∃𝑦𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)))
5755, 56impbii 199 1 (∃𝑦𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦)) ↔ ∃𝑦𝑦𝑥 ∧ ∀𝑧𝑥 (𝜑 → ∃!𝑤 𝑤 ∈ (𝑧𝑦))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wo 383  wa 384  wal 1478   = wceq 1480  wex 1701  wcel 1987  ∃!weu 2469  wral 2908  cun 3558  cin 3559  c0 3897  {csn 4155   cuni 4409
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-sep 4751  ax-nul 4759  ax-pr 4877  ax-un 6914
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ral 2913  df-rex 2914  df-v 3192  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-nul 3898  df-sn 4156  df-pr 4158  df-uni 4410
This theorem is referenced by:  kmlem8  8939
  Copyright terms: Public domain W3C validator