Step | Hyp | Ref
| Expression |
1 | | dftrpred2 9397 |
. 2
⊢
TrPred(𝑅, ∅,
𝑋) = ∪ 𝑖 ∈ ω ((rec((𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω)‘𝑖) |
2 | | pred0 6227 |
. . . . . . . . . . 11
⊢
Pred(𝑅, ∅,
𝑦) =
∅ |
3 | 2 | a1i 11 |
. . . . . . . . . 10
⊢ (𝑦 ∈ 𝑎 → Pred(𝑅, ∅, 𝑦) = ∅) |
4 | 3 | iuneq2i 4942 |
. . . . . . . . 9
⊢ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦) = ∪ 𝑦 ∈ 𝑎 ∅ |
5 | | iun0 4987 |
. . . . . . . . 9
⊢ ∪ 𝑦 ∈ 𝑎 ∅ = ∅ |
6 | 4, 5 | eqtri 2766 |
. . . . . . . 8
⊢ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦) = ∅ |
7 | 6 | mpteq2i 5175 |
. . . . . . 7
⊢ (𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)) = (𝑎 ∈ V ↦ ∅) |
8 | | pred0 6227 |
. . . . . . 7
⊢
Pred(𝑅, ∅,
𝑋) =
∅ |
9 | | rdgeq12 8215 |
. . . . . . 7
⊢ (((𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)) = (𝑎 ∈ V ↦ ∅) ∧ Pred(𝑅, ∅, 𝑋) = ∅) → rec((𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) = rec((𝑎 ∈ V ↦ ∅),
∅)) |
10 | 7, 8, 9 | mp2an 688 |
. . . . . 6
⊢
rec((𝑎 ∈ V
↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) = rec((𝑎 ∈ V ↦ ∅),
∅) |
11 | 10 | reseq1i 5876 |
. . . . 5
⊢
(rec((𝑎 ∈ V
↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω) = (rec((𝑎 ∈ V ↦ ∅),
∅) ↾ ω) |
12 | 11 | fveq1i 6757 |
. . . 4
⊢
((rec((𝑎 ∈ V
↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω)‘𝑖) = ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑖) |
13 | | nn0suc 7716 |
. . . . 5
⊢ (𝑖 ∈ ω → (𝑖 = ∅ ∨ ∃𝑗 ∈ ω 𝑖 = suc 𝑗)) |
14 | | fveq2 6756 |
. . . . . . 7
⊢ (𝑖 = ∅ → ((rec((𝑎 ∈ V ↦ ∅),
∅) ↾ ω)‘𝑖) = ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘∅)) |
15 | | 0ex 5226 |
. . . . . . . 8
⊢ ∅
∈ V |
16 | | fr0g 8237 |
. . . . . . . 8
⊢ (∅
∈ V → ((rec((𝑎
∈ V ↦ ∅), ∅) ↾ ω)‘∅) =
∅) |
17 | 15, 16 | ax-mp 5 |
. . . . . . 7
⊢
((rec((𝑎 ∈ V
↦ ∅), ∅) ↾ ω)‘∅) =
∅ |
18 | 14, 17 | eqtrdi 2795 |
. . . . . 6
⊢ (𝑖 = ∅ → ((rec((𝑎 ∈ V ↦ ∅),
∅) ↾ ω)‘𝑖) = ∅) |
19 | | nfcv 2906 |
. . . . . . . . . 10
⊢
Ⅎ𝑎∅ |
20 | | nfcv 2906 |
. . . . . . . . . 10
⊢
Ⅎ𝑎𝑗 |
21 | | eqid 2738 |
. . . . . . . . . 10
⊢
(rec((𝑎 ∈ V
↦ ∅), ∅) ↾ ω) = (rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω) |
22 | | eqidd 2739 |
. . . . . . . . . 10
⊢ (𝑎 = ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑗) →
∅ = ∅) |
23 | 19, 20, 19, 21, 22 | frsucmpt 8239 |
. . . . . . . . 9
⊢ ((𝑗 ∈ ω ∧ ∅
∈ V) → ((rec((𝑎
∈ V ↦ ∅), ∅) ↾ ω)‘suc 𝑗) = ∅) |
24 | 15, 23 | mpan2 687 |
. . . . . . . 8
⊢ (𝑗 ∈ ω →
((rec((𝑎 ∈ V ↦
∅), ∅) ↾ ω)‘suc 𝑗) = ∅) |
25 | | fveqeq2 6765 |
. . . . . . . 8
⊢ (𝑖 = suc 𝑗 → (((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑖) = ∅
↔ ((rec((𝑎 ∈ V
↦ ∅), ∅) ↾ ω)‘suc 𝑗) = ∅)) |
26 | 24, 25 | syl5ibrcom 246 |
. . . . . . 7
⊢ (𝑗 ∈ ω → (𝑖 = suc 𝑗 → ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑖) =
∅)) |
27 | 26 | rexlimiv 3208 |
. . . . . 6
⊢
(∃𝑗 ∈
ω 𝑖 = suc 𝑗 → ((rec((𝑎 ∈ V ↦ ∅),
∅) ↾ ω)‘𝑖) = ∅) |
28 | 18, 27 | jaoi 853 |
. . . . 5
⊢ ((𝑖 = ∅ ∨ ∃𝑗 ∈ ω 𝑖 = suc 𝑗) → ((rec((𝑎 ∈ V ↦ ∅), ∅) ↾
ω)‘𝑖) =
∅) |
29 | 13, 28 | syl 17 |
. . . 4
⊢ (𝑖 ∈ ω →
((rec((𝑎 ∈ V ↦
∅), ∅) ↾ ω)‘𝑖) = ∅) |
30 | 12, 29 | eqtrid 2790 |
. . 3
⊢ (𝑖 ∈ ω →
((rec((𝑎 ∈ V ↦
∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω)‘𝑖) = ∅) |
31 | 30 | iuneq2i 4942 |
. 2
⊢ ∪ 𝑖 ∈ ω ((rec((𝑎 ∈ V ↦ ∪ 𝑦 ∈ 𝑎 Pred(𝑅, ∅, 𝑦)), Pred(𝑅, ∅, 𝑋)) ↾ ω)‘𝑖) = ∪ 𝑖 ∈ ω
∅ |
32 | | iun0 4987 |
. 2
⊢ ∪ 𝑖 ∈ ω ∅ =
∅ |
33 | 1, 31, 32 | 3eqtri 2770 |
1
⊢
TrPred(𝑅, ∅,
𝑋) =
∅ |