Proof of Theorem rankelpr
| Step | Hyp | Ref
| Expression |
| 1 | | rankelun.1 |
. . . . . . 7
⊢ A ∈
V |
| 2 | | rankelun.2 |
. . . . . . 7
⊢ B ∈
V |
| 3 | | rankelun.3 |
. . . . . . 7
⊢ C ∈
V |
| 4 | | rankelun.4 |
. . . . . . 7
⊢ D ∈
V |
| 5 | 1, 2, 3, 4 | rankelun 4717 |
. . . . . 6
⊢ (((rank ‘A) ∈ (rank
‘C) ⋀ (rank ‘B) ∈ (rank
‘D)) → (rank ‘(A ∪ B))
∈ (rank ‘(C ∪ D))) |
| 6 | 3, 4 | rankun 4701 |
. . . . . 6
⊢ (rank ‘(C ∪ D)) =
((rank ‘C) ∪ (rank
‘D)) |
| 7 | 5, 6 | syl6eleq 1561 |
. . . . 5
⊢ (((rank ‘A) ∈ (rank
‘C) ⋀ (rank ‘B) ∈ (rank
‘D)) → (rank ‘(A ∪ B))
∈ ((rank ‘C) ∪ (rank ‘D))) |
| 8 | 1, 2 | rankun 4701 |
. . . . 5
⊢ (rank ‘(A ∪ B)) =
((rank ‘A) ∪ (rank
‘B)) |
| 9 | 7, 8 | syl5eqelr 1556 |
. . . 4
⊢ (((rank ‘A) ∈ (rank
‘C) ⋀ (rank ‘B) ∈ (rank
‘D)) → ((rank ‘A) ∪ (rank ‘B)) ∈ ((rank
‘C) ∪ (rank ‘D))) |
| 10 | | rankon 4681 |
. . . . . . 7
⊢ (rank ‘C) ∈ On |
| 11 | | rankon 4681 |
. . . . . . 7
⊢ (rank ‘D) ∈ On |
| 12 | 10, 11 | onun 3116 |
. . . . . 6
⊢ ((rank ‘C) ∪ (rank ‘D)) ∈ On |
| 13 | 12 | onord 3101 |
. . . . 5
⊢ Ord ((rank ‘C) ∪ (rank ‘D)) |
| 14 | | ordsucelsuc 3079 |
. . . . 5
⊢ (Ord ((rank
‘C) ∪ (rank ‘D)) → (((rank ‘A) ∪ (rank ‘B)) ∈ ((rank
‘C) ∪ (rank ‘D)) ↔ suc ((rank ‘A) ∪ (rank ‘B)) ∈ suc ((rank
‘C) ∪ (rank ‘D)))) |
| 15 | 13, 14 | ax-mp 7 |
. . . 4
⊢ (((rank ‘A) ∪ (rank ‘B)) ∈ ((rank
‘C) ∪ (rank ‘D)) ↔ suc ((rank ‘A) ∪ (rank ‘B)) ∈ suc ((rank
‘C) ∪ (rank ‘D))) |
| 16 | 9, 15 | sylib 198 |
. . 3
⊢ (((rank ‘A) ∈ (rank
‘C) ⋀ (rank ‘B) ∈ (rank
‘D)) → suc ((rank
‘A) ∪ (rank ‘B)) ∈ suc ((rank
‘C) ∪ (rank ‘D))) |
| 17 | 3, 4 | rankpr 4702 |
. . 3
⊢ (rank ‘{C, D}) = suc
((rank ‘C) ∪ (rank
‘D)) |
| 18 | 16, 17 | syl6eleqr 1562 |
. 2
⊢ (((rank ‘A) ∈ (rank
‘C) ⋀ (rank ‘B) ∈ (rank
‘D)) → suc ((rank
‘A) ∪ (rank ‘B)) ∈ (rank
‘{C, D})) |
| 19 | 1, 2 | rankpr 4702 |
. 2
⊢ (rank ‘{A, B}) = suc
((rank ‘A) ∪ (rank
‘B)) |
| 20 | 18, 19 | syl5eqel 1555 |
1
⊢ (((rank ‘A) ∈ (rank
‘C) ⋀ (rank ‘B) ∈ (rank
‘D)) → (rank ‘{A, B}) ∈ (rank ‘{C, D})) |