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

Theorem onomeneq 7911
Description: An ordinal number equinumerous to a natural number is equal to it. Proposition 10.22 of [TakeutiZaring] p. 90 and its converse. (Contributed by NM, 26-Jul-2004.)
Assertion
Ref Expression
onomeneq ((𝐴 ∈ On ∧ 𝐵 ∈ ω) → (𝐴𝐵𝐴 = 𝐵))

Proof of Theorem onomeneq
StepHypRef Expression
1 php5 7909 . . . . . . . . 9 (𝐵 ∈ ω → ¬ 𝐵 ≈ suc 𝐵)
21ad2antlr 758 . . . . . . . 8 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → ¬ 𝐵 ≈ suc 𝐵)
3 enen1 7861 . . . . . . . . 9 (𝐴𝐵 → (𝐴 ≈ suc 𝐵𝐵 ≈ suc 𝐵))
43adantl 480 . . . . . . . 8 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → (𝐴 ≈ suc 𝐵𝐵 ≈ suc 𝐵))
52, 4mtbird 313 . . . . . . 7 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → ¬ 𝐴 ≈ suc 𝐵)
6 peano2 6854 . . . . . . . . . . . . . 14 (𝐵 ∈ ω → suc 𝐵 ∈ ω)
7 sssucid 5607 . . . . . . . . . . . . . 14 𝐵 ⊆ suc 𝐵
8 ssdomg 7763 . . . . . . . . . . . . . 14 (suc 𝐵 ∈ ω → (𝐵 ⊆ suc 𝐵𝐵 ≼ suc 𝐵))
96, 7, 8mpisyl 21 . . . . . . . . . . . . 13 (𝐵 ∈ ω → 𝐵 ≼ suc 𝐵)
10 endomtr 7776 . . . . . . . . . . . . 13 ((𝐴𝐵𝐵 ≼ suc 𝐵) → 𝐴 ≼ suc 𝐵)
119, 10sylan2 489 . . . . . . . . . . . 12 ((𝐴𝐵𝐵 ∈ ω) → 𝐴 ≼ suc 𝐵)
1211ancoms 467 . . . . . . . . . . 11 ((𝐵 ∈ ω ∧ 𝐴𝐵) → 𝐴 ≼ suc 𝐵)
1312a1d 25 . . . . . . . . . 10 ((𝐵 ∈ ω ∧ 𝐴𝐵) → (ω ⊆ 𝐴𝐴 ≼ suc 𝐵))
1413adantll 745 . . . . . . . . 9 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → (ω ⊆ 𝐴𝐴 ≼ suc 𝐵))
15 ssel 3466 . . . . . . . . . . . . . . 15 (ω ⊆ 𝐴 → (𝐵 ∈ ω → 𝐵𝐴))
1615com12 32 . . . . . . . . . . . . . 14 (𝐵 ∈ ω → (ω ⊆ 𝐴𝐵𝐴))
1716adantr 479 . . . . . . . . . . . . 13 ((𝐵 ∈ ω ∧ 𝐴 ∈ On) → (ω ⊆ 𝐴𝐵𝐴))
18 eloni 5540 . . . . . . . . . . . . . 14 (𝐴 ∈ On → Ord 𝐴)
19 ordelsuc 6788 . . . . . . . . . . . . . 14 ((𝐵 ∈ ω ∧ Ord 𝐴) → (𝐵𝐴 ↔ suc 𝐵𝐴))
2018, 19sylan2 489 . . . . . . . . . . . . 13 ((𝐵 ∈ ω ∧ 𝐴 ∈ On) → (𝐵𝐴 ↔ suc 𝐵𝐴))
2117, 20sylibd 227 . . . . . . . . . . . 12 ((𝐵 ∈ ω ∧ 𝐴 ∈ On) → (ω ⊆ 𝐴 → suc 𝐵𝐴))
22 ssdomg 7763 . . . . . . . . . . . . 13 (𝐴 ∈ On → (suc 𝐵𝐴 → suc 𝐵𝐴))
2322adantl 480 . . . . . . . . . . . 12 ((𝐵 ∈ ω ∧ 𝐴 ∈ On) → (suc 𝐵𝐴 → suc 𝐵𝐴))
2421, 23syld 45 . . . . . . . . . . 11 ((𝐵 ∈ ω ∧ 𝐴 ∈ On) → (ω ⊆ 𝐴 → suc 𝐵𝐴))
2524ancoms 467 . . . . . . . . . 10 ((𝐴 ∈ On ∧ 𝐵 ∈ ω) → (ω ⊆ 𝐴 → suc 𝐵𝐴))
2625adantr 479 . . . . . . . . 9 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → (ω ⊆ 𝐴 → suc 𝐵𝐴))
2714, 26jcad 553 . . . . . . . 8 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → (ω ⊆ 𝐴 → (𝐴 ≼ suc 𝐵 ∧ suc 𝐵𝐴)))
28 sbth 7841 . . . . . . . 8 ((𝐴 ≼ suc 𝐵 ∧ suc 𝐵𝐴) → 𝐴 ≈ suc 𝐵)
2927, 28syl6 34 . . . . . . 7 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → (ω ⊆ 𝐴𝐴 ≈ suc 𝐵))
305, 29mtod 187 . . . . . 6 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → ¬ ω ⊆ 𝐴)
31 ordom 6842 . . . . . . . . 9 Ord ω
32 ordtri1 5563 . . . . . . . . 9 ((Ord ω ∧ Ord 𝐴) → (ω ⊆ 𝐴 ↔ ¬ 𝐴 ∈ ω))
3331, 18, 32sylancr 693 . . . . . . . 8 (𝐴 ∈ On → (ω ⊆ 𝐴 ↔ ¬ 𝐴 ∈ ω))
3433con2bid 342 . . . . . . 7 (𝐴 ∈ On → (𝐴 ∈ ω ↔ ¬ ω ⊆ 𝐴))
3534ad2antrr 757 . . . . . 6 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → (𝐴 ∈ ω ↔ ¬ ω ⊆ 𝐴))
3630, 35mpbird 245 . . . . 5 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → 𝐴 ∈ ω)
37 simplr 787 . . . . 5 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → 𝐵 ∈ ω)
3836, 37jca 552 . . . 4 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → (𝐴 ∈ ω ∧ 𝐵 ∈ ω))
39 nneneq 7904 . . . . 5 ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐴𝐵𝐴 = 𝐵))
4039biimpa 499 . . . 4 (((𝐴 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → 𝐴 = 𝐵)
4138, 40sylancom 697 . . 3 (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ 𝐴𝐵) → 𝐴 = 𝐵)
4241ex 448 . 2 ((𝐴 ∈ On ∧ 𝐵 ∈ ω) → (𝐴𝐵𝐴 = 𝐵))
43 eqeng 7751 . . 3 (𝐴 ∈ On → (𝐴 = 𝐵𝐴𝐵))
4443adantr 479 . 2 ((𝐴 ∈ On ∧ 𝐵 ∈ ω) → (𝐴 = 𝐵𝐴𝐵))
4542, 44impbid 200 1 ((𝐴 ∈ On ∧ 𝐵 ∈ ω) → (𝐴𝐵𝐴 = 𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 194  wa 382   = wceq 1474  wcel 1938  wss 3444   class class class wbr 4481  Ord word 5529  Oncon0 5530  suc csuc 5532  ωcom 6833  cen 7714  cdom 7715
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1700  ax-4 1713  ax-5 1793  ax-6 1838  ax-7 1885  ax-8 1940  ax-9 1947  ax-10 1966  ax-11 1971  ax-12 1983  ax-13 2137  ax-ext 2494  ax-sep 4607  ax-nul 4616  ax-pow 4668  ax-pr 4732  ax-un 6723
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1699  df-sb 1831  df-eu 2366  df-mo 2367  df-clab 2501  df-cleq 2507  df-clel 2510  df-nfc 2644  df-ne 2686  df-ral 2805  df-rex 2806  df-rab 2809  df-v 3079  df-sbc 3307  df-dif 3447  df-un 3449  df-in 3451  df-ss 3458  df-pss 3460  df-nul 3778  df-if 3940  df-pw 4013  df-sn 4029  df-pr 4031  df-tp 4033  df-op 4035  df-uni 4271  df-br 4482  df-opab 4542  df-tr 4579  df-eprel 4843  df-id 4847  df-po 4853  df-so 4854  df-fr 4891  df-we 4893  df-xp 4938  df-rel 4939  df-cnv 4940  df-co 4941  df-dm 4942  df-rn 4943  df-res 4944  df-ima 4945  df-ord 5533  df-on 5534  df-lim 5535  df-suc 5536  df-iota 5653  df-fun 5691  df-fn 5692  df-f 5693  df-f1 5694  df-fo 5695  df-f1o 5696  df-fv 5697  df-om 6834  df-er 7505  df-en 7718  df-dom 7719  df-sdom 7720
This theorem is referenced by:  onfin  7912  ficardom  8546  finnisoeu  8695
  Copyright terms: Public domain W3C validator