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

Theorem axregndlem2 9370
 Description: Lemma for the Axiom of Regularity with no distinct variable conditions. (Contributed by NM, 3-Jan-2002.) (Proof shortened by Mario Carneiro, 10-Dec-2016.)
Assertion
Ref Expression
axregndlem2 (𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦)))
Distinct variable group:   𝑦,𝑧

Proof of Theorem axregndlem2
Dummy variable 𝑤 is distinct from all other variables.
StepHypRef Expression
1 axreg2 8443 . . . . . 6 (𝑤𝑦 → ∃𝑤(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦)))
21ax-gen 1719 . . . . 5 𝑤(𝑤𝑦 → ∃𝑤(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦)))
3 nfnae 2322 . . . . . . 7 𝑥 ¬ ∀𝑥 𝑥 = 𝑦
4 nfnae 2322 . . . . . . 7 𝑥 ¬ ∀𝑥 𝑥 = 𝑧
53, 4nfan 1830 . . . . . 6 𝑥(¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧)
6 nfcvd 2768 . . . . . . . 8 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → 𝑥𝑤)
7 nfcvf 2790 . . . . . . . . 9 (¬ ∀𝑥 𝑥 = 𝑦𝑥𝑦)
87adantr 481 . . . . . . . 8 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → 𝑥𝑦)
96, 8nfeld 2775 . . . . . . 7 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥 𝑤𝑦)
10 nfv 1845 . . . . . . . 8 𝑤(¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧)
11 nfnae 2322 . . . . . . . . . . 11 𝑧 ¬ ∀𝑥 𝑥 = 𝑦
12 nfnae 2322 . . . . . . . . . . 11 𝑧 ¬ ∀𝑥 𝑥 = 𝑧
1311, 12nfan 1830 . . . . . . . . . 10 𝑧(¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧)
14 nfcvf 2790 . . . . . . . . . . . . 13 (¬ ∀𝑥 𝑥 = 𝑧𝑥𝑧)
1514adantl 482 . . . . . . . . . . . 12 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → 𝑥𝑧)
1615, 6nfeld 2775 . . . . . . . . . . 11 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥 𝑧𝑤)
1715, 8nfeld 2775 . . . . . . . . . . . 12 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥 𝑧𝑦)
1817nfnd 1783 . . . . . . . . . . 11 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥 ¬ 𝑧𝑦)
1916, 18nfimd 1825 . . . . . . . . . 10 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥(𝑧𝑤 → ¬ 𝑧𝑦))
2013, 19nfald 2167 . . . . . . . . 9 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥𝑧(𝑧𝑤 → ¬ 𝑧𝑦))
219, 20nfand 1828 . . . . . . . 8 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦)))
2210, 21nfexd 2169 . . . . . . 7 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥𝑤(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦)))
239, 22nfimd 1825 . . . . . 6 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑥(𝑤𝑦 → ∃𝑤(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦))))
24 simpr 477 . . . . . . . . 9 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → 𝑤 = 𝑥)
2524eleq1d 2688 . . . . . . . 8 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → (𝑤𝑦𝑥𝑦))
26 nfcvd 2768 . . . . . . . . . . . . . . 15 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → 𝑧𝑤)
27 nfcvf2 2791 . . . . . . . . . . . . . . . 16 (¬ ∀𝑥 𝑥 = 𝑧𝑧𝑥)
2827adantl 482 . . . . . . . . . . . . . . 15 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → 𝑧𝑥)
2926, 28nfeqd 2774 . . . . . . . . . . . . . 14 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → Ⅎ𝑧 𝑤 = 𝑥)
3013, 29nfan1 2071 . . . . . . . . . . . . 13 𝑧((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥)
3124eleq2d 2689 . . . . . . . . . . . . . 14 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → (𝑧𝑤𝑧𝑥))
3231imbi1d 331 . . . . . . . . . . . . 13 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → ((𝑧𝑤 → ¬ 𝑧𝑦) ↔ (𝑧𝑥 → ¬ 𝑧𝑦)))
3330, 32albid 2093 . . . . . . . . . . . 12 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → (∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦) ↔ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦)))
3425, 33anbi12d 746 . . . . . . . . . . 11 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → ((𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦)) ↔ (𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦))))
3534ex 450 . . . . . . . . . 10 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → (𝑤 = 𝑥 → ((𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦)) ↔ (𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦)))))
365, 21, 35cbvexd 2282 . . . . . . . . 9 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → (∃𝑤(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦)) ↔ ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦))))
3736adantr 481 . . . . . . . 8 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → (∃𝑤(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦)) ↔ ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦))))
3825, 37imbi12d 334 . . . . . . 7 (((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) ∧ 𝑤 = 𝑥) → ((𝑤𝑦 → ∃𝑤(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦))) ↔ (𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦)))))
3938ex 450 . . . . . 6 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → (𝑤 = 𝑥 → ((𝑤𝑦 → ∃𝑤(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦))) ↔ (𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦))))))
405, 23, 39cbvald 2281 . . . . 5 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → (∀𝑤(𝑤𝑦 → ∃𝑤(𝑤𝑦 ∧ ∀𝑧(𝑧𝑤 → ¬ 𝑧𝑦))) ↔ ∀𝑥(𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦)))))
412, 40mpbii 223 . . . 4 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → ∀𝑥(𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦))))
424119.21bi 2062 . . 3 ((¬ ∀𝑥 𝑥 = 𝑦 ∧ ¬ ∀𝑥 𝑥 = 𝑧) → (𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦))))
4342ex 450 . 2 (¬ ∀𝑥 𝑥 = 𝑦 → (¬ ∀𝑥 𝑥 = 𝑧 → (𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦)))))
44 elirrv 8449 . . . . 5 ¬ 𝑥𝑥
45 elequ2 2006 . . . . 5 (𝑥 = 𝑦 → (𝑥𝑥𝑥𝑦))
4644, 45mtbii 316 . . . 4 (𝑥 = 𝑦 → ¬ 𝑥𝑦)
4746sps 2058 . . 3 (∀𝑥 𝑥 = 𝑦 → ¬ 𝑥𝑦)
4847pm2.21d 118 . 2 (∀𝑥 𝑥 = 𝑦 → (𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦))))
49 axregndlem1 9369 . 2 (∀𝑥 𝑥 = 𝑧 → (𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦))))
5043, 48, 49pm2.61ii 177 1 (𝑥𝑦 → ∃𝑥(𝑥𝑦 ∧ ∀𝑧(𝑧𝑥 → ¬ 𝑧𝑦)))
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 196   ∧ wa 384  ∀wal 1478  ∃wex 1701  Ⅎwnfc 2754 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 1841  ax-6 1890  ax-7 1937  ax-8 1994  ax-9 2001  ax-10 2021  ax-11 2036  ax-12 2049  ax-13 2250  ax-ext 2606  ax-sep 4746  ax-nul 4754  ax-pr 4872  ax-reg 8442 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 1883  df-clab 2613  df-cleq 2619  df-clel 2622  df-nfc 2756  df-ral 2917  df-rex 2918  df-v 3193  df-dif 3563  df-un 3565  df-nul 3897  df-sn 4154  df-pr 4156 This theorem is referenced by:  axregnd  9371
 Copyright terms: Public domain W3C validator