| Step | Hyp | Ref
| Expression |
| 1 | | rdgfun 8346 |
. . . . . . . . 9
⊢ Fun
rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) |
| 2 | | eluniima 7196 |
. . . . . . . . 9
⊢ (Fun
rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) → (𝑣 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω) ↔ ∃𝑧 ∈ ω 𝑣 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧))) |
| 3 | 1, 2 | ax-mp 5 |
. . . . . . . 8
⊢ (𝑣 ∈ ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) “ ω)
↔ ∃𝑧 ∈
ω 𝑣 ∈
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥})‘𝑧)) |
| 4 | | peano2 7832 |
. . . . . . . . . . . 12
⊢ (𝑧 ∈ ω → suc 𝑧 ∈
ω) |
| 5 | | elunii 4856 |
. . . . . . . . . . . . 13
⊢ ((𝑢 ∈ 𝑣 ∧ 𝑣 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧)) → 𝑢 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥})‘𝑧)) |
| 6 | | nnon 7814 |
. . . . . . . . . . . . . . . 16
⊢ (𝑧 ∈ ω → 𝑧 ∈ On) |
| 7 | | fvex 6845 |
. . . . . . . . . . . . . . . . 17
⊢
(rec((𝑦 ∈ V
↦ ∪ 𝑦), {𝑥})‘𝑧) ∈ V |
| 8 | 7 | uniex 7686 |
. . . . . . . . . . . . . . . 16
⊢ ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧) ∈ V |
| 9 | | eqid 2737 |
. . . . . . . . . . . . . . . . 17
⊢
rec((𝑦 ∈ V
↦ ∪ 𝑦), {𝑥}) = rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) |
| 10 | | unieq 4862 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑤 = 𝑦 → ∪ 𝑤 = ∪
𝑦) |
| 11 | | unieq 4862 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑤 = (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧) → ∪ 𝑤 =
∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧)) |
| 12 | 9, 10, 11 | rdgsucmpt2 8360 |
. . . . . . . . . . . . . . . 16
⊢ ((𝑧 ∈ On ∧ ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧) ∈ V) → (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘suc 𝑧) = ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥})‘𝑧)) |
| 13 | 6, 8, 12 | sylancl 587 |
. . . . . . . . . . . . . . 15
⊢ (𝑧 ∈ ω →
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥})‘suc 𝑧) = ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧)) |
| 14 | 13 | eleq2d 2823 |
. . . . . . . . . . . . . 14
⊢ (𝑧 ∈ ω → (𝑢 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘suc 𝑧) ↔ 𝑢 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥})‘𝑧))) |
| 15 | 14 | biimpar 477 |
. . . . . . . . . . . . 13
⊢ ((𝑧 ∈ ω ∧ 𝑢 ∈ ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧)) → 𝑢 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘suc 𝑧)) |
| 16 | 5, 15 | sylan2 594 |
. . . . . . . . . . . 12
⊢ ((𝑧 ∈ ω ∧ (𝑢 ∈ 𝑣 ∧ 𝑣 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧))) → 𝑢 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘suc 𝑧)) |
| 17 | | fveq2 6832 |
. . . . . . . . . . . . . 14
⊢ (𝑤 = suc 𝑧 → (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑤) = (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘suc 𝑧)) |
| 18 | 17 | eleq2d 2823 |
. . . . . . . . . . . . 13
⊢ (𝑤 = suc 𝑧 → (𝑢 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑤) ↔ 𝑢 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘suc 𝑧))) |
| 19 | 18 | rspcev 3565 |
. . . . . . . . . . . 12
⊢ ((suc
𝑧 ∈ ω ∧
𝑢 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘suc 𝑧)) → ∃𝑤 ∈ ω 𝑢 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑤)) |
| 20 | 4, 16, 19 | syl2an2r 686 |
. . . . . . . . . . 11
⊢ ((𝑧 ∈ ω ∧ (𝑢 ∈ 𝑣 ∧ 𝑣 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧))) → ∃𝑤 ∈ ω 𝑢 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑤)) |
| 21 | | eluniima 7196 |
. . . . . . . . . . . 12
⊢ (Fun
rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) → (𝑢 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω) ↔ ∃𝑤 ∈ ω 𝑢 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑤))) |
| 22 | 1, 21 | ax-mp 5 |
. . . . . . . . . . 11
⊢ (𝑢 ∈ ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) “ ω)
↔ ∃𝑤 ∈
ω 𝑢 ∈
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥})‘𝑤)) |
| 23 | 20, 22 | sylibr 234 |
. . . . . . . . . 10
⊢ ((𝑧 ∈ ω ∧ (𝑢 ∈ 𝑣 ∧ 𝑣 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧))) → 𝑢 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω)) |
| 24 | 23 | an12s 650 |
. . . . . . . . 9
⊢ ((𝑢 ∈ 𝑣 ∧ (𝑧 ∈ ω ∧ 𝑣 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧))) → 𝑢 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω)) |
| 25 | 24 | rexlimdvaa 3140 |
. . . . . . . 8
⊢ (𝑢 ∈ 𝑣 → (∃𝑧 ∈ ω 𝑣 ∈ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥})‘𝑧) → 𝑢 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω))) |
| 26 | 3, 25 | biimtrid 242 |
. . . . . . 7
⊢ (𝑢 ∈ 𝑣 → (𝑣 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω) → 𝑢 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω))) |
| 27 | 26 | reximdv 3153 |
. . . . . 6
⊢ (𝑢 ∈ 𝑣 → (∃𝑥 ∈ 𝐴 𝑣 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω) → ∃𝑥 ∈ 𝐴 𝑢 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω))) |
| 28 | | eliun 4938 |
. . . . . 6
⊢ (𝑣 ∈ ∪ 𝑥 ∈ 𝐴 ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) “ ω)
↔ ∃𝑥 ∈
𝐴 𝑣 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω)) |
| 29 | | eliun 4938 |
. . . . . 6
⊢ (𝑢 ∈ ∪ 𝑥 ∈ 𝐴 ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) “ ω)
↔ ∃𝑥 ∈
𝐴 𝑢 ∈ ∪
(rec((𝑦 ∈ V ↦
∪ 𝑦), {𝑥}) “ ω)) |
| 30 | 27, 28, 29 | 3imtr4g 296 |
. . . . 5
⊢ (𝑢 ∈ 𝑣 → (𝑣 ∈ ∪
𝑥 ∈ 𝐴 ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) “ ω)
→ 𝑢 ∈ ∪ 𝑥 ∈ 𝐴 ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) “
ω))) |
| 31 | | df-ttc 36675 |
. . . . . 6
⊢ TC+ 𝐴 = ∪ 𝑥 ∈ 𝐴 ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) “
ω) |
| 32 | 31 | eleq2i 2829 |
. . . . 5
⊢ (𝑣 ∈ TC+ 𝐴 ↔ 𝑣 ∈ ∪
𝑥 ∈ 𝐴 ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) “
ω)) |
| 33 | 31 | eleq2i 2829 |
. . . . 5
⊢ (𝑢 ∈ TC+ 𝐴 ↔ 𝑢 ∈ ∪
𝑥 ∈ 𝐴 ∪ (rec((𝑦 ∈ V ↦ ∪ 𝑦),
{𝑥}) “
ω)) |
| 34 | 30, 32, 33 | 3imtr4g 296 |
. . . 4
⊢ (𝑢 ∈ 𝑣 → (𝑣 ∈ TC+ 𝐴 → 𝑢 ∈ TC+ 𝐴)) |
| 35 | 34 | imp 406 |
. . 3
⊢ ((𝑢 ∈ 𝑣 ∧ 𝑣 ∈ TC+ 𝐴) → 𝑢 ∈ TC+ 𝐴) |
| 36 | 35 | gen2 1798 |
. 2
⊢
∀𝑢∀𝑣((𝑢 ∈ 𝑣 ∧ 𝑣 ∈ TC+ 𝐴) → 𝑢 ∈ TC+ 𝐴) |
| 37 | | dftr2 5195 |
. 2
⊢ (Tr TC+
𝐴 ↔ ∀𝑢∀𝑣((𝑢 ∈ 𝑣 ∧ 𝑣 ∈ TC+ 𝐴) → 𝑢 ∈ TC+ 𝐴)) |
| 38 | 36, 37 | mpbir 231 |
1
⊢ Tr TC+
𝐴 |