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

Theorem axpowndlem2 10676
Description: Lemma for the Axiom of Power Sets with no distinct variable conditions. Revised to remove a redundant antecedent from the consequence. Usage of this theorem is discouraged because it depends on ax-13 2402. (Contributed by NM, 4-Jan-2002.) (Proof shortened by Mario Carneiro, 6-Dec-2016.) (Revised and shortened by Wolf Lammen, 9-Jun-2019.) (New usage is discouraged.)
Assertion
Ref Expression
axpowndlem2 (¬ ∀𝑥 𝑥 = 𝑦 → (¬ ∀𝑥 𝑥 = 𝑧 → ∃𝑥∀𝑦(∀𝑥(∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧) → 𝑦 ∈ 𝑥)))
Distinct variable group:   𝑦,𝑧

Proof of Theorem axpowndlem2
Dummy variable 𝑤 is distinct from all other variables.
StepHypRef Expression
1 zfpow 5328 . . . 4 ∃𝑤∀𝑦(∀𝑤(𝑤 ∈ 𝑦 → 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤)
2 19.8a 2218 . . . . . . . 8 (𝑤 ∈ 𝑦 → ∃𝑧 𝑤 ∈ 𝑦)
3 sp 2220 . . . . . . . 8 (∀𝑦 𝑤 ∈ 𝑧 → 𝑤 ∈ 𝑧)
42, 3imim12i 63 . . . . . . 7 ((∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → (𝑤 ∈ 𝑦 → 𝑤 ∈ 𝑧))
54alimi 1844 . . . . . 6 (∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → ∀𝑤(𝑤 ∈ 𝑦 → 𝑤 ∈ 𝑧))
65imim1i 64 . . . . 5 ((∀𝑤(𝑤 ∈ 𝑦 → 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤) → (∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤))
76alimi 1844 . . . 4 (∀𝑦(∀𝑤(𝑤 ∈ 𝑦 → 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤) → ∀𝑦(∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤))
81, 7eximii 1870 . . 3 ∃𝑤∀𝑦(∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤)
9 nfnae 2464 . . . . 5 Ⅎ𝑥 ¬ ∀𝑥 𝑥 = 𝑦
10 nfnae 2464 . . . . 5 Ⅎ𝑥 ¬ ∀𝑥 𝑥 = 𝑧
119, 10nfan 1932 . . . 4 Ⅎ𝑥(¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧)
12 nfnae 2464 . . . . . 6 Ⅎ𝑦 ¬ ∀𝑥 𝑥 = 𝑦
13 nfnae 2464 . . . . . 6 Ⅎ𝑦 ¬ ∀𝑥 𝑥 = 𝑧
1412, 13nfan 1932 . . . . 5 Ⅎ𝑦(¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧)
15 nfv 1947 . . . . . . 7 Ⅎ𝑤(¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧)
16 nfnae 2464 . . . . . . . . . 10 Ⅎ𝑧 ¬ ∀𝑥 𝑥 = 𝑦
17 nfcvd 2924 . . . . . . . . . . 11 (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑥𝑤)
18 nfcvf 2949 . . . . . . . . . . 11 (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑥𝑦)
1917, 18nfeld 2934 . . . . . . . . . 10 (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑥 𝑤 ∈ 𝑦)
2016, 19nfexd 2360 . . . . . . . . 9 (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑥∃𝑧 𝑤 ∈ 𝑦)
2120adantr 486 . . . . . . . 8 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥∃𝑧 𝑤 ∈ 𝑦)
22 nfcvd 2924 . . . . . . . . . . 11 (¬ ∀𝑥 𝑥 = 𝑧 → Ⅎ𝑥𝑤)
23 nfcvf 2949 . . . . . . . . . . 11 (¬ ∀𝑥 𝑥 = 𝑧 → Ⅎ𝑥𝑧)
2422, 23nfeld 2934 . . . . . . . . . 10 (¬ ∀𝑥 𝑥 = 𝑧 → Ⅎ𝑥 𝑤 ∈ 𝑧)
2513, 24nfald 2359 . . . . . . . . 9 (¬ ∀𝑥 𝑥 = 𝑧 → Ⅎ𝑥∀𝑦 𝑤 ∈ 𝑧)
2625adantl 487 . . . . . . . 8 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥∀𝑦 𝑤 ∈ 𝑧)
2721, 26nfimd 1927 . . . . . . 7 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧))
2815, 27nfald 2359 . . . . . 6 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧))
2918, 17nfeld 2934 . . . . . . 7 (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑥 𝑦 ∈ 𝑤)
3029adantr 486 . . . . . 6 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥 𝑦 ∈ 𝑤)
3128, 30nfimd 1927 . . . . 5 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥(∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤))
3214, 31nfald 2359 . . . 4 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥∀𝑦(∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤))
33 nfeqf2 2407 . . . . . . . . 9 (¬ ∀𝑦 𝑦 = 𝑥 → Ⅎ𝑦 𝑤 = 𝑥)
3433naecoms 2459 . . . . . . . 8 (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑦 𝑤 = 𝑥)
3534adantr 486 . . . . . . 7 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑦 𝑤 = 𝑥)
3614, 35nfan1 2237 . . . . . 6 Ⅎ𝑦((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥)
37 nfnae 2464 . . . . . . . . . . . . . 14 Ⅎ𝑧 ¬ ∀𝑥 𝑥 = 𝑧
38 nfeqf2 2407 . . . . . . . . . . . . . . 15 (¬ ∀𝑧 𝑧 = 𝑥 → Ⅎ𝑧 𝑤 = 𝑥)
3938naecoms 2459 . . . . . . . . . . . . . 14 (¬ ∀𝑥 𝑥 = 𝑧 → Ⅎ𝑧 𝑤 = 𝑥)
4037, 39nfan1 2237 . . . . . . . . . . . . 13 Ⅎ𝑧(¬ ∀𝑥 𝑥 = 𝑧 ∧ 𝑤 = 𝑥)
41 elequ1 2152 . . . . . . . . . . . . . 14 (𝑤 = 𝑥 → (𝑤 ∈ 𝑦 ↔ 𝑥 ∈ 𝑦))
4241adantl 487 . . . . . . . . . . . . 13 ((¬ ∀𝑥 𝑥 = 𝑧 ∧ 𝑤 = 𝑥) → (𝑤 ∈ 𝑦 ↔ 𝑥 ∈ 𝑦))
4340, 42exbid 2260 . . . . . . . . . . . 12 ((¬ ∀𝑥 𝑥 = 𝑧 ∧ 𝑤 = 𝑥) → (∃𝑧 𝑤 ∈ 𝑦 ↔ ∃𝑧 𝑥 ∈ 𝑦))
4443adantll 727 . . . . . . . . . . 11 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → (∃𝑧 𝑤 ∈ 𝑦 ↔ ∃𝑧 𝑥 ∈ 𝑦))
4512, 34nfan1 2237 . . . . . . . . . . . . 13 Ⅎ𝑦(¬ ∀𝑥 𝑥 = 𝑦 ∧ 𝑤 = 𝑥)
46 elequ1 2152 . . . . . . . . . . . . . 14 (𝑤 = 𝑥 → (𝑤 ∈ 𝑧 ↔ 𝑥 ∈ 𝑧))
4746adantl 487 . . . . . . . . . . . . 13 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ 𝑤 = 𝑥) → (𝑤 ∈ 𝑧 ↔ 𝑥 ∈ 𝑧))
4845, 47albid 2259 . . . . . . . . . . . 12 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ 𝑤 = 𝑥) → (∀𝑦 𝑤 ∈ 𝑧 ↔ ∀𝑦 𝑥 ∈ 𝑧))
4948adantlr 728 . . . . . . . . . . 11 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → (∀𝑦 𝑤 ∈ 𝑧 ↔ ∀𝑦 𝑥 ∈ 𝑧))
5044, 49imbi12d 347 . . . . . . . . . 10 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → ((∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) ↔ (∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧)))
5150ex 418 . . . . . . . . 9 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → (𝑤 = 𝑥 → ((∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) ↔ (∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧))))
5211, 27, 51cbvald 2437 . . . . . . . 8 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → (∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) ↔ ∀𝑥(∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧)))
5352adantr 486 . . . . . . 7 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → (∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) ↔ ∀𝑥(∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧)))
54 elequ2 2160 . . . . . . . 8 (𝑤 = 𝑥 → (𝑦 ∈ 𝑤 ↔ 𝑦 ∈ 𝑥))
5554adantl 487 . . . . . . 7 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → (𝑦 ∈ 𝑤 ↔ 𝑦 ∈ 𝑥))
5653, 55imbi12d 347 . . . . . 6 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → ((∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤) ↔ (∀𝑥(∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧) → 𝑦 ∈ 𝑥)))
5736, 56albid 2259 . . . . 5 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → (∀𝑦(∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤) ↔ ∀𝑦(∀𝑥(∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧) → 𝑦 ∈ 𝑥)))
5857ex 418 . . . 4 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → (𝑤 = 𝑥 → (∀𝑦(∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤) ↔ ∀𝑦(∀𝑥(∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧) → 𝑦 ∈ 𝑥))))
5911, 32, 58cbvexd 2438 . . 3 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → (∃𝑤∀𝑦(∀𝑤(∃𝑧 𝑤 ∈ 𝑦 → ∀𝑦 𝑤 ∈ 𝑧) → 𝑦 ∈ 𝑤) ↔ ∃𝑥∀𝑦(∀𝑥(∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧) → 𝑦 ∈ 𝑥)))
608, 59mpbii 236 . 2 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → ∃𝑥∀𝑦(∀𝑥(∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧) → 𝑦 ∈ 𝑥))
6160ex 418 1 (¬ ∀𝑥 𝑥 = 𝑦 → (¬ ∀𝑥 𝑥 = 𝑧 → ∃𝑥∀𝑦(∀𝑥(∃𝑧 𝑥 ∈ 𝑦 → ∀𝑦 𝑥 ∈ 𝑧) → 𝑦 ∈ 𝑥)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401  ∀wal 1568  ∃wex 1812  Ⅎwnf 1816
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-13 2402  ax-ext 2733  ax-pow 5327
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-tru 1573  df-ex 1813  df-nf 1817  df-cleq 2753  df-clel 2836  df-nfc 2910
This theorem is used by:  axpowndlem3  10677
  Copyright terms: Public domain W3C validator