| Step | Hyp | Ref
| Expression |
| 1 | | fvex 6898 |
. . 3
⊢
(𝐽0‘〈𝐴, 𝐵〉) ∈ V |
| 2 | | j0iso 35936 |
. . . . 5
⊢
𝐽0 Isom 𝑅0, E ((On × On),
On) |
| 3 | | opelxpi 5687 |
. . . . 5
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → 〈𝐴, 𝐵〉 ∈ (On ×
On)) |
| 4 | | imassrn 6197 |
. . . . . . . . 9
⊢ (◡𝑅0 “ {〈𝐴, 𝐵〉}) ⊆ ran ◡𝑅0 |
| 5 | | dfdm4 5876 |
. . . . . . . . . 10
⊢ dom
𝑅0 = ran ◡𝑅0 |
| 6 | | dmr0ss 35934 |
. . . . . . . . . 10
⊢ dom
𝑅0 ⊆ (On × On) |
| 7 | 5, 6 | eqsstrri 3955 |
. . . . . . . . 9
⊢ ran ◡𝑅0 ⊆ (On ×
On) |
| 8 | 4, 7 | sstri 3917 |
. . . . . . . 8
⊢ (◡𝑅0 “ {〈𝐴, 𝐵〉}) ⊆ (On ×
On) |
| 9 | | sseqin2 4120 |
. . . . . . . 8
⊢ ((◡𝑅0 “ {〈𝐴, 𝐵〉}) ⊆ (On × On) ↔ ((On
× On) ∩ (◡𝑅0 “ {〈𝐴, 𝐵〉})) = (◡𝑅0 “ {〈𝐴, 𝐵〉})) |
| 10 | 8, 9 | mpbi 233 |
. . . . . . 7
⊢ ((On
× On) ∩ (◡𝑅0 “ {〈𝐴, 𝐵〉})) = (◡𝑅0 “ {〈𝐴, 𝐵〉}) |
| 11 | 10 | eqcomi 2769 |
. . . . . 6
⊢ (◡𝑅0 “ {〈𝐴, 𝐵〉}) = ((On × On) ∩ (◡𝑅0 “ {〈𝐴, 𝐵〉})) |
| 12 | 1 | epini 6093 |
. . . . . . . 8
⊢ (◡ E “
{(𝐽0‘〈𝐴, 𝐵〉)}) =
(𝐽0‘〈𝐴, 𝐵〉) |
| 13 | 12 | ineq2i 4114 |
. . . . . . 7
⊢ (On ∩
(◡ E “
{(𝐽0‘〈𝐴, 𝐵〉)})) = (On ∩
(𝐽0‘〈𝐴, 𝐵〉)) |
| 14 | | isof1o 7331 |
. . . . . . . . . . 11
⊢
(𝐽0 Isom 𝑅0, E ((On × On),
On) → 𝐽0:(On × On)–1-1-onto→On) |
| 15 | | f1of 6824 |
. . . . . . . . . . 11
⊢
(𝐽0:(On × On)–1-1-onto→On
→ 𝐽0:(On × On)⟶On) |
| 16 | 2, 14, 15 | mp2b 10 |
. . . . . . . . . 10
⊢
𝐽0:(On × On)⟶On |
| 17 | | 0elon 6418 |
. . . . . . . . . 10
⊢ ∅
∈ On |
| 18 | 16, 17 | f0cli 7098 |
. . . . . . . . 9
⊢
(𝐽0‘〈𝐴, 𝐵〉) ∈ On |
| 19 | 18 | onssi 7849 |
. . . . . . . 8
⊢
(𝐽0‘〈𝐴, 𝐵〉) ⊆ On |
| 20 | | sseqin2 4120 |
. . . . . . . 8
⊢
((𝐽0‘〈𝐴, 𝐵〉) ⊆ On ↔ (On ∩
(𝐽0‘〈𝐴, 𝐵〉)) =
(𝐽0‘〈𝐴, 𝐵〉)) |
| 21 | 19, 20 | mpbi 233 |
. . . . . . 7
⊢ (On ∩
(𝐽0‘〈𝐴, 𝐵〉)) =
(𝐽0‘〈𝐴, 𝐵〉) |
| 22 | 13, 21 | eqtr2i 2784 |
. . . . . 6
⊢
(𝐽0‘〈𝐴, 𝐵〉) = (On ∩ (◡ E “
{(𝐽0‘〈𝐴, 𝐵〉)})) |
| 23 | 11, 22 | isoini2 7347 |
. . . . 5
⊢
((𝐽0 Isom 𝑅0, E ((On × On),
On) ∧ 〈𝐴, 𝐵〉 ∈ (On × On))
→ (𝐽0 ↾ (◡𝑅0 “ {〈𝐴, 𝐵〉})) Isom 𝑅0, E
((◡𝑅0 “
{〈𝐴, 𝐵〉}),
(𝐽0‘〈𝐴, 𝐵〉))) |
| 24 | 2, 3, 23 | sylancr 599 |
. . . 4
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) →
(𝐽0 ↾ (◡𝑅0 “ {〈𝐴, 𝐵〉})) Isom 𝑅0, E
((◡𝑅0 “
{〈𝐴, 𝐵〉}),
(𝐽0‘〈𝐴, 𝐵〉))) |
| 25 | | isof1o 7331 |
. . . 4
⊢
((𝐽0 ↾ (◡𝑅0 “ {〈𝐴, 𝐵〉})) Isom 𝑅0, E
((◡𝑅0 “
{〈𝐴, 𝐵〉}),
(𝐽0‘〈𝐴, 𝐵〉)) → (𝐽0
↾ (◡𝑅0 “
{〈𝐴, 𝐵〉})):(◡𝑅0 “ {〈𝐴, 𝐵〉})–1-1-onto→(𝐽0‘〈𝐴, 𝐵〉)) |
| 26 | | f1ocnv 6837 |
. . . 4
⊢
((𝐽0 ↾ (◡𝑅0 “ {〈𝐴, 𝐵〉})):(◡𝑅0 “ {〈𝐴, 𝐵〉})–1-1-onto→(𝐽0‘〈𝐴, 𝐵〉) → ◡(𝐽0 ↾ (◡𝑅0 “ {〈𝐴, 𝐵〉})):(𝐽0‘〈𝐴, 𝐵〉)–1-1-onto→(◡𝑅0 “ {〈𝐴, 𝐵〉})) |
| 27 | 24, 25, 26 | 3syl 19 |
. . 3
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → ◡(𝐽0 ↾ (◡𝑅0 “ {〈𝐴, 𝐵〉})):(𝐽0‘〈𝐴, 𝐵〉)–1-1-onto→(◡𝑅0 “ {〈𝐴, 𝐵〉})) |
| 28 | | f1oeng 8998 |
. . 3
⊢
(((𝐽0‘〈𝐴, 𝐵〉) ∈ V ∧ ◡(𝐽0 ↾ (◡𝑅0 “ {〈𝐴, 𝐵〉})):(𝐽0‘〈𝐴, 𝐵〉)–1-1-onto→(◡𝑅0 “ {〈𝐴, 𝐵〉})) →
(𝐽0‘〈𝐴, 𝐵〉) ≈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) |
| 29 | 1, 27, 28 | sylancr 599 |
. 2
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) →
(𝐽0‘〈𝐴, 𝐵〉) ≈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) |
| 30 | | onun2 6473 |
. . . . 5
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 ∪ 𝐵) ∈ On) |
| 31 | | onsuc 7824 |
. . . . 5
⊢ ((𝐴 ∪ 𝐵) ∈ On → suc (𝐴 ∪ 𝐵) ∈ On) |
| 32 | 30, 31 | syl 18 |
. . . 4
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → suc (𝐴 ∪ 𝐵) ∈ On) |
| 33 | 32, 32 | xpexd 7765 |
. . 3
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵)) ∈ V) |
| 34 | | simplrl 789 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 𝑥 ∈ On) |
| 35 | | simplrr 790 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 𝑦 ∈ On) |
| 36 | | simplll 787 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 𝐴 ∈ On) |
| 37 | | simpllr 788 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 𝐵 ∈ On) |
| 38 | | opex 5431 |
. . . . . . . . . . . 12
⊢
〈𝐴, 𝐵〉 ∈ V |
| 39 | | opex 5431 |
. . . . . . . . . . . . 13
⊢
〈𝑥, 𝑦〉 ∈ V |
| 40 | 39 | eliniseg 6091 |
. . . . . . . . . . . 12
⊢
(〈𝐴, 𝐵〉 ∈ V →
(〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉}) ↔ 〈𝑥, 𝑦〉𝑅0〈𝐴, 𝐵〉)) |
| 41 | 38, 40 | ax-mp 5 |
. . . . . . . . . . 11
⊢
(〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉}) ↔ 〈𝑥, 𝑦〉𝑅0〈𝐴, 𝐵〉) |
| 42 | 41 | bilani 510 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 〈𝑥, 𝑦〉𝑅0〈𝐴, 𝐵〉) |
| 43 | 34, 35, 36, 37, 42 | r0maxss 35935 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → (𝑥 ∪ 𝑦) ⊆ (𝐴 ∪ 𝐵)) |
| 44 | 43 | unssad 4191 |
. . . . . . . 8
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 𝑥 ⊆ (𝐴 ∪ 𝐵)) |
| 45 | 36, 37, 30 | syl2anc 596 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → (𝐴 ∪ 𝐵) ∈ On) |
| 46 | | onsssuc 6455 |
. . . . . . . . 9
⊢ ((𝑥 ∈ On ∧ (𝐴 ∪ 𝐵) ∈ On) → (𝑥 ⊆ (𝐴 ∪ 𝐵) ↔ 𝑥 ∈ suc (𝐴 ∪ 𝐵))) |
| 47 | 34, 45, 46 | syl2anc 596 |
. . . . . . . 8
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → (𝑥 ⊆ (𝐴 ∪ 𝐵) ↔ 𝑥 ∈ suc (𝐴 ∪ 𝐵))) |
| 48 | 44, 47 | mpbid 235 |
. . . . . . 7
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 𝑥 ∈ suc (𝐴 ∪ 𝐵)) |
| 49 | 43 | unssbd 4192 |
. . . . . . . 8
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 𝑦 ⊆ (𝐴 ∪ 𝐵)) |
| 50 | | onsssuc 6455 |
. . . . . . . . 9
⊢ ((𝑦 ∈ On ∧ (𝐴 ∪ 𝐵) ∈ On) → (𝑦 ⊆ (𝐴 ∪ 𝐵) ↔ 𝑦 ∈ suc (𝐴 ∪ 𝐵))) |
| 51 | 35, 45, 50 | syl2anc 596 |
. . . . . . . 8
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → (𝑦 ⊆ (𝐴 ∪ 𝐵) ↔ 𝑦 ∈ suc (𝐴 ∪ 𝐵))) |
| 52 | 49, 51 | mpbid 235 |
. . . . . . 7
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 𝑦 ∈ suc (𝐴 ∪ 𝐵)) |
| 53 | 48, 52 | opelxpd 5689 |
. . . . . 6
⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) ∧ 〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉})) → 〈𝑥, 𝑦〉 ∈ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵))) |
| 54 | 53 | ex 418 |
. . . . 5
⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ (𝑥 ∈ On ∧ 𝑦 ∈ On)) → (〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉}) → 〈𝑥, 𝑦〉 ∈ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵)))) |
| 55 | 54 | ralrimivva 3205 |
. . . 4
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → ∀𝑥 ∈ On ∀𝑦 ∈ On (〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉}) → 〈𝑥, 𝑦〉 ∈ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵)))) |
| 56 | | ssrel2 5760 |
. . . . 5
⊢ ((◡𝑅0 “ {〈𝐴, 𝐵〉}) ⊆ (On × On) →
((◡𝑅0 “
{〈𝐴, 𝐵〉}) ⊆ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵)) ↔ ∀𝑥 ∈ On ∀𝑦 ∈ On (〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉}) → 〈𝑥, 𝑦〉 ∈ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵))))) |
| 57 | 8, 56 | ax-mp 5 |
. . . 4
⊢ ((◡𝑅0 “ {〈𝐴, 𝐵〉}) ⊆ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵)) ↔ ∀𝑥 ∈ On ∀𝑦 ∈ On (〈𝑥, 𝑦〉 ∈ (◡𝑅0 “ {〈𝐴, 𝐵〉}) → 〈𝑥, 𝑦〉 ∈ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵)))) |
| 58 | 55, 57 | sylibr 237 |
. . 3
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (◡𝑅0 “ {〈𝐴, 𝐵〉}) ⊆ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵))) |
| 59 | | ssdomg 9028 |
. . 3
⊢ ((suc
(𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵)) ∈ V → ((◡𝑅0 “ {〈𝐴, 𝐵〉}) ⊆ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵)) → (◡𝑅0 “ {〈𝐴, 𝐵〉}) ≼ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵)))) |
| 60 | 33, 58, 59 | sylc 66 |
. 2
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (◡𝑅0 “ {〈𝐴, 𝐵〉}) ≼ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵))) |
| 61 | | endomtr 9040 |
. 2
⊢
(((𝐽0‘〈𝐴, 𝐵〉) ≈ (◡𝑅0 “ {〈𝐴, 𝐵〉}) ∧ (◡𝑅0 “ {〈𝐴, 𝐵〉}) ≼ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵))) →
(𝐽0‘〈𝐴, 𝐵〉) ≼ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵))) |
| 62 | 29, 60, 61 | syl2anc 596 |
1
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) →
(𝐽0‘〈𝐴, 𝐵〉) ≼ (suc (𝐴 ∪ 𝐵) × suc (𝐴 ∪ 𝐵))) |