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

Theorem dfom3 3477
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(s):   x,y

Proof of Theorem dfom3
StepHypRef Expression
1 0ex 1745 . . . . 5 ∅ ∈ V
21elintab 1976 . . . 4 (∅ ∈ {x∣(∅ ∈ x ∧ ∀yx suc yx)} ↔ ∀x((∅ ∈ x ∧ ∀yx suc yx) → ∅ ∈ x))
3 pm3.26 256 . . . 4 ((∅ ∈ x ∧ ∀yx suc yx) → ∅ ∈ x)
42, 3mpgbir 686 . . 3 ∅ ∈ {x∣(∅ ∈ x ∧ ∀yx suc yx)}
5 suceq 2288 . . . . . . . . . . 11 (y = z → suc y = suc z)
65eleq1d 1155 . . . . . . . . . 10 (y = z → (suc yx ↔ suc zx))
76rcla4v 1402 . . . . . . . . 9 (∀yx suc yx → (zx → suc zx))
87adantl 305 . . . . . . . 8 ((∅ ∈ x ∧ ∀yx suc yx) → (zx → suc zx))
98a2i 8 . . . . . . 7 (((∅ ∈ x ∧ ∀yx suc yx) → zx) → ((∅ ∈ x ∧ ∀yx suc yx) → suc zx))
10919.20i 691 . . . . . 6 (∀x((∅ ∈ x ∧ ∀yx suc yx) → zx) → ∀x((∅ ∈ x ∧ ∀yx suc yx) → suc zx))
11 visset 1350 . . . . . . 7 zV
1211elintab 1976 . . . . . 6 (z{x∣(∅ ∈ x ∧ ∀yx suc yx)} ↔ ∀x((∅ ∈ x ∧ ∀yx suc yx) → zx))
1311sucex 2303 . . . . . . 7 suc zV
1413elintab 1976 . . . . . 6 (suc z{x∣(∅ ∈ x ∧ ∀yx suc yx)} ↔ ∀x((∅ ∈ x ∧ ∀yx suc yx) → suc zx))
1510, 12, 143imtr4 192 . . . . 5 (z{x∣(∅ ∈ x ∧ ∀yx suc yx)} → suc z{x∣(∅ ∈ x ∧ ∀yx suc yx)})
1615a1i 7 . . . 4 (z ∈ ω → (z{x∣(∅ ∈ x ∧ ∀yx suc yx)} → suc z{x∣(∅ ∈ x ∧ ∀yx suc yx)}))
1716rgen 1247 . . 3 z ∈ ω (z{x∣(∅ ∈ x ∧ ∀yx suc yx)} → suc z{x∣(∅ ∈ x ∧ ∀yx suc yx)})
18 peano5 2394 . . 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 520 . 2 ω ⊆ {x∣(∅ ∈ x ∧ ∀yx suc yx)}
20 peano1 2390 . . . 4 ∅ ∈ ω
21 peano2 2391 . . . . 5 (y ∈ ω → suc y ∈ ω)
2221rgen 1247 . . . 4 y ∈ ω suc y ∈ ω
23 omex 3475 . . . . . 6 ω ∈ V
24 eleq2 1150 . . . . . . . 8 (x = ω → (∅ ∈ x ↔ ∅ ∈ ω))
25 eleq2 1150 . . . . . . . . 9 (x = ω → (suc yx ↔ suc y ∈ ω))
2625raleqd 1327 . . . . . . . 8 (x = ω → (∀yx suc yx ↔ ∀y ∈ ω suc y ∈ ω))
2724, 26anbi12d 476 . . . . . . 7 (x = ω → ((∅ ∈ x ∧ ∀yx suc yx) ↔ (∅ ∈ ω ∧ ∀y ∈ ω suc y ∈ ω)))
28 eleq2 1150 . . . . . . 7 (x = ω → (zxz ∈ ω))
2927, 28imbi12d 474 . . . . . 6 (x = ω → (((∅ ∈ x ∧ ∀yx suc yx) → zx) ↔ ((∅ ∈ ω ∧ ∀y ∈ ω suc y ∈ ω) → z ∈ ω)))
3023, 29cla4v 1400 . . . . 5 (∀x((∅ ∈ x ∧ ∀yx suc yx) → zx) → ((∅ ∈ ω ∧ ∀y ∈ ω suc y ∈ ω) → z ∈ ω))
3112, 30sylbi 174 . . . 4 (z{x∣(∅ ∈ x ∧ ∀yx suc yx)} → ((∅ ∈ ω ∧ ∀y ∈ ω suc y ∈ ω) → z ∈ ω))
3220, 22, 31mp2ani 523 . . 3 (z{x∣(∅ ∈ x ∧ ∀yx suc yx)} → z ∈ ω)
3332ssriv 1508 . 2 {x∣(∅ ∈ x ∧ ∀yx suc yx)} ⊆ ω
3419, 33eqssi 1517 1 ω = {x∣(∅ ∈ x ∧ ∀yx suc yx)}
Colors of variables: wff set class
Syntax hints:   → wi 2   ∧ wa 196  ∀wal 672   = weq 797   ∈ wel 803  {cab 1090   = wceq 1091   ∈ wcel 1092  ∀wral 1201   ⊆ wss 1487  ∅c0 1707  cint 1965  suc csuc 2201  ωcom 2372
This theorem was proved from axioms:  ax-1 3  ax-2 4  ax-3 5  ax-mp 6  ax-4 673  ax-5 674  ax-6 675  ax-7 676  ax-gen 677  ax-8 798  ax-9 799  ax-10 800  ax-11 801  ax-12 802  ax-13 804  ax-14 805  ax-16 922  ax-17 925  ax-ext 1074  ax-rep 1075  ax-un 1076  ax-pow 1077  ax-reg 1078  ax-inf 1079
This theorem depends on definitions:  df-bi 128  df-or 197  df-an 198  df-3or 582  df-3an 583  df-ex 679  df-sb 853  df-eu 1009  df-mo 1010  df-clab 1093  df-cleq 1097  df-clel 1099  df-ne 1192  df-ral 1205  df-rex 1206  df-rab 1208  df-v 1349  df-sbc 1441  df-dif 1489  df-un 1490  df-in 1491  df-ss 1492  df-pss 1494  df-nul 1708  df-if 1777  df-pw 1799  df-sn 1811  df-pr 1812  df-tp 1814  df-op 1815  df-uni 1920  df-int 1966  df-tr 2042  df-br 2063  df-opab 2098  df-eprel 2122  df-id 2125  df-po 2128  df-so 2138  df-fr 2169  df-we 2186  df-ord 2202  df-on 2203  df-lim 2204  df-suc 2205  df-om 2373  df-xp 2424  df-rel 2425  df-cnv 2426  df-co 2427  df-dm 2428  df-rn 2429  df-res 2430  df-ima 2431  df-fun 2432  df-fn 2433  df-f 2434  df-f1 2435  df-fv 2438  df-rdg 2970
metamath.org