Proof of Theorem setsdm
Step | Hyp | Ref
| Expression |
1 | | opex 5381 |
. . . . 5
⊢
〈𝐼, 𝐸〉 ∈ V |
2 | 1 | a1i 11 |
. . . 4
⊢ (𝐸 ∈ 𝑊 → 〈𝐼, 𝐸〉 ∈ V) |
3 | | setsvalg 16848 |
. . . 4
⊢ ((𝐺 ∈ 𝑉 ∧ 〈𝐼, 𝐸〉 ∈ V) → (𝐺 sSet 〈𝐼, 𝐸〉) = ((𝐺 ↾ (V ∖ dom {〈𝐼, 𝐸〉})) ∪ {〈𝐼, 𝐸〉})) |
4 | 2, 3 | sylan2 592 |
. . 3
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → (𝐺 sSet 〈𝐼, 𝐸〉) = ((𝐺 ↾ (V ∖ dom {〈𝐼, 𝐸〉})) ∪ {〈𝐼, 𝐸〉})) |
5 | 4 | dmeqd 5811 |
. 2
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → dom (𝐺 sSet 〈𝐼, 𝐸〉) = dom ((𝐺 ↾ (V ∖ dom {〈𝐼, 𝐸〉})) ∪ {〈𝐼, 𝐸〉})) |
6 | | dmun 5816 |
. . 3
⊢ dom
((𝐺 ↾ (V ∖ dom
{〈𝐼, 𝐸〉})) ∪ {〈𝐼, 𝐸〉}) = (dom (𝐺 ↾ (V ∖ dom {〈𝐼, 𝐸〉})) ∪ dom {〈𝐼, 𝐸〉}) |
7 | | dmres 5910 |
. . . . 5
⊢ dom
(𝐺 ↾ (V ∖ dom
{〈𝐼, 𝐸〉})) = ((V ∖ dom {〈𝐼, 𝐸〉}) ∩ dom 𝐺) |
8 | | dmsnopg 6113 |
. . . . . . . . 9
⊢ (𝐸 ∈ 𝑊 → dom {〈𝐼, 𝐸〉} = {𝐼}) |
9 | 8 | adantl 481 |
. . . . . . . 8
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → dom {〈𝐼, 𝐸〉} = {𝐼}) |
10 | 9 | difeq2d 4061 |
. . . . . . 7
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → (V ∖ dom {〈𝐼, 𝐸〉}) = (V ∖ {𝐼})) |
11 | 10 | ineq1d 4150 |
. . . . . 6
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → ((V ∖ dom {〈𝐼, 𝐸〉}) ∩ dom 𝐺) = ((V ∖ {𝐼}) ∩ dom 𝐺)) |
12 | | incom 4139 |
. . . . . . 7
⊢ ((V
∖ {𝐼}) ∩ dom
𝐺) = (dom 𝐺 ∩ (V ∖ {𝐼})) |
13 | | invdif 4207 |
. . . . . . 7
⊢ (dom
𝐺 ∩ (V ∖ {𝐼})) = (dom 𝐺 ∖ {𝐼}) |
14 | 12, 13 | eqtri 2767 |
. . . . . 6
⊢ ((V
∖ {𝐼}) ∩ dom
𝐺) = (dom 𝐺 ∖ {𝐼}) |
15 | 11, 14 | eqtrdi 2795 |
. . . . 5
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → ((V ∖ dom {〈𝐼, 𝐸〉}) ∩ dom 𝐺) = (dom 𝐺 ∖ {𝐼})) |
16 | 7, 15 | eqtrid 2791 |
. . . 4
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → dom (𝐺 ↾ (V ∖ dom {〈𝐼, 𝐸〉})) = (dom 𝐺 ∖ {𝐼})) |
17 | 16, 9 | uneq12d 4102 |
. . 3
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → (dom (𝐺 ↾ (V ∖ dom {〈𝐼, 𝐸〉})) ∪ dom {〈𝐼, 𝐸〉}) = ((dom 𝐺 ∖ {𝐼}) ∪ {𝐼})) |
18 | 6, 17 | eqtrid 2791 |
. 2
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → dom ((𝐺 ↾ (V ∖ dom {〈𝐼, 𝐸〉})) ∪ {〈𝐼, 𝐸〉}) = ((dom 𝐺 ∖ {𝐼}) ∪ {𝐼})) |
19 | | undif1 4414 |
. . 3
⊢ ((dom
𝐺 ∖ {𝐼}) ∪ {𝐼}) = (dom 𝐺 ∪ {𝐼}) |
20 | 19 | a1i 11 |
. 2
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → ((dom 𝐺 ∖ {𝐼}) ∪ {𝐼}) = (dom 𝐺 ∪ {𝐼})) |
21 | 5, 18, 20 | 3eqtrd 2783 |
1
⊢ ((𝐺 ∈ 𝑉 ∧ 𝐸 ∈ 𝑊) → dom (𝐺 sSet 〈𝐼, 𝐸〉) = (dom 𝐺 ∪ {𝐼})) |