Proof of Theorem fressupp
| Step | Hyp | Ref
| Expression |
| 1 | | funrel 6540 |
. . . . 5
⊢ (Fun
𝐹 → Rel 𝐹) |
| 2 | 1 | 3ad2ant1 1147 |
. . . 4
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → Rel 𝐹) |
| 3 | | suppssdm 8159 |
. . . . 5
⊢ (𝐹 supp 𝑍) ⊆ dom 𝐹 |
| 4 | | undif 4438 |
. . . . . . 7
⊢ ((𝐹 supp 𝑍) ⊆ dom 𝐹 ↔ ((𝐹 supp 𝑍) ∪ (dom 𝐹 ∖ (𝐹 supp 𝑍))) = dom 𝐹) |
| 5 | 4 | biimpi 218 |
. . . . . 6
⊢ ((𝐹 supp 𝑍) ⊆ dom 𝐹 → ((𝐹 supp 𝑍) ∪ (dom 𝐹 ∖ (𝐹 supp 𝑍))) = dom 𝐹) |
| 6 | 5 | eqcomd 2770 |
. . . . 5
⊢ ((𝐹 supp 𝑍) ⊆ dom 𝐹 → dom 𝐹 = ((𝐹 supp 𝑍) ∪ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) |
| 7 | 3, 6 | mp1i 13 |
. . . 4
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → dom 𝐹 = ((𝐹 supp 𝑍) ∪ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) |
| 8 | | reldmun 6022 |
. . . 4
⊢ ((Rel
𝐹 ∧ dom 𝐹 = ((𝐹 supp 𝑍) ∪ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) → 𝐹 = ((𝐹 ↾ (𝐹 supp 𝑍)) ∪ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍))))) |
| 9 | 2, 7, 8 | syl2anc 593 |
. . 3
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → 𝐹 = ((𝐹 ↾ (𝐹 supp 𝑍)) ∪ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍))))) |
| 10 | 9 | difeq1d 4081 |
. 2
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (𝐹 ∖ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (((𝐹 ↾ (𝐹 supp 𝑍)) ∪ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) ∖ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍))))) |
| 11 | | resss 5989 |
. . . . 5
⊢ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍))) ⊆ 𝐹 |
| 12 | | sseqin2 4177 |
. . . . 5
⊢ ((𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍))) ⊆ 𝐹 ↔ (𝐹 ∩ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) |
| 13 | 11, 12 | mpbi 232 |
. . . 4
⊢ (𝐹 ∩ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍))) |
| 14 | | suppiniseg 32890 |
. . . . . 6
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (dom 𝐹 ∖ (𝐹 supp 𝑍)) = (◡𝐹 “ {𝑍})) |
| 15 | 14 | reseq2d 5967 |
. . . . 5
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍))) = (𝐹 ↾ (◡𝐹 “ {𝑍}))) |
| 16 | | cnvrescnv 6184 |
. . . . . . 7
⊢ ◡(◡𝐹 ↾ {𝑍}) = (𝐹 ∩ (V × {𝑍})) |
| 17 | | funcnvres2 6603 |
. . . . . . 7
⊢ (Fun
𝐹 → ◡(◡𝐹 ↾ {𝑍}) = (𝐹 ↾ (◡𝐹 “ {𝑍}))) |
| 18 | 16, 17 | eqtr3id 2813 |
. . . . . 6
⊢ (Fun
𝐹 → (𝐹 ∩ (V × {𝑍})) = (𝐹 ↾ (◡𝐹 “ {𝑍}))) |
| 19 | 18 | 3ad2ant1 1147 |
. . . . 5
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (𝐹 ∩ (V × {𝑍})) = (𝐹 ↾ (◡𝐹 “ {𝑍}))) |
| 20 | 15, 19 | eqtr4d 2802 |
. . . 4
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍))) = (𝐹 ∩ (V × {𝑍}))) |
| 21 | 13, 20 | eqtrid 2811 |
. . 3
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (𝐹 ∩ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (𝐹 ∩ (V × {𝑍}))) |
| 22 | | indifbi 32721 |
. . 3
⊢ ((𝐹 ∩ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (𝐹 ∩ (V × {𝑍})) ↔ (𝐹 ∖ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (𝐹 ∖ (V × {𝑍}))) |
| 23 | 21, 22 | sylib 220 |
. 2
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (𝐹 ∖ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (𝐹 ∖ (V × {𝑍}))) |
| 24 | | disjdif 4428 |
. . . . 5
⊢ ((𝐹 supp 𝑍) ∩ (dom 𝐹 ∖ (𝐹 supp 𝑍))) = ∅ |
| 25 | 24 | reseq2i 5964 |
. . . 4
⊢ (𝐹 ↾ ((𝐹 supp 𝑍) ∩ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (𝐹 ↾ ∅) |
| 26 | | resindi 5983 |
. . . 4
⊢ (𝐹 ↾ ((𝐹 supp 𝑍) ∩ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = ((𝐹 ↾ (𝐹 supp 𝑍)) ∩ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) |
| 27 | | res0 5971 |
. . . 4
⊢ (𝐹 ↾ ∅) =
∅ |
| 28 | 25, 26, 27 | 3eqtr3i 2795 |
. . 3
⊢ ((𝐹 ↾ (𝐹 supp 𝑍)) ∩ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = ∅ |
| 29 | | undif5 4440 |
. . 3
⊢ (((𝐹 ↾ (𝐹 supp 𝑍)) ∩ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = ∅ → (((𝐹 ↾ (𝐹 supp 𝑍)) ∪ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) ∖ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (𝐹 ↾ (𝐹 supp 𝑍))) |
| 30 | 28, 29 | mp1i 13 |
. 2
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (((𝐹 ↾ (𝐹 supp 𝑍)) ∪ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) ∖ (𝐹 ↾ (dom 𝐹 ∖ (𝐹 supp 𝑍)))) = (𝐹 ↾ (𝐹 supp 𝑍))) |
| 31 | 10, 23, 30 | 3eqtr3rd 2808 |
1
⊢ ((Fun
𝐹 ∧ 𝐹 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (𝐹 ↾ (𝐹 supp 𝑍)) = (𝐹 ∖ (V × {𝑍}))) |