Step | Hyp | Ref
| Expression |
1 | | dftrpred2 9324 |
. 2
⊢
TrPred(𝑅, ∅,
𝑋) = ∪ 𝑖 ∈ ω ((rec((𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω)‘𝑖) |
2 | | pred0 6193 |
. . . . . . . . . . 11
⊢
Pred(𝑅, ∅,
𝑦) =
∅ |
3 | 2 | a1i 11 |
. . . . . . . . . 10
⊢ (𝑦 ∈ 𝑎 → Pred(𝑅, ∅, 𝑦) = ∅) |
4 | 3 | iuneq2i 4925 |
. . . . . . . . 9
⊢ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦) = ∪ 𝑦 ∈ 𝑎 ∅ |
5 | | iun0 4970 |
. . . . . . . . 9
⊢ ∪ 𝑦 ∈ 𝑎 ∅ = ∅ |
6 | 4, 5 | eqtri 2765 |
. . . . . . . 8
⊢ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦) = ∅ |
7 | 6 | mpteq2i 5147 |
. . . . . . 7
⊢ (𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)) = (𝑎 ∈ V ↦ ∅) |
8 | | pred0 6193 |
. . . . . . 7
⊢
Pred(𝑅, ∅,
𝑋) =
∅ |
9 | | rdgeq12 8149 |
. . . . . . 7
⊢ (((𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)) = (𝑎 ∈ V ↦ ∅) ∧ Pred(𝑅, ∅, 𝑋) = ∅) → rec((𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) = rec((𝑎 ∈ V ↦ ∅),
∅)) |
10 | 7, 8, 9 | mp2an 692 |
. . . . . 6
⊢
rec((𝑎 ∈ V
↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) = rec((𝑎 ∈ V ↦ ∅),
∅) |
11 | 10 | reseq1i 5847 |
. . . . 5
⊢
(rec((𝑎 ∈ V
↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω) = (rec((𝑎 ∈ V ↦ ∅),
∅) ↾ ω) |
12 | 11 | fveq1i 6718 |
. . . 4
⊢
((rec((𝑎 ∈ V
↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω)‘𝑖) = ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑖) |
13 | | nn0suc 7673 |
. . . . 5
⊢ (𝑖 ∈ ω → (𝑖 = ∅ ∨ ∃𝑗 ∈ ω 𝑖 = suc 𝑗)) |
14 | | fveq2 6717 |
. . . . . . 7
⊢ (𝑖 = ∅ → ((rec((𝑎 ∈ V ↦ ∅),
∅) ↾ ω)‘𝑖) = ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘∅)) |
15 | | 0ex 5200 |
. . . . . . . 8
⊢ ∅
∈ V |
16 | | fr0g 8171 |
. . . . . . . 8
⊢ (∅
∈ V → ((rec((𝑎
∈ V ↦ ∅), ∅) ↾ ω)‘∅) =
∅) |
17 | 15, 16 | ax-mp 5 |
. . . . . . 7
⊢
((rec((𝑎 ∈ V
↦ ∅), ∅) ↾ ω)‘∅) =
∅ |
18 | 14, 17 | eqtrdi 2794 |
. . . . . 6
⊢ (𝑖 = ∅ → ((rec((𝑎 ∈ V ↦ ∅),
∅) ↾ ω)‘𝑖) = ∅) |
19 | | nfcv 2904 |
. . . . . . . . . 10
⊢
Ⅎ𝑎∅ |
20 | | nfcv 2904 |
. . . . . . . . . 10
⊢
Ⅎ𝑎𝑗 |
21 | | eqid 2737 |
. . . . . . . . . 10
⊢
(rec((𝑎 ∈ V
↦ ∅), ∅) ↾ ω) = (rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω) |
22 | | eqidd 2738 |
. . . . . . . . . 10
⊢ (𝑎 = ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑗) →
∅ = ∅) |
23 | 19, 20, 19, 21, 22 | frsucmpt 8173 |
. . . . . . . . 9
⊢ ((𝑗 ∈ ω ∧ ∅
∈ V) → ((rec((𝑎
∈ V ↦ ∅), ∅) ↾ ω)‘suc 𝑗) = ∅) |
24 | 15, 23 | mpan2 691 |
. . . . . . . 8
⊢ (𝑗 ∈ ω →
((rec((𝑎 ∈ V ↦
∅), ∅) ↾ ω)‘suc 𝑗) = ∅) |
25 | | fveqeq2 6726 |
. . . . . . . 8
⊢ (𝑖 = suc 𝑗 → (((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑖) = ∅
↔ ((rec((𝑎 ∈ V
↦ ∅), ∅) ↾ ω)‘suc 𝑗) = ∅)) |
26 | 24, 25 | syl5ibrcom 250 |
. . . . . . 7
⊢ (𝑗 ∈ ω → (𝑖 = suc 𝑗 → ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑖) =
∅)) |
27 | 26 | rexlimiv 3199 |
. . . . . 6
⊢
(∃𝑗 ∈
ω 𝑖 = suc 𝑗 → ((rec((𝑎 ∈ V ↦ ∅),
∅) ↾ ω)‘𝑖) = ∅) |
28 | 18, 27 | jaoi 857 |
. . . . 5
⊢ ((𝑖 = ∅ ∨ ∃𝑗 ∈ ω 𝑖 = suc 𝑗) → ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑖) =
∅) |
29 | 13, 28 | syl 17 |
. . . 4
⊢ (𝑖 ∈ ω →
((rec((𝑎 ∈ V ↦
∅), ∅) ↾ ω)‘𝑖) = ∅) |
30 | 12, 29 | eqtrid 2789 |
. . 3
⊢ (𝑖 ∈ ω →
((rec((𝑎 ∈ V ↦
∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω)‘𝑖) = ∅) |
31 | 30 | iuneq2i 4925 |
. 2
⊢ ∪ 𝑖 ∈ ω ((rec((𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω)‘𝑖) = ∪ 𝑖 ∈ ω
∅ |
32 | | iun0 4970 |
. 2
⊢ ∪ 𝑖 ∈ ω ∅ =
∅ |
33 | 1, 31, 32 | 3eqtri 2769 |
1
⊢
TrPred(𝑅, ∅,
𝑋) =
∅ |