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

Theorem dfom3 9716
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 5325 . . . . 5 ∅ ∈ V
21elintab 4982 . . . 4 (∅ ∈ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ↔ ∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → ∅ ∈ 𝑥))
3 simpl 482 . . . 4 ((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → ∅ ∈ 𝑥)
42, 3mpgbir 1797 . . 3 ∅ ∈ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)}
5 suceq 6461 . . . . . . . . . 10 (𝑦 = 𝑧 → suc 𝑦 = suc 𝑧)
65eleq1d 2829 . . . . . . . . 9 (𝑦 = 𝑧 → (suc 𝑦𝑥 ↔ suc 𝑧𝑥))
76rspccv 3632 . . . . . . . 8 (∀𝑦𝑥 suc 𝑦𝑥 → (𝑧𝑥 → suc 𝑧𝑥))
87adantl 481 . . . . . . 7 ((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → (𝑧𝑥 → suc 𝑧𝑥))
98a2i 14 . . . . . 6 (((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥) → ((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → suc 𝑧𝑥))
109alimi 1809 . . . . 5 (∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥) → ∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → suc 𝑧𝑥))
11 vex 3492 . . . . . 6 𝑧 ∈ V
1211elintab 4982 . . . . 5 (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ↔ ∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥))
1311sucex 7842 . . . . . 6 suc 𝑧 ∈ V
1413elintab 4982 . . . . 5 (suc 𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ↔ ∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → suc 𝑧𝑥))
1510, 12, 143imtr4i 292 . . . 4 (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → suc 𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)})
1615rgenw 3071 . . 3 𝑧 ∈ ω (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → suc 𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)})
17 peano5 7932 . . 3 ((∅ ∈ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ∧ ∀𝑧 ∈ ω (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → suc 𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)})) → ω ⊆ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)})
184, 16, 17mp2an 691 . 2 ω ⊆ {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)}
19 peano1 7927 . . . 4 ∅ ∈ ω
20 peano2 7929 . . . . 5 (𝑦 ∈ ω → suc 𝑦 ∈ ω)
2120rgen 3069 . . . 4 𝑦 ∈ ω suc 𝑦 ∈ ω
22 omex 9712 . . . . . 6 ω ∈ V
23 eleq2 2833 . . . . . . . 8 (𝑥 = ω → (∅ ∈ 𝑥 ↔ ∅ ∈ ω))
24 eleq2 2833 . . . . . . . . 9 (𝑥 = ω → (suc 𝑦𝑥 ↔ suc 𝑦 ∈ ω))
2524raleqbi1dv 3346 . . . . . . . 8 (𝑥 = ω → (∀𝑦𝑥 suc 𝑦𝑥 ↔ ∀𝑦 ∈ ω suc 𝑦 ∈ ω))
2623, 25anbi12d 631 . . . . . . 7 (𝑥 = ω → ((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) ↔ (∅ ∈ ω ∧ ∀𝑦 ∈ ω suc 𝑦 ∈ ω)))
27 eleq2 2833 . . . . . . 7 (𝑥 = ω → (𝑧𝑥𝑧 ∈ ω))
2826, 27imbi12d 344 . . . . . 6 (𝑥 = ω → (((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥) ↔ ((∅ ∈ ω ∧ ∀𝑦 ∈ ω suc 𝑦 ∈ ω) → 𝑧 ∈ ω)))
2922, 28spcv 3618 . . . . 5 (∀𝑥((∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥) → 𝑧𝑥) → ((∅ ∈ ω ∧ ∀𝑦 ∈ ω suc 𝑦 ∈ ω) → 𝑧 ∈ ω))
3012, 29sylbi 217 . . . 4 (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → ((∅ ∈ ω ∧ ∀𝑦 ∈ ω suc 𝑦 ∈ ω) → 𝑧 ∈ ω))
3119, 21, 30mp2ani 697 . . 3 (𝑧 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} → 𝑧 ∈ ω)
3231ssriv 4012 . 2 {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)} ⊆ ω
3318, 32eqssi 4025 1 ω = {𝑥 ∣ (∅ ∈ 𝑥 ∧ ∀𝑦𝑥 suc 𝑦𝑥)}
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  wal 1535   = wceq 1537  wcel 2108  {cab 2717  wral 3067  wss 3976  c0 4352   cint 4970  suc csuc 6397  ωcom 7903
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-sep 5317  ax-nul 5324  ax-pr 5447  ax-un 7770  ax-inf2 9710
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-clab 2718  df-cleq 2732  df-clel 2819  df-ne 2947  df-ral 3068  df-rex 3077  df-rab 3444  df-v 3490  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-int 4971  df-br 5167  df-opab 5229  df-tr 5284  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-om 7904
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator