Proof of Theorem rankval3
| Step | Hyp | Ref
| Expression |
| 1 | | rankval3.1 |
. . . 4
⊢ A
∈ V |
| 2 | 1 | rankval 3512 |
. . 3
⊢ (rank ‘A) = ∩{x ∈ On∣A ∈ (R1 ‘suc x)} |
| 3 | | visset 1350 |
. . . . . . . . 9
⊢ y
∈ V |
| 4 | 3 | rankid 3516 |
. . . . . . . 8
⊢ y
∈ (R1 ‘suc (rank ‘y)) |
| 5 | | eloni 2209 |
. . . . . . . . . . 11
⊢ (x
∈ On → Ord x) |
| 6 | | ordsucss 2320 |
. . . . . . . . . . 11
⊢ (Ord x
→ ((rank ‘y) ∈ x → suc (rank ‘y) ⊆ x)) |
| 7 | 5, 6 | syl 12 |
. . . . . . . . . 10
⊢ (x
∈ On → ((rank ‘y) ∈
x → suc (rank ‘y) ⊆ x)) |
| 8 | | rankon 3515 |
. . . . . . . . . . . 12
⊢ (rank ‘y) ∈ On |
| 9 | 8 | onsuc 2353 |
. . . . . . . . . . 11
⊢ suc (rank ‘y) ∈ On |
| 10 | | r1ord3 3501 |
. . . . . . . . . . 11
⊢ ((suc (rank ‘y) ∈ On ∧ x ∈ On) → (suc (rank ‘y) ⊆ x
→ (R1 ‘suc (rank ‘y)) ⊆ (R1 ‘x))) |
| 11 | 9, 10 | mpan 518 |
. . . . . . . . . 10
⊢ (x
∈ On → (suc (rank ‘y)
⊆ x → (R1
‘suc (rank ‘y)) ⊆
(R1 ‘x))) |
| 12 | 7, 11 | syld 27 |
. . . . . . . . 9
⊢ (x
∈ On → ((rank ‘y) ∈
x → (R1 ‘suc
(rank ‘y)) ⊆
(R1 ‘x))) |
| 13 | | ssel 1502 |
. . . . . . . . 9
⊢ ((R1 ‘suc (rank
‘y)) ⊆ (R1
‘x) → (y ∈ (R1 ‘suc (rank
‘y)) → y ∈ (R1 ‘x))) |
| 14 | 12, 13 | syl6 23 |
. . . . . . . 8
⊢ (x
∈ On → ((rank ‘y) ∈
x → (y ∈ (R1 ‘suc (rank
‘y)) → y ∈ (R1 ‘x)))) |
| 15 | 4, 14 | mpii 45 |
. . . . . . 7
⊢ (x
∈ On → ((rank ‘y) ∈
x → y ∈ (R1 ‘x))) |
| 16 | 15 | r19.20sdv 1257 |
. . . . . 6
⊢ (x
∈ On → (∀y ∈ A (rank ‘y) ∈ x
→ ∀y ∈ A y ∈
(R1 ‘x))) |
| 17 | | r1suc 3496 |
. . . . . . . 8
⊢ (x
∈ On → (R1 ‘suc x) = ℘(R1 ‘x)) |
| 18 | 17 | eleq2d 1156 |
. . . . . . 7
⊢ (x
∈ On → (A ∈
(R1 ‘suc x) ↔
A ∈ ℘(R1
‘x))) |
| 19 | 1 | elpw 1801 |
. . . . . . . 8
⊢ (A
∈ ℘(R1 ‘x) ↔ A
⊆ (R1 ‘x)) |
| 20 | | dfss3 1498 |
. . . . . . . 8
⊢ (A
⊆ (R1 ‘x)
↔ ∀y ∈ A y ∈
(R1 ‘x)) |
| 21 | 19, 20 | bitr 151 |
. . . . . . 7
⊢ (A
∈ ℘(R1 ‘x) ↔ ∀y ∈ A
y ∈ (R1
‘x)) |
| 22 | 18, 21 | syl6bb 414 |
. . . . . 6
⊢ (x
∈ On → (A ∈
(R1 ‘suc x) ↔
∀y ∈ A y ∈
(R1 ‘x))) |
| 23 | 16, 22 | sylibrd 179 |
. . . . 5
⊢ (x
∈ On → (∀y ∈ A (rank ‘y) ∈ x
→ A ∈ (R1
‘suc x))) |
| 24 | 23 | ss2rabi 1554 |
. . . 4
⊢ {x
∈ On∣∀y ∈ A (rank ‘y) ∈ x}
⊆ {x ∈ On∣A ∈ (R1 ‘suc x)} |
| 25 | | intss 1983 |
. . . 4
⊢ ({x
∈ On∣∀y ∈ A (rank ‘y) ∈ x}
⊆ {x ∈ On∣A ∈ (R1 ‘suc x)} → ∩{x ∈ On∣A ∈ (R1 ‘suc x)} ⊆ ∩{x ∈ On∣∀y ∈ A (rank
‘y) ∈ x}) |
| 26 | 24, 25 | ax-mp 6 |
. . 3
⊢ ∩{x ∈ On∣A ∈ (R1 ‘suc x)} ⊆ ∩{x ∈ On∣∀y ∈ A (rank
‘y) ∈ x} |
| 27 | 2, 26 | eqsstr 1530 |
. 2
⊢ (rank ‘A) ⊆ ∩{x ∈ On∣∀y ∈ A (rank
‘y) ∈ x} |
| 28 | | rankon 3515 |
. . 3
⊢ (rank ‘A) ∈ On |
| 29 | 1 | rankel 3524 |
. . . 4
⊢ (y
∈ A → (rank ‘y) ∈ (rank ‘A)) |
| 30 | 29 | rgen 1247 |
. . 3
⊢ ∀y ∈ A (rank
‘y) ∈ (rank ‘A) |
| 31 | | eleq2 1150 |
. . . . 5
⊢ (x =
(rank ‘A) → ((rank
‘y) ∈ x ↔ (rank ‘y) ∈ (rank ‘A))) |
| 32 | 31 | biraldv 1219 |
. . . 4
⊢ (x =
(rank ‘A) → (∀y ∈ A (rank
‘y) ∈ x ↔ ∀y ∈ A (rank
‘y) ∈ (rank ‘A))) |
| 33 | 32 | onintss 2266 |
. . 3
⊢ ((rank ‘A) ∈ On → (∀y ∈ A (rank
‘y) ∈ (rank ‘A) → ∩{x ∈ On∣∀y ∈ A (rank
‘y) ∈ x} ⊆ (rank ‘A))) |
| 34 | 28, 30, 33 | mp2 43 |
. 2
⊢ ∩{x ∈ On∣∀y ∈ A (rank
‘y) ∈ x} ⊆ (rank ‘A) |
| 35 | 27, 34 | eqssi 1517 |
1
⊢ (rank ‘A) = ∩{x ∈ On∣∀y ∈ A (rank
‘y) ∈ x} |