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

Theorem dfom3 9676
Description: The class of natural numbers ω can be defined as the intersection of all inductive sets (which is the smallest inductive set, since inductive sets are closed under intersection), which is valid provided we assume the Axiom of Infinity. Definition 6.3 of [Eisenberg] p. 82. Definition 1.20 of [Schloeder] p. 3. (Contributed by NM, 6-Aug-1994.)
Assertion
Ref Expression
dfom3 ω = {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)}
Distinct variable group:   𝑥,𝑦

Proof of Theorem dfom3
Dummy variable 𝑧 is distinct from all other variables.
StepHypRef Expression
1 0ex 5309 . . . . 5 ∅ ∈ V
21elintab 4963 . . . 4 (∅ ∈ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ↔ ∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → ∅ ∈ 𝑥))
3 simpl 481 . . . 4 ((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → ∅ ∈ 𝑥)
42, 3mpgbir 1793 . . 3 ∅ ∈ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)}
5 suceq 6438 . . . . . . . . . 10 (𝑦 = 𝑧 → suc 𝑦 = suc 𝑧)
65eleq1d 2813 . . . . . . . . 9 (𝑦 = 𝑧 → (suc 𝑦𝑥 ↔ suc 𝑧𝑥))
76rspccv 3606 . . . . . . . 8 (∀𝑦𝑥 suc 𝑦𝑥 → (𝑧𝑥 → suc 𝑧𝑥))
87adantl 480 . . . . . . 7 ((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → (𝑧𝑥 → suc 𝑧𝑥))
98a2i 14 . . . . . 6 (((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥) → ((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → suc 𝑧𝑥))
109alimi 1805 . . . . 5 (∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥) → ∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → suc 𝑧𝑥))
11 vex 3475 . . . . . 6 𝑧 ∈ V
1211elintab 4963 . . . . 5 (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ↔ ∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥))
1311sucex 7813 . . . . . 6 suc 𝑧 ∈ V
1413elintab 4963 . . . . 5 (suc 𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ↔ ∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → suc 𝑧𝑥))
1510, 12, 143imtr4i 291 . . . 4 (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → suc 𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)})
1615rgenw 3061 . . 3 𝑧 ∈ ω (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → suc 𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)})
17 peano5 7903 . . 3 ((∅ ∈ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ∧ ∀𝑧 ∈ ω (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → suc 𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)})) → ω ⊆ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)})
184, 16, 17mp2an 690 . 2 ω ⊆ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)}
19 peano1 7898 . . . 4 ∅ ∈ ω
20 peano2 7900 . . . . 5 (𝑦 ∈ ω → suc 𝑦 ∈ ω)
2120rgen 3059 . . . 4 𝑦 ∈ ω suc 𝑦 ∈ ω
22 omex 9672 . . . . . 6 ω ∈ V
23 eleq2 2817 . . . . . . . 8 (𝑥 = ω → (∅ ∈ 𝑥 ↔ ∅ ∈ ω))
24 eleq2 2817 . . . . . . . . 9 (𝑥 = ω → (suc 𝑦𝑥 ↔ suc 𝑦 ∈ ω))
2524raleqbi1dv 3329 . . . . . . . 8 (𝑥 = ω → (∀𝑦𝑥 suc 𝑦𝑥 ↔ ∀𝑦 ∈ ω suc 𝑦 ∈ ω))
2623, 25anbi12d 630 . . . . . . 7 (𝑥 = ω → ((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) ↔ (∅ ∈ ω ∧ ∀𝑦 ∈ ω suc 𝑦 ∈ ω)))
27 eleq2 2817 . . . . . . 7 (𝑥 = ω → (𝑧𝑥𝑧 ∈ ω))
2826, 27imbi12d 343 . . . . . 6 (𝑥 = ω → (((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥) ↔ ((∅ ∈ ω ∧ ∀𝑦 ∈ ω suc 𝑦 ∈ ω) → 𝑧 ∈ ω)))
2922, 28spcv 3592 . . . . 5 (∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥) → ((∅ ∈ ω ∧ ∀𝑦 ∈ ω suc 𝑦 ∈ ω) → 𝑧 ∈ ω))
3012, 29sylbi 216 . . . 4 (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → ((∅ ∈ ω ∧ ∀𝑦 ∈ ω suc 𝑦 ∈ ω) → 𝑧 ∈ ω))
3119, 21, 30mp2ani 696 . . 3 (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → 𝑧 ∈ ω)
3231ssriv 3984 . 2 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ⊆ ω
3318, 32eqssi 3996 1 ω = {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)}
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 394  wal 1531   = wceq 1533  wcel 2098  {cab 2704  wral 3057  wss 3947  c0 4324   cint 4951  suc csuc 6374  ωcom 7874
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2698  ax-sep 5301  ax-nul 5308  ax-pr 5431  ax-un 7744  ax-inf2 9670
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-clab 2705  df-cleq 2719  df-clel 2805  df-ne 2937  df-ral 3058  df-rex 3067  df-rab 3429  df-v 3473  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4325  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-op 4637  df-uni 4911  df-int 4952  df-br 5151  df-opab 5213  df-tr 5268  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5635  df-we 5637  df-ord 6375  df-on 6376  df-lim 6377  df-suc 6378  df-om 7875
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator