HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
GIF version

Theorem dfom3 4622
Description: The class of natural numbers omega can be defined as the smallest "inductive set," which is valid provided we assume the Axiom of Infinity. Definition 6.3 of [Eisenberg] p. 82.
Assertion
Ref Expression
dfom3 ω = {x∣(∅ ∈ x ⋀ ∀yx suc yx)}
Distinct variable group:   x,y

Proof of Theorem dfom3
StepHypRef Expression
1 0ex 2707 . . . . 5 ∅ ∈ V
21elintab 2540 . . . 4 (∅ ∈ {x∣(∅ ∈ x ⋀ ∀yx suc yx)} ↔ ∀x((∅ ∈ x ⋀ ∀yx suc yx) → ∅ ∈ x))
3 pm3.26 319 . . . 4 ((∅ ∈ x ⋀ ∀yx suc yx) → ∅ ∈ x)
42, 3mpgbir 986 . . 3 ∅ ∈ {x∣(∅ ∈ x ⋀ ∀yx suc yx)}
5 suceq 3034 . . . . . . . . . . 11 (y = z → suc y = suc z)
65eleq1d 1537 . . . . . . . . . 10 (y = z → (suc yx ↔ suc zx))
76rcla4cv 1870 . . . . . . . . 9 (∀yx suc yx → (zx → suc zx))
87adantl 388 . . . . . . . 8 ((∅ ∈ x ⋀ ∀yx suc yx) → (zx → suc zx))
98a2i 9 . . . . . . 7 (((∅ ∈ x ⋀ ∀yx suc yx) → zx) → ((∅ ∈ x ⋀ ∀yx suc yx) → suc zx))
10919.20i 990 . . . . . 6 (∀x((∅ ∈ x ⋀ ∀yx suc yx) → zx) → ∀x((∅ ∈ x ⋀ ∀yx suc yx) → suc zx))
11 visset 1809 . . . . . . 7 zV
1211elintab 2540 . . . . . 6 (z{x∣(∅ ∈ x ⋀ ∀yx suc yx)} ↔ ∀x((∅ ∈ x ⋀ ∀yx suc yx) → zx))
1311sucex 3050 . . . . . . 7 suc zV
1413elintab 2540 . . . . . 6 (suc z{x∣(∅ ∈ x ⋀ ∀yx suc yx)} ↔ ∀x((∅ ∈ x ⋀ ∀yx suc yx) → suc zx))
1510, 12, 143imtr4 219 . . . . 5 (z{x∣(∅ ∈ x ⋀ ∀yx suc yx)} → suc z{x∣(∅ ∈ x ⋀ ∀yx suc yx)})
1615a1i 8 . . . 4 (z ∈ ω → (z{x∣(∅ ∈ x ⋀ ∀yx suc yx)} → suc z{x∣(∅ ∈ x ⋀ ∀yx suc yx)}))
1716rgen 1695 . . 3 z ∈ ω (z{x∣(∅ ∈ x ⋀ ∀yx suc yx)} → suc z{x∣(∅ ∈ x ⋀ ∀yx suc yx)})
18 peano5 3153 . . 3 ((∅ ∈ {x∣(∅ ∈ x ⋀ ∀yx suc yx)} ⋀ ∀z ∈ ω (z{x∣(∅ ∈ x ⋀ ∀yx suc yx)} → suc z{x∣(∅ ∈ x ⋀ ∀yx suc yx)})) → ω ⊆ {x∣(∅ ∈ x ⋀ ∀yx suc yx)})
194, 17, 18mp2an 696 . 2 ω ⊆ {x∣(∅ ∈ x ⋀ ∀yx suc yx)}
20 peano1 3149 . . . 4 ∅ ∈ ω
21 peano2 3150 . . . . 5 (y ∈ ω → suc y ∈ ω)
2221rgen 1695 . . . 4 y ∈ ω suc y ∈ ω
23 omex 4619 . . . . . 6 ω ∈ V
24 eleq2 1532 . . . . . . . 8 (x = ω → (∅ ∈ x ↔ ∅ ∈ ω))
25 eleq2 1532 . . . . . . . . 9 (x = ω → (suc yx ↔ suc y ∈ ω))
2625raleqd 1788 . . . . . . . 8 (x = ω → (∀yx suc yx ↔ ∀y ∈ ω suc y ∈ ω))
2724, 26anbi12d 627 . . . . . . 7 (x = ω → ((∅ ∈ x ⋀ ∀yx suc yx) ↔ (∅ ∈ ω ⋀ ∀y ∈ ω suc y ∈ ω)))
28 eleq2 1532 . . . . . . 7 (x = ω → (zxz ∈ ω))
2927, 28imbi12d 625 . . . . . 6 (x = ω → (((∅ ∈ x ⋀ ∀yx suc yx) → zx) ↔ ((∅ ∈ ω ⋀ ∀y ∈ ω suc y ∈ ω) → z ∈ ω)))
3023, 29cla4v 1864 . . . . 5 (∀x((∅ ∈ x ⋀ ∀yx suc yx) → zx) → ((∅ ∈ ω ⋀ ∀y ∈ ω suc y ∈ ω) → z ∈ ω))
3112, 30sylbi 199 . . . 4 (z{x∣(∅ ∈ x ⋀ ∀yx suc yx)} → ((∅ ∈ ω ⋀ ∀y ∈ ω suc y ∈ ω) → z ∈ ω))
3220, 22, 31mp2ani 699 . . 3 (z{x∣(∅ ∈ x ⋀ ∀yx suc yx)} → z ∈ ω)
3332ssriv 2065 . 2 {x∣(∅ ∈ x ⋀ ∀yx suc yx)} ⊆ ω
3419, 33eqssi 2074 1 ω = {x∣(∅ ∈ x ⋀ ∀yx suc yx)}
Colors of variables: wff set class
Syntax hints:   → wi 3   ⋀ wa 223  ∀wal 952   = wceq 954   ∈ wcel 956  {cab 1461  ∀wral 1642   ⊆ wss 2043  ∅c0 2276  cint 2529  suc csuc 2949  ωcom 3131
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 960  ax-gen 961  ax-8 962  ax-10 964  ax-11 965  ax-12 966  ax-13 967  ax-14 968  ax-17 969  ax-4 971  ax-5o 973  ax-6o 976  ax-9o 1121  ax-10o 1138  ax-16 1208  ax-11o 1216  ax-ext 1457  ax-sep 2699  ax-nul 2706  ax-pow 2738  ax-pr 2775  ax-un 2865  ax-inf2 4617
This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-3or 775  df-3an 776  df-ex 979  df-sb 1170  df-eu 1380  df-mo 1381  df-clab 1462  df-cleq 1467  df-clel 1470  df-ne 1584  df-ral 1646  df-rex 1647  df-v 1808  df-dif 2045  df-un 2046  df-in 2047  df-ss 2049  df-nul 2277  df-if 2358  df-pw 2398  df-sn 2408  df-pr 2409  df-tp 2411  df-op 2412  df-uni 2500  df-int 2530  df-br 2616  df-opab 2663  df-tr 2677  df-eprel 2829  df-po 2839  df-so 2849  df-fr 2916  df-we 2933  df-ord 2950  df-on 2951  df-lim 2952  df-suc 2953  df-om 3132
Copyright terms: Public domain