Step | Hyp | Ref
| Expression |
1 | | fvex 6901 |
. . . . . 6
β’ (πβπ) β V |
2 | | fvex 6901 |
. . . . . 6
β’ (πΊβπ§) β V |
3 | 1, 2 | ifex 4577 |
. . . . 5
β’ if(π§ = π, (πβπ), (πΊβπ§)) β V |
4 | | lincext.f |
. . . . 5
β’ πΉ = (π§ β π β¦ if(π§ = π, (πβπ), (πΊβπ§))) |
5 | 3, 4 | dmmpti 6691 |
. . . 4
β’ dom πΉ = π |
6 | 5 | difeq1i 4117 |
. . 3
β’ (dom
πΉ β (π β {π})) = (π β (π β {π})) |
7 | | snssi 4810 |
. . . . . . 7
β’ (π β π β {π} β π) |
8 | 7 | 3ad2ant2 1134 |
. . . . . 6
β’ ((π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β {π} β π) |
9 | 8 | 3ad2ant2 1134 |
. . . . 5
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β {π} β π) |
10 | | dfss4 4257 |
. . . . 5
β’ ({π} β π β (π β (π β {π})) = {π}) |
11 | 9, 10 | sylib 217 |
. . . 4
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β (π β (π β {π})) = {π}) |
12 | | snfi 9040 |
. . . 4
β’ {π} β Fin |
13 | 11, 12 | eqeltrdi 2841 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β (π β (π β {π})) β Fin) |
14 | 6, 13 | eqeltrid 2837 |
. 2
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β (dom πΉ β (π β {π})) β Fin) |
15 | | lincext.b |
. . . 4
β’ π΅ = (Baseβπ) |
16 | | lincext.r |
. . . 4
β’ π
= (Scalarβπ) |
17 | | lincext.e |
. . . 4
β’ πΈ = (Baseβπ
) |
18 | | lincext.0 |
. . . 4
β’ 0 =
(0gβπ
) |
19 | | lincext.z |
. . . 4
β’ π = (0gβπ) |
20 | | lincext.n |
. . . 4
β’ π = (invgβπ
) |
21 | 15, 16, 17, 18, 19, 20, 4 | lincext1 47088 |
. . 3
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π})))) β πΉ β (πΈ βm π)) |
22 | 21 | 3adant3 1132 |
. 2
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β πΉ β (πΈ βm π)) |
23 | | elmapfun 8856 |
. . 3
β’ (πΉ β (πΈ βm π) β Fun πΉ) |
24 | 22, 23 | syl 17 |
. 2
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β Fun πΉ) |
25 | | elmapi 8839 |
. . . . 5
β’ (πΊ β (πΈ βm (π β {π})) β πΊ:(π β {π})βΆπΈ) |
26 | 4 | fdmdifeqresdif 46970 |
. . . . 5
β’ (πΊ:(π β {π})βΆπΈ β πΊ = (πΉ βΎ (π β {π}))) |
27 | 25, 26 | syl 17 |
. . . 4
β’ (πΊ β (πΈ βm (π β {π})) β πΊ = (πΉ βΎ (π β {π}))) |
28 | 27 | 3ad2ant3 1135 |
. . 3
β’ ((π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β πΊ = (πΉ βΎ (π β {π}))) |
29 | 28 | 3ad2ant2 1134 |
. 2
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β πΊ = (πΉ βΎ (π β {π}))) |
30 | | simp3 1138 |
. 2
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β πΊ finSupp 0 ) |
31 | 18 | fvexi 6902 |
. . 3
β’ 0 β
V |
32 | 31 | a1i 11 |
. 2
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β 0 β
V) |
33 | 14, 22, 24, 29, 30, 32 | resfsupp 9387 |
1
β’ (((π β LMod β§ π β π« π΅) β§ (π β πΈ β§ π β π β§ πΊ β (πΈ βm (π β {π}))) β§ πΊ finSupp 0 ) β πΉ finSupp 0 ) |