Proof of Theorem jltalephlem
| Step | Hyp | Ref
| Expression |
| 1 | | 9on 35843 |
. . . . . . 7
⊢
9o ∈ On |
| 2 | | j0iso 35955 |
. . . . . . . . 9
⊢
𝐽0 Isom 𝑅0, E ((On × On),
On) |
| 3 | | isof1o 7335 |
. . . . . . . . 9
⊢
(𝐽0 Isom 𝑅0, E ((On × On),
On) → 𝐽0:(On × On)–1-1-onto→On) |
| 4 | | f1of 6829 |
. . . . . . . . 9
⊢
(𝐽0:(On × On)–1-1-onto→On
→ 𝐽0:(On × On)⟶On) |
| 5 | 2, 3, 4 | mp2b 10 |
. . . . . . . 8
⊢
𝐽0:(On × On)⟶On |
| 6 | | 0elon 6421 |
. . . . . . . 8
⊢ ∅
∈ On |
| 7 | 5, 6 | f0cli 7103 |
. . . . . . 7
⊢
(𝐽0‘〈𝐴, 𝐵〉) ∈ On |
| 8 | | omxpen 9106 |
. . . . . . 7
⊢
((9o ∈ On ∧ (𝐽0‘〈𝐴, 𝐵〉) ∈ On) → (9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ≈ (9o ×
(𝐽0‘〈𝐴, 𝐵〉))) |
| 9 | 1, 7, 8 | mp2an 705 |
. . . . . 6
⊢
(9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ≈ (9o ×
(𝐽0‘〈𝐴, 𝐵〉)) |
| 10 | | 9onn 35848 |
. . . . . . . 8
⊢
9o ∈ ω |
| 11 | 10 | elexi 3472 |
. . . . . . 7
⊢
9o ∈ V |
| 12 | | fvex 6903 |
. . . . . . 7
⊢
(𝐽0‘〈𝐴, 𝐵〉) ∈ V |
| 13 | 11, 12 | xpcomen 9095 |
. . . . . 6
⊢
(9o × (𝐽0‘〈𝐴, 𝐵〉)) ≈
((𝐽0‘〈𝐴, 𝐵〉) ×
9o) |
| 14 | 9, 13 | entri 9043 |
. . . . 5
⊢
(9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ≈
((𝐽0‘〈𝐴, 𝐵〉) ×
9o) |
| 15 | | nnfi 9191 |
. . . . . . . 8
⊢
(9o ∈ ω → 9o ∈
Fin) |
| 16 | | fict 9661 |
. . . . . . . 8
⊢
(9o ∈ Fin → 9o ≼
ω) |
| 17 | 10, 15, 16 | mp2b 10 |
. . . . . . 7
⊢
9o ≼ ω |
| 18 | | domtr 9042 |
. . . . . . 7
⊢
((9o ≼ ω ∧ ω ≼
(𝐽0‘〈𝐴, 𝐵〉)) → 9o ≼
(𝐽0‘〈𝐴, 𝐵〉)) |
| 19 | 17, 18 | mpan 703 |
. . . . . 6
⊢ (ω
≼ (𝐽0‘〈𝐴, 𝐵〉) → 9o ≼
(𝐽0‘〈𝐴, 𝐵〉)) |
| 20 | | df-9o 35838 |
. . . . . . . 8
⊢
9o = suc 8o |
| 21 | | nsuceq0 6451 |
. . . . . . . 8
⊢ suc
8o ≠ ∅ |
| 22 | 20, 21 | eqnetri 3025 |
. . . . . . 7
⊢
9o ≠ ∅ |
| 23 | | onenon 10037 |
. . . . . . . . 9
⊢
((𝐽0‘〈𝐴, 𝐵〉) ∈ On →
(𝐽0‘〈𝐴, 𝐵〉) ∈ dom card) |
| 24 | 7, 23 | ax-mp 5 |
. . . . . . . 8
⊢
(𝐽0‘〈𝐴, 𝐵〉) ∈ dom card |
| 25 | | infxpabs 10296 |
. . . . . . . 8
⊢
((((𝐽0‘〈𝐴, 𝐵〉) ∈ dom card ∧ ω
≼ (𝐽0‘〈𝐴, 𝐵〉)) ∧ (9o ≠ ∅
∧ 9o ≼ (𝐽0‘〈𝐴, 𝐵〉))) →
((𝐽0‘〈𝐴, 𝐵〉) × 9o) ≈
(𝐽0‘〈𝐴, 𝐵〉)) |
| 26 | 24, 25 | mpanl1 713 |
. . . . . . 7
⊢ ((ω
≼ (𝐽0‘〈𝐴, 𝐵〉) ∧ (9o ≠ ∅
∧ 9o ≼ (𝐽0‘〈𝐴, 𝐵〉))) →
((𝐽0‘〈𝐴, 𝐵〉) × 9o) ≈
(𝐽0‘〈𝐴, 𝐵〉)) |
| 27 | 22, 26 | mpanr1 716 |
. . . . . 6
⊢ ((ω
≼ (𝐽0‘〈𝐴, 𝐵〉) ∧ 9o ≼
(𝐽0‘〈𝐴, 𝐵〉)) →
((𝐽0‘〈𝐴, 𝐵〉) × 9o) ≈
(𝐽0‘〈𝐴, 𝐵〉)) |
| 28 | 19, 27 | mpdan 700 |
. . . . 5
⊢ (ω
≼ (𝐽0‘〈𝐴, 𝐵〉) →
((𝐽0‘〈𝐴, 𝐵〉) × 9o) ≈
(𝐽0‘〈𝐴, 𝐵〉)) |
| 29 | | entr 9041 |
. . . . 5
⊢
(((9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ≈
((𝐽0‘〈𝐴, 𝐵〉) × 9o) ∧
((𝐽0‘〈𝐴, 𝐵〉) × 9o) ≈
(𝐽0‘〈𝐴, 𝐵〉)) → (9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ≈
(𝐽0‘〈𝐴, 𝐵〉)) |
| 30 | 14, 28, 29 | sylancr 599 |
. . . 4
⊢ (ω
≼ (𝐽0‘〈𝐴, 𝐵〉) → (9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ≈
(𝐽0‘〈𝐴, 𝐵〉)) |
| 31 | | ensym 9038 |
. . . . 5
⊢
((9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ≈
(𝐽0‘〈𝐴, 𝐵〉) →
(𝐽0‘〈𝐴, 𝐵〉) ≈ (9o
·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 32 | | domentr 9048 |
. . . . 5
⊢ ((ω
≼ (𝐽0‘〈𝐴, 𝐵〉) ∧
(𝐽0‘〈𝐴, 𝐵〉) ≈ (9o
·o (𝐽0‘〈𝐴, 𝐵〉))) → ω ≼
(9o ·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 33 | 31, 32 | sylan2 605 |
. . . 4
⊢ ((ω
≼ (𝐽0‘〈𝐴, 𝐵〉) ∧ (9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ≈
(𝐽0‘〈𝐴, 𝐵〉)) → ω ≼
(9o ·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 34 | 30, 33 | mpdan 700 |
. . 3
⊢ (ω
≼ (𝐽0‘〈𝐴, 𝐵〉) → ω ≼
(9o ·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 35 | | omcl 8552 |
. . . . . 6
⊢
((9o ∈ On ∧ (𝐽0‘〈𝐴, 𝐵〉) ∈ On) → (9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ∈ On) |
| 36 | 1, 7, 35 | mp2an 705 |
. . . . 5
⊢
(9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ∈ On |
| 37 | 1 | oneli 6481 |
. . . . 5
⊢ (𝐶 ∈ 9o →
𝐶 ∈
On) |
| 38 | | onadju 10279 |
. . . . 5
⊢
(((9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ∈ On ∧ 𝐶 ∈ On) → ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) +o 𝐶) ≈ ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ⊔ 𝐶)) |
| 39 | 36, 37, 38 | sylancr 599 |
. . . 4
⊢ (𝐶 ∈ 9o →
((9o ·o (𝐽0‘〈𝐴, 𝐵〉)) +o 𝐶) ≈ ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ⊔ 𝐶)) |
| 40 | | onenon 10037 |
. . . . . 6
⊢
((9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ∈ On → (9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ∈ dom card) |
| 41 | 36, 40 | ax-mp 5 |
. . . . 5
⊢
(9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ∈ dom card |
| 42 | | simpr 490 |
. . . . 5
⊢ ((𝐶 ∈ 9o ∧
ω ≼ (9o ·o
(𝐽0‘〈𝐴, 𝐵〉))) → ω ≼
(9o ·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 43 | | elnn 7892 |
. . . . . . . 8
⊢ ((𝐶 ∈ 9o ∧
9o ∈ ω) → 𝐶 ∈ ω) |
| 44 | 10, 43 | mpan2 704 |
. . . . . . 7
⊢ (𝐶 ∈ 9o →
𝐶 ∈
ω) |
| 45 | | nnfi 9191 |
. . . . . . 7
⊢ (𝐶 ∈ ω → 𝐶 ∈ Fin) |
| 46 | | fict 9661 |
. . . . . . 7
⊢ (𝐶 ∈ Fin → 𝐶 ≼
ω) |
| 47 | 44, 45, 46 | 3syl 19 |
. . . . . 6
⊢ (𝐶 ∈ 9o →
𝐶 ≼
ω) |
| 48 | | domtr 9042 |
. . . . . 6
⊢ ((𝐶 ≼ ω ∧ ω
≼ (9o ·o
(𝐽0‘〈𝐴, 𝐵〉))) → 𝐶 ≼ (9o ·o
(𝐽0‘〈𝐴, 𝐵〉))) |
| 49 | 47, 48 | sylan 592 |
. . . . 5
⊢ ((𝐶 ∈ 9o ∧
ω ≼ (9o ·o
(𝐽0‘〈𝐴, 𝐵〉))) → 𝐶 ≼ (9o ·o
(𝐽0‘〈𝐴, 𝐵〉))) |
| 50 | | infdjuabs 10290 |
. . . . 5
⊢
(((9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ∈ dom card ∧ ω
≼ (9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ∧ 𝐶 ≼ (9o ·o
(𝐽0‘〈𝐴, 𝐵〉))) → ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ⊔ 𝐶) ≈ (9o
·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 51 | 41, 42, 49, 50 | mp3an2i 1495 |
. . . 4
⊢ ((𝐶 ∈ 9o ∧
ω ≼ (9o ·o
(𝐽0‘〈𝐴, 𝐵〉))) → ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ⊔ 𝐶) ≈ (9o
·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 52 | | entr 9041 |
. . . 4
⊢
((((9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) +o 𝐶) ≈ ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ⊔ 𝐶) ∧ ((9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) ⊔ 𝐶) ≈ (9o
·o (𝐽0‘〈𝐴, 𝐵〉))) → ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) +o 𝐶) ≈ (9o
·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 53 | 39, 51, 52 | syl2an2r 698 |
. . 3
⊢ ((𝐶 ∈ 9o ∧
ω ≼ (9o ·o
(𝐽0‘〈𝐴, 𝐵〉))) → ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) +o 𝐶) ≈ (9o
·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 54 | 34, 53 | sylan2 605 |
. 2
⊢ ((𝐶 ∈ 9o ∧
ω ≼ (𝐽0‘〈𝐴, 𝐵〉)) → ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) +o 𝐶) ≈ (9o
·o (𝐽0‘〈𝐴, 𝐵〉))) |
| 55 | 30 | adantl 487 |
. 2
⊢ ((𝐶 ∈ 9o ∧
ω ≼ (𝐽0‘〈𝐴, 𝐵〉)) → (9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ≈
(𝐽0‘〈𝐴, 𝐵〉)) |
| 56 | | entr 9041 |
. 2
⊢
((((9o ·o
(𝐽0‘〈𝐴, 𝐵〉)) +o 𝐶) ≈ (9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ∧ (9o
·o (𝐽0‘〈𝐴, 𝐵〉)) ≈
(𝐽0‘〈𝐴, 𝐵〉)) → ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) +o 𝐶) ≈
(𝐽0‘〈𝐴, 𝐵〉)) |
| 57 | 54, 55, 56 | syl2anc 596 |
1
⊢ ((𝐶 ∈ 9o ∧
ω ≼ (𝐽0‘〈𝐴, 𝐵〉)) → ((9o
·o (𝐽0‘〈𝐴, 𝐵〉)) +o 𝐶) ≈
(𝐽0‘〈𝐴, 𝐵〉)) |