Proof of Theorem setsfun
| Step | Hyp | Ref
| Expression |
|---|
| 1 | | funres 5089 |
. . . 4
⊢ (Fun
𝐺 → Fun (𝐺 ↾ (V ∖ dom
{⟨𝐼, 𝐸⟩}))) |
| 2 | 1 | ad2antlr 474 |
. . 3
⊢ (((𝐺 ∈ 𝑉 ∧ Fun 𝐺) ∧ (𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊)) → Fun (𝐺 ↾ (V ∖ dom {⟨𝐼, 𝐸⟩}))) |
| 3 | | funsng 5094 |
. . . 4
⊢ ((𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊) → Fun {⟨𝐼, 𝐸⟩}) |
| 4 | 3 | adantl 272 |
. . 3
⊢ (((𝐺 ∈ 𝑉 ∧ Fun 𝐺) ∧ (𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊)) → Fun {⟨𝐼, 𝐸⟩}) |
| 5 | | dmres 4766 |
. . . . . 6
⊢ dom
(𝐺 ↾ (V ∖ dom
{⟨𝐼, 𝐸⟩})) = ((V ∖ dom {⟨𝐼, 𝐸⟩}) ∩ dom 𝐺) |
| 6 | 5 | ineq1i 3212 |
. . . . 5
⊢ (dom
(𝐺 ↾ (V ∖ dom
{⟨𝐼, 𝐸⟩})) ∩ dom {⟨𝐼, 𝐸⟩}) = (((V ∖ dom {⟨𝐼, 𝐸⟩}) ∩ dom 𝐺) ∩ dom {⟨𝐼, 𝐸⟩}) |
| 7 | | in32 3227 |
. . . . . 6
⊢ (((V
∖ dom {⟨𝐼, 𝐸⟩}) ∩ dom 𝐺) ∩ dom {⟨𝐼, 𝐸⟩}) = (((V ∖ dom {⟨𝐼, 𝐸⟩}) ∩ dom {⟨𝐼, 𝐸⟩}) ∩ dom 𝐺) |
| 8 | | incom 3207 |
. . . . . . . 8
⊢ ((V
∖ dom {⟨𝐼, 𝐸⟩}) ∩ dom {⟨𝐼, 𝐸⟩}) = (dom {⟨𝐼, 𝐸⟩} ∩ (V ∖ dom {⟨𝐼, 𝐸⟩})) |
| 9 | | disjdif 3374 |
. . . . . . . 8
⊢ (dom
{⟨𝐼, 𝐸⟩} ∩ (V ∖ dom {⟨𝐼, 𝐸⟩})) = ∅ |
| 10 | 8, 9 | eqtri 2115 |
. . . . . . 7
⊢ ((V
∖ dom {⟨𝐼, 𝐸⟩}) ∩ dom {⟨𝐼, 𝐸⟩}) = ∅ |
| 11 | 10 | ineq1i 3212 |
. . . . . 6
⊢ (((V
∖ dom {⟨𝐼, 𝐸⟩}) ∩ dom {⟨𝐼, 𝐸⟩}) ∩ dom 𝐺) = (∅ ∩ dom 𝐺) |
| 12 | | 0in 3337 |
. . . . . 6
⊢ (∅
∩ dom 𝐺) =
∅ |
| 13 | 7, 11, 12 | 3eqtri 2119 |
. . . . 5
⊢ (((V
∖ dom {⟨𝐼, 𝐸⟩}) ∩ dom 𝐺) ∩ dom {⟨𝐼, 𝐸⟩}) = ∅ |
| 14 | 6, 13 | eqtri 2115 |
. . . 4
⊢ (dom
(𝐺 ↾ (V ∖ dom
{⟨𝐼, 𝐸⟩})) ∩ dom {⟨𝐼, 𝐸⟩}) = ∅ |
| 15 | 14 | a1i 9 |
. . 3
⊢ (((𝐺 ∈ 𝑉 ∧ Fun 𝐺) ∧ (𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊)) → (dom (𝐺 ↾ (V ∖ dom {⟨𝐼, 𝐸⟩})) ∩ dom {⟨𝐼, 𝐸⟩}) = ∅) |
| 16 | | funun 5092 |
. . 3
⊢ (((Fun
(𝐺 ↾ (V ∖ dom
{⟨𝐼, 𝐸⟩})) ∧ Fun {⟨𝐼, 𝐸⟩}) ∧ (dom (𝐺 ↾ (V ∖ dom {⟨𝐼, 𝐸⟩})) ∩ dom {⟨𝐼, 𝐸⟩}) = ∅) → Fun ((𝐺 ↾ (V ∖ dom
{⟨𝐼, 𝐸⟩})) ∪ {⟨𝐼, 𝐸⟩})) |
| 17 | 2, 4, 15, 16 | syl21anc 1180 |
. 2
⊢ (((𝐺 ∈ 𝑉 ∧ Fun 𝐺) ∧ (𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊)) → Fun ((𝐺 ↾ (V ∖ dom {⟨𝐼, 𝐸⟩})) ∪ {⟨𝐼, 𝐸⟩})) |
| 18 | | simpll 497 |
. . . 4
⊢ (((𝐺 ∈ 𝑉 ∧ Fun 𝐺) ∧ (𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊)) → 𝐺 ∈ 𝑉) |
| 19 | | opexg 4079 |
. . . . 5
⊢ ((𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊) → ⟨𝐼, 𝐸⟩ ∈ V) |
| 20 | 19 | adantl 272 |
. . . 4
⊢ (((𝐺 ∈ 𝑉 ∧ Fun 𝐺) ∧ (𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊)) → ⟨𝐼, 𝐸⟩ ∈ V) |
| 21 | | setsvalg 11673 |
. . . 4
⊢ ((𝐺 ∈ 𝑉 ∧ ⟨𝐼, 𝐸⟩ ∈ V) → (𝐺 sSet ⟨𝐼, 𝐸⟩) = ((𝐺 ↾ (V ∖ dom {⟨𝐼, 𝐸⟩})) ∪ {⟨𝐼, 𝐸⟩})) |
| 22 | 18, 20, 21 | syl2anc 404 |
. . 3
⊢ (((𝐺 ∈ 𝑉 ∧ Fun 𝐺) ∧ (𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊)) → (𝐺 sSet ⟨𝐼, 𝐸⟩) = ((𝐺 ↾ (V ∖ dom {⟨𝐼, 𝐸⟩})) ∪ {⟨𝐼, 𝐸⟩})) |
| 23 | 22 | funeqd 5071 |
. 2
⊢ (((𝐺 ∈ 𝑉 ∧ Fun 𝐺) ∧ (𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊)) → (Fun (𝐺 sSet ⟨𝐼, 𝐸⟩) ↔ Fun ((𝐺 ↾ (V ∖ dom {⟨𝐼, 𝐸⟩})) ∪ {⟨𝐼, 𝐸⟩}))) |
| 24 | 17, 23 | mpbird 166 |
1
⊢ (((𝐺 ∈ 𝑉 ∧ Fun 𝐺) ∧ (𝐼 ∈ 𝑈 ∧ 𝐸 ∈ 𝑊)) → Fun (𝐺 sSet ⟨𝐼, 𝐸⟩)) |
