Proof of Theorem rankelun
| Step | Hyp | Ref
| Expression |
| 1 | | elun1 2200 |
. . . . . . . 8
⊢ (A ∈
(R1 ‘(rank ‘C)) → A
∈ ((R1 ‘(rank
‘C)) ∪ (R1
‘(rank ‘D)))) |
| 2 | | elun2 2201 |
. . . . . . . 8
⊢ (B ∈
(R1 ‘(rank ‘D)) → B
∈ ((R1 ‘(rank
‘C)) ∪ (R1
‘(rank ‘D)))) |
| 3 | 1, 2 | anim12i 333 |
. . . . . . 7
⊢ ((A ∈
(R1 ‘(rank ‘C)) ⋀ B ∈
(R1 ‘(rank ‘D))) → (A
∈ ((R1 ‘(rank
‘C)) ∪ (R1
‘(rank ‘D))) ⋀ B ∈ ((R1 ‘(rank
‘C)) ∪ (R1
‘(rank ‘D))))) |
| 4 | | rankelun.1 |
. . . . . . . 8
⊢ A ∈
V |
| 5 | | rankelun.2 |
. . . . . . . 8
⊢ B ∈
V |
| 6 | 4, 5 | prss 2475 |
. . . . . . 7
⊢ ((A ∈
((R1 ‘(rank ‘C)) ∪ (R1 ‘(rank
‘D))) ⋀ B ∈ ((R1 ‘(rank
‘C)) ∪ (R1
‘(rank ‘D)))) ↔ {A, B} ⊆ ((R1 ‘(rank
‘C)) ∪ (R1
‘(rank ‘D)))) |
| 7 | 3, 6 | sylib 198 |
. . . . . 6
⊢ ((A ∈
(R1 ‘(rank ‘C)) ⋀ B ∈
(R1 ‘(rank ‘D))) → {A,
B} ⊆
((R1 ‘(rank ‘C)) ∪ (R1 ‘(rank
‘D)))) |
| 8 | | fvex 3738 |
. . . . . . . 8
⊢ (R1
‘(rank ‘C)) ∈ V |
| 9 | | fvex 3738 |
. . . . . . . 8
⊢ (R1
‘(rank ‘D)) ∈ V |
| 10 | 8, 9 | unex 2878 |
. . . . . . 7
⊢ ((R1
‘(rank ‘C)) ∪
(R1 ‘(rank ‘D))) ∈
V |
| 11 | 10 | rankss 4698 |
. . . . . 6
⊢ ({A, B} ⊆ ((R1 ‘(rank
‘C)) ∪ (R1
‘(rank ‘D))) → (rank
‘{A, B}) ⊆ (rank
‘((R1 ‘(rank ‘C)) ∪ (R1 ‘(rank
‘D))))) |
| 12 | 7, 11 | syl 10 |
. . . . 5
⊢ ((A ∈
(R1 ‘(rank ‘C)) ⋀ B ∈
(R1 ‘(rank ‘D))) → (rank ‘{A, B}) ⊆ (rank ‘((R1 ‘(rank
‘C)) ∪ (R1
‘(rank ‘D))))) |
| 13 | 4, 5 | rankpr 4702 |
. . . . . 6
⊢ (rank ‘{A, B}) = suc
((rank ‘A) ∪ (rank
‘B)) |
| 14 | 4, 5 | rankun 4701 |
. . . . . . 7
⊢ (rank ‘(A ∪ B)) =
((rank ‘A) ∪ (rank
‘B)) |
| 15 | | suceq 3040 |
. . . . . . 7
⊢ ((rank ‘(A ∪ B)) =
((rank ‘A) ∪ (rank
‘B)) → suc (rank
‘(A ∪ B)) = suc ((rank ‘A) ∪ (rank ‘B))) |
| 16 | 14, 15 | ax-mp 7 |
. . . . . 6
⊢ suc (rank ‘(A ∪ B)) =
suc ((rank ‘A) ∪ (rank
‘B)) |
| 17 | 13, 16 | eqtr4 1501 |
. . . . 5
⊢ (rank ‘{A, B}) = suc
(rank ‘(A ∪ B)) |
| 18 | 12, 17 | syl5ssr 2109 |
. . . 4
⊢ ((A ∈
(R1 ‘(rank ‘C)) ⋀ B ∈
(R1 ‘(rank ‘D))) → suc (rank ‘(A ∪ B))
⊆ (rank ‘((R1
‘(rank ‘C)) ∪
(R1 ‘(rank ‘D))))) |
| 19 | | fvex 3738 |
. . . . 5
⊢ (rank ‘(A ∪ B))
∈ V |
| 20 | | sucssel 3076 |
. . . . 5
⊢ ((rank ‘(A ∪ B))
∈ V → (suc (rank ‘(A ∪ B))
⊆ (rank ‘((R1
‘(rank ‘C)) ∪
(R1 ‘(rank ‘D)))) → (rank ‘(A ∪ B))
∈ (rank ‘((R1
‘(rank ‘C)) ∪
(R1 ‘(rank ‘D)))))) |
| 21 | 19, 20 | ax-mp 7 |
. . . 4
⊢ (suc (rank
‘(A ∪ B)) ⊆ (rank
‘((R1 ‘(rank ‘C)) ∪ (R1 ‘(rank
‘D)))) → (rank ‘(A ∪ B))
∈ (rank ‘((R1
‘(rank ‘C)) ∪
(R1 ‘(rank ‘D))))) |
| 22 | 18, 21 | syl 10 |
. . 3
⊢ ((A ∈
(R1 ‘(rank ‘C)) ⋀ B ∈
(R1 ‘(rank ‘D))) → (rank ‘(A ∪ B))
∈ (rank ‘((R1
‘(rank ‘C)) ∪
(R1 ‘(rank ‘D))))) |
| 23 | | rankon 4681 |
. . . 4
⊢ (rank ‘C) ∈ On |
| 24 | 4 | rankr1a 4687 |
. . . 4
⊢ ((rank ‘C) ∈ On →
(A ∈
(R1 ‘(rank ‘C)) ↔ (rank ‘A) ∈ (rank
‘C))) |
| 25 | 23, 24 | ax-mp 7 |
. . 3
⊢ (A ∈
(R1 ‘(rank ‘C)) ↔ (rank ‘A) ∈ (rank
‘C)) |
| 26 | | rankon 4681 |
. . . 4
⊢ (rank ‘D) ∈ On |
| 27 | 5 | rankr1a 4687 |
. . . 4
⊢ ((rank ‘D) ∈ On →
(B ∈
(R1 ‘(rank ‘D)) ↔ (rank ‘B) ∈ (rank
‘D))) |
| 28 | 26, 27 | ax-mp 7 |
. . 3
⊢ (B ∈
(R1 ‘(rank ‘D)) ↔ (rank ‘B) ∈ (rank
‘D)) |
| 29 | 22, 25, 28 | syl2anbr 458 |
. 2
⊢ (((rank ‘A) ∈ (rank
‘C) ⋀ (rank ‘B) ∈ (rank
‘D)) → (rank ‘(A ∪ B))
∈ (rank ‘((R1
‘(rank ‘C)) ∪
(R1 ‘(rank ‘D))))) |
| 30 | | rankr1id 4707 |
. . . . 5
⊢ ((rank ‘C) ∈ On ↔
(rank ‘(R1 ‘(rank ‘C))) = (rank ‘C)) |
| 31 | 23, 30 | mpbi 189 |
. . . 4
⊢ (rank
‘(R1 ‘(rank ‘C))) = (rank ‘C) |
| 32 | | rankr1id 4707 |
. . . . 5
⊢ ((rank ‘D) ∈ On ↔
(rank ‘(R1 ‘(rank ‘D))) = (rank ‘D)) |
| 33 | 26, 32 | mpbi 189 |
. . . 4
⊢ (rank
‘(R1 ‘(rank ‘D))) = (rank ‘D) |
| 34 | 31, 33 | uneq12i 2185 |
. . 3
⊢ ((rank
‘(R1 ‘(rank ‘C))) ∪ (rank ‘(R1
‘(rank ‘D)))) = ((rank
‘C) ∪ (rank ‘D)) |
| 35 | 8, 9 | rankun 4701 |
. . 3
⊢ (rank
‘((R1 ‘(rank ‘C)) ∪ (R1 ‘(rank
‘D)))) = ((rank
‘(R1 ‘(rank ‘C))) ∪ (rank ‘(R1
‘(rank ‘D)))) |
| 36 | | rankelun.3 |
. . . 4
⊢ C ∈
V |
| 37 | | rankelun.4 |
. . . 4
⊢ D ∈
V |
| 38 | 36, 37 | rankun 4701 |
. . 3
⊢ (rank ‘(C ∪ D)) =
((rank ‘C) ∪ (rank
‘D)) |
| 39 | 34, 35, 38 | 3eqtr4 1508 |
. 2
⊢ (rank
‘((R1 ‘(rank ‘C)) ∪ (R1 ‘(rank
‘D)))) = (rank ‘(C ∪ D)) |
| 40 | 29, 39 | syl6eleq 1561 |
1
⊢ (((rank ‘A) ∈ (rank
‘C) ⋀ (rank ‘B) ∈ (rank
‘D)) → (rank ‘(A ∪ B))
∈ (rank ‘(C ∪ D))) |