| Step | Hyp | Ref
| Expression |
| 1 | | eluni 4870 |
. . 3
⊢ (𝐴 ∈ ∪ (𝑅1 “ On) ↔ ∃𝑦(𝐴 ∈ 𝑦 ∧ 𝑦 ∈ (𝑅1 “
On))) |
| 2 | | eleq2 2850 |
. . . . . . . 8
⊢
((𝑅1‘𝑥) = 𝑦 → (𝐴 ∈ (𝑅1‘𝑥) ↔ 𝐴 ∈ 𝑦)) |
| 3 | 2 | biimprcd 253 |
. . . . . . 7
⊢ (𝐴 ∈ 𝑦 → ((𝑅1‘𝑥) = 𝑦 → 𝐴 ∈ (𝑅1‘𝑥))) |
| 4 | | r1tr 9776 |
. . . . . . . . . . 11
⊢ Tr
(𝑅1‘𝑥) |
| 5 | | trss 5222 |
. . . . . . . . . . 11
⊢ (Tr
(𝑅1‘𝑥) → (𝐴 ∈ (𝑅1‘𝑥) → 𝐴 ⊆ (𝑅1‘𝑥))) |
| 6 | 4, 5 | ax-mp 5 |
. . . . . . . . . 10
⊢ (𝐴 ∈
(𝑅1‘𝑥) → 𝐴 ⊆ (𝑅1‘𝑥)) |
| 7 | | elpwg 4560 |
. . . . . . . . . 10
⊢ (𝐴 ∈
(𝑅1‘𝑥) → (𝐴 ∈ 𝒫
(𝑅1‘𝑥) ↔ 𝐴 ⊆ (𝑅1‘𝑥))) |
| 8 | 6, 7 | mpbird 260 |
. . . . . . . . 9
⊢ (𝐴 ∈
(𝑅1‘𝑥) → 𝐴 ∈ 𝒫
(𝑅1‘𝑥)) |
| 9 | | elfvdm 6917 |
. . . . . . . . . 10
⊢ (𝐴 ∈
(𝑅1‘𝑥) → 𝑥 ∈ dom
𝑅1) |
| 10 | | r1sucg 9769 |
. . . . . . . . . 10
⊢ (𝑥 ∈ dom
𝑅1 → (𝑅1‘suc 𝑥) = 𝒫
(𝑅1‘𝑥)) |
| 11 | 9, 10 | syl 18 |
. . . . . . . . 9
⊢ (𝐴 ∈
(𝑅1‘𝑥) → (𝑅1‘suc
𝑥) = 𝒫
(𝑅1‘𝑥)) |
| 12 | 8, 11 | eleqtrrd 2864 |
. . . . . . . 8
⊢ (𝐴 ∈
(𝑅1‘𝑥) → 𝐴 ∈ (𝑅1‘suc
𝑥)) |
| 13 | 12 | a1i 11 |
. . . . . . 7
⊢ (𝑥 ∈ On → (𝐴 ∈
(𝑅1‘𝑥) → 𝐴 ∈ (𝑅1‘suc
𝑥))) |
| 14 | 3, 13 | syl9 78 |
. . . . . 6
⊢ (𝐴 ∈ 𝑦 → (𝑥 ∈ On →
((𝑅1‘𝑥) = 𝑦 → 𝐴 ∈ (𝑅1‘suc
𝑥)))) |
| 15 | 14 | reximdvai 3174 |
. . . . 5
⊢ (𝐴 ∈ 𝑦 → (∃𝑥 ∈ On (𝑅1‘𝑥) = 𝑦 → ∃𝑥 ∈ On 𝐴 ∈ (𝑅1‘suc
𝑥))) |
| 16 | | r1fun 9764 |
. . . . . 6
⊢ Fun
𝑅1 |
| 17 | | fvelima 6948 |
. . . . . 6
⊢ ((Fun
𝑅1 ∧ 𝑦 ∈ (𝑅1 “ On))
→ ∃𝑥 ∈ On
(𝑅1‘𝑥) = 𝑦) |
| 18 | 16, 17 | mpan 703 |
. . . . 5
⊢ (𝑦 ∈ (𝑅1
“ On) → ∃𝑥
∈ On (𝑅1‘𝑥) = 𝑦) |
| 19 | 15, 18 | impel 515 |
. . . 4
⊢ ((𝐴 ∈ 𝑦 ∧ 𝑦 ∈ (𝑅1 “ On))
→ ∃𝑥 ∈ On
𝐴 ∈
(𝑅1‘suc 𝑥)) |
| 20 | 19 | exlimiv 1963 |
. . 3
⊢
(∃𝑦(𝐴 ∈ 𝑦 ∧ 𝑦 ∈ (𝑅1 “ On))
→ ∃𝑥 ∈ On
𝐴 ∈
(𝑅1‘suc 𝑥)) |
| 21 | 1, 20 | sylbi 220 |
. 2
⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → ∃𝑥 ∈ On 𝐴 ∈ (𝑅1‘suc
𝑥)) |
| 22 | | elfvdm 6917 |
. . . . . 6
⊢ (𝐴 ∈
(𝑅1‘suc 𝑥) → suc 𝑥 ∈ dom
𝑅1) |
| 23 | | fvelrn 7074 |
. . . . . 6
⊢ ((Fun
𝑅1 ∧ suc 𝑥 ∈ dom 𝑅1) →
(𝑅1‘suc 𝑥) ∈ ran
𝑅1) |
| 24 | 16, 22, 23 | sylancr 599 |
. . . . 5
⊢ (𝐴 ∈
(𝑅1‘suc 𝑥) → (𝑅1‘suc
𝑥) ∈ ran
𝑅1) |
| 25 | | df-ima 5664 |
. . . . . 6
⊢
(𝑅1 “ On) = ran (𝑅1 ↾
On) |
| 26 | | funrel 6554 |
. . . . . . . . 9
⊢ (Fun
𝑅1 → Rel 𝑅1) |
| 27 | 16, 26 | ax-mp 5 |
. . . . . . . 8
⊢ Rel
𝑅1 |
| 28 | | r1dmlim 9765 |
. . . . . . . . 9
⊢ Lim dom
𝑅1 |
| 29 | | limord 6423 |
. . . . . . . . 9
⊢ (Lim dom
𝑅1 → Ord dom 𝑅1) |
| 30 | | ordsson 7795 |
. . . . . . . . 9
⊢ (Ord dom
𝑅1 → dom 𝑅1 ⊆
On) |
| 31 | 28, 29, 30 | mp2b 10 |
. . . . . . . 8
⊢ dom
𝑅1 ⊆ On |
| 32 | | relssres 6011 |
. . . . . . . 8
⊢ ((Rel
𝑅1 ∧ dom 𝑅1 ⊆ On) →
(𝑅1 ↾ On) = 𝑅1) |
| 33 | 27, 31, 32 | mp2an 705 |
. . . . . . 7
⊢
(𝑅1 ↾ On) =
𝑅1 |
| 34 | 33 | rneqi 5919 |
. . . . . 6
⊢ ran
(𝑅1 ↾ On) = ran 𝑅1 |
| 35 | 25, 34 | eqtri 2784 |
. . . . 5
⊢
(𝑅1 “ On) = ran
𝑅1 |
| 36 | 24, 35 | eleqtrrdi 2872 |
. . . 4
⊢ (𝐴 ∈
(𝑅1‘suc 𝑥) → (𝑅1‘suc
𝑥) ∈
(𝑅1 “ On)) |
| 37 | | elunii 4872 |
. . . 4
⊢ ((𝐴 ∈
(𝑅1‘suc 𝑥) ∧ (𝑅1‘suc
𝑥) ∈
(𝑅1 “ On)) → 𝐴 ∈ ∪
(𝑅1 “ On)) |
| 38 | 36, 37 | mpdan 700 |
. . 3
⊢ (𝐴 ∈
(𝑅1‘suc 𝑥) → 𝐴 ∈ ∪
(𝑅1 “ On)) |
| 39 | 38 | rexlimivw 3160 |
. 2
⊢
(∃𝑥 ∈ On
𝐴 ∈
(𝑅1‘suc 𝑥) → 𝐴 ∈ ∪
(𝑅1 “ On)) |
| 40 | 21, 39 | impbii 212 |
1
⊢ (𝐴 ∈ ∪ (𝑅1 “ On) ↔ ∃𝑥 ∈ On 𝐴 ∈ (𝑅1‘suc
𝑥)) |