Step | Hyp | Ref
| Expression |
1 | | nn0subm 20993 |
. . . 4
β’
β0 β
(SubMndββfld) |
2 | | eqid 2733 |
. . . . 5
β’
(βfld βΎs β0) =
(βfld βΎs
β0) |
3 | 2 | submbas 18692 |
. . . 4
β’
(β0 β (SubMndββfld) β
β0 = (Baseβ(βfld βΎs
β0))) |
4 | 1, 3 | ax-mp 5 |
. . 3
β’
β0 = (Baseβ(βfld
βΎs β0)) |
5 | | cnfld0 20962 |
. . . . 5
β’ 0 =
(0gββfld) |
6 | 2, 5 | subm0 18693 |
. . . 4
β’
(β0 β (SubMndββfld) β
0 = (0gβ(βfld βΎs
β0))) |
7 | 1, 6 | ax-mp 5 |
. . 3
β’ 0 =
(0gβ(βfld βΎs
β0)) |
8 | | cnring 20960 |
. . . . . 6
β’
βfld β Ring |
9 | | ringcmn 20093 |
. . . . . 6
β’
(βfld β Ring β βfld β
CMnd) |
10 | 8, 9 | ax-mp 5 |
. . . . 5
β’
βfld β CMnd |
11 | 2 | submcmn 19701 |
. . . . 5
β’
((βfld β CMnd β§ β0 β
(SubMndββfld)) β (βfld
βΎs β0) β CMnd) |
12 | 10, 1, 11 | mp2an 691 |
. . . 4
β’
(βfld βΎs β0) β
CMnd |
13 | 12 | a1i 11 |
. . 3
β’ ((π β§ π β π») β (βfld
βΎs β0) β CMnd) |
14 | | mhphflem.g |
. . . 4
β’ (π β πΊ β Mnd) |
15 | 14 | adantr 482 |
. . 3
β’ ((π β§ π β π») β πΊ β Mnd) |
16 | | mhphflem.i |
. . . 4
β’ (π β πΌ β π) |
17 | 16 | adantr 482 |
. . 3
β’ ((π β§ π β π») β πΌ β π) |
18 | | mhphflem.k |
. . . 4
β’ π΅ = (BaseβπΊ) |
19 | | cnfldadd 20942 |
. . . . . 6
β’ + =
(+gββfld) |
20 | 2, 19 | ressplusg 17232 |
. . . . 5
β’
(β0 β (SubMndββfld) β
+ = (+gβ(βfld βΎs
β0))) |
21 | 1, 20 | ax-mp 5 |
. . . 4
β’ + =
(+gβ(βfld βΎs
β0)) |
22 | | eqid 2733 |
. . . 4
β’
(+gβπΊ) = (+gβπΊ) |
23 | | eqid 2733 |
. . . 4
β’
(0gβπΊ) = (0gβπΊ) |
24 | 2 | submmnd 18691 |
. . . . 5
β’
(β0 β (SubMndββfld) β
(βfld βΎs β0) β
Mnd) |
25 | 1, 24 | mp1i 13 |
. . . 4
β’ ((π β§ π β π») β (βfld
βΎs β0) β Mnd) |
26 | | mhphflem.e |
. . . . . 6
β’ Β· =
(.gβπΊ) |
27 | 14 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β π») β§ π β β0) β πΊ β Mnd) |
28 | | simpr 486 |
. . . . . 6
β’ (((π β§ π β π») β§ π β β0) β π β
β0) |
29 | | mhphflem.l |
. . . . . . 7
β’ (π β πΏ β π΅) |
30 | 29 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β π») β§ π β β0) β πΏ β π΅) |
31 | 18, 26, 27, 28, 30 | mulgnn0cld 18970 |
. . . . 5
β’ (((π β§ π β π») β§ π β β0) β (π Β· πΏ) β π΅) |
32 | 31 | fmpttd 7112 |
. . . 4
β’ ((π β§ π β π») β (π β β0 β¦ (π Β· πΏ)):β0βΆπ΅) |
33 | 14 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β πΊ β
Mnd) |
34 | | simprl 770 |
. . . . . 6
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β π₯ β
β0) |
35 | | simprr 772 |
. . . . . 6
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β π¦ β
β0) |
36 | 29 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β πΏ β π΅) |
37 | 18, 26, 22 | mulgnn0dir 18979 |
. . . . . 6
β’ ((πΊ β Mnd β§ (π₯ β β0
β§ π¦ β
β0 β§ πΏ
β π΅)) β ((π₯ + π¦) Β· πΏ) = ((π₯ Β· πΏ)(+gβπΊ)(π¦ Β· πΏ))) |
38 | 33, 34, 35, 36, 37 | syl13anc 1373 |
. . . . 5
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β ((π₯ + π¦) Β· πΏ) = ((π₯ Β· πΏ)(+gβπΊ)(π¦ Β· πΏ))) |
39 | | eqid 2733 |
. . . . . 6
β’ (π β β0
β¦ (π Β· πΏ)) = (π β β0 β¦ (π Β· πΏ)) |
40 | | oveq1 7413 |
. . . . . 6
β’ (π = (π₯ + π¦) β (π Β· πΏ) = ((π₯ + π¦) Β· πΏ)) |
41 | | nn0addcl 12504 |
. . . . . . 7
β’ ((π₯ β β0
β§ π¦ β
β0) β (π₯ + π¦) β
β0) |
42 | 41 | adantl 483 |
. . . . . 6
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β (π₯ + π¦) β
β0) |
43 | | ovexd 7441 |
. . . . . 6
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β ((π₯ + π¦) Β· πΏ) β V) |
44 | 39, 40, 42, 43 | fvmptd3 7019 |
. . . . 5
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β ((π β
β0 β¦ (π Β· πΏ))β(π₯ + π¦)) = ((π₯ + π¦) Β· πΏ)) |
45 | | oveq1 7413 |
. . . . . . 7
β’ (π = π₯ β (π Β· πΏ) = (π₯ Β· πΏ)) |
46 | | ovexd 7441 |
. . . . . . 7
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β (π₯ Β· πΏ) β V) |
47 | 39, 45, 34, 46 | fvmptd3 7019 |
. . . . . 6
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β ((π β
β0 β¦ (π Β· πΏ))βπ₯) = (π₯ Β· πΏ)) |
48 | | oveq1 7413 |
. . . . . . 7
β’ (π = π¦ β (π Β· πΏ) = (π¦ Β· πΏ)) |
49 | | ovexd 7441 |
. . . . . . 7
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β (π¦ Β· πΏ) β V) |
50 | 39, 48, 35, 49 | fvmptd3 7019 |
. . . . . 6
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β ((π β
β0 β¦ (π Β· πΏ))βπ¦) = (π¦ Β· πΏ)) |
51 | 47, 50 | oveq12d 7424 |
. . . . 5
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β (((π β
β0 β¦ (π Β· πΏ))βπ₯)(+gβπΊ)((π β β0 β¦ (π Β· πΏ))βπ¦)) = ((π₯ Β· πΏ)(+gβπΊ)(π¦ Β· πΏ))) |
52 | 38, 44, 51 | 3eqtr4d 2783 |
. . . 4
β’ (((π β§ π β π») β§ (π₯ β β0 β§ π¦ β β0))
β ((π β
β0 β¦ (π Β· πΏ))β(π₯ + π¦)) = (((π β β0 β¦ (π Β· πΏ))βπ₯)(+gβπΊ)((π β β0 β¦ (π Β· πΏ))βπ¦))) |
53 | | oveq1 7413 |
. . . . . 6
β’ (π = 0 β (π Β· πΏ) = (0 Β· πΏ)) |
54 | | 0nn0 12484 |
. . . . . . 7
β’ 0 β
β0 |
55 | 54 | a1i 11 |
. . . . . 6
β’ ((π β§ π β π») β 0 β
β0) |
56 | | ovexd 7441 |
. . . . . 6
β’ ((π β§ π β π») β (0 Β· πΏ) β V) |
57 | 39, 53, 55, 56 | fvmptd3 7019 |
. . . . 5
β’ ((π β§ π β π») β ((π β β0 β¦ (π Β· πΏ))β0) = (0 Β· πΏ)) |
58 | 29 | adantr 482 |
. . . . . 6
β’ ((π β§ π β π») β πΏ β π΅) |
59 | 18, 23, 26 | mulg0 18952 |
. . . . . 6
β’ (πΏ β π΅ β (0 Β· πΏ) = (0gβπΊ)) |
60 | 58, 59 | syl 17 |
. . . . 5
β’ ((π β§ π β π») β (0 Β· πΏ) = (0gβπΊ)) |
61 | 57, 60 | eqtrd 2773 |
. . . 4
β’ ((π β§ π β π») β ((π β β0 β¦ (π Β· πΏ))β0) = (0gβπΊ)) |
62 | 4, 18, 21, 22, 7, 23, 25, 15, 32, 52, 61 | ismhmd 18671 |
. . 3
β’ ((π β§ π β π») β (π β β0 β¦ (π Β· πΏ)) β ((βfld
βΎs β0) MndHom πΊ)) |
63 | | elrabi 3677 |
. . . . . . 7
β’ (π β {π β π· β£ ((βfld
βΎs β0) Ξ£g π) = π} β π β π·) |
64 | | mhphflem.h |
. . . . . . 7
β’ π» = {π β π· β£ ((βfld
βΎs β0) Ξ£g π) = π} |
65 | 63, 64 | eleq2s 2852 |
. . . . . 6
β’ (π β π» β π β π·) |
66 | 65 | adantl 483 |
. . . . 5
β’ ((π β§ π β π») β π β π·) |
67 | | mhphflem.d |
. . . . . 6
β’ π· = {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} |
68 | 67 | psrbagf 21463 |
. . . . 5
β’ (π β π· β π:πΌβΆβ0) |
69 | 66, 68 | syl 17 |
. . . 4
β’ ((π β§ π β π») β π:πΌβΆβ0) |
70 | 69 | ffvelcdmda 7084 |
. . 3
β’ (((π β§ π β π») β§ π£ β πΌ) β (πβπ£) β
β0) |
71 | 69 | feqmptd 6958 |
. . . 4
β’ ((π β§ π β π») β π = (π£ β πΌ β¦ (πβπ£))) |
72 | 67 | psrbagfsupp 21465 |
. . . . 5
β’ (π β π· β π finSupp 0) |
73 | 66, 72 | syl 17 |
. . . 4
β’ ((π β§ π β π») β π finSupp 0) |
74 | 71, 73 | eqbrtrrd 5172 |
. . 3
β’ ((π β§ π β π») β (π£ β πΌ β¦ (πβπ£)) finSupp 0) |
75 | | oveq1 7413 |
. . 3
β’ (π = (πβπ£) β (π Β· πΏ) = ((πβπ£) Β· πΏ)) |
76 | | oveq1 7413 |
. . 3
β’ (π = ((βfld
βΎs β0) Ξ£g (π£ β πΌ β¦ (πβπ£))) β (π Β· πΏ) = (((βfld
βΎs β0) Ξ£g (π£ β πΌ β¦ (πβπ£))) Β· πΏ)) |
77 | 4, 7, 13, 15, 17, 62, 70, 74, 75, 76 | gsummhm2 19802 |
. 2
β’ ((π β§ π β π») β (πΊ Ξ£g (π£ β πΌ β¦ ((πβπ£) Β· πΏ))) = (((βfld
βΎs β0) Ξ£g (π£ β πΌ β¦ (πβπ£))) Β· πΏ)) |
78 | 71 | oveq2d 7422 |
. . . 4
β’ ((π β§ π β π») β ((βfld
βΎs β0) Ξ£g π) = ((βfld
βΎs β0) Ξ£g (π£ β πΌ β¦ (πβπ£)))) |
79 | | oveq2 7414 |
. . . . . . . 8
β’ (π = π β ((βfld
βΎs β0) Ξ£g π) = ((βfld
βΎs β0) Ξ£g π)) |
80 | 79 | eqeq1d 2735 |
. . . . . . 7
β’ (π = π β (((βfld
βΎs β0) Ξ£g π) = π β ((βfld
βΎs β0) Ξ£g π) = π)) |
81 | 80, 64 | elrab2 3686 |
. . . . . 6
β’ (π β π» β (π β π· β§ ((βfld
βΎs β0) Ξ£g π) = π)) |
82 | 81 | simprbi 498 |
. . . . 5
β’ (π β π» β ((βfld
βΎs β0) Ξ£g π) = π) |
83 | 82 | adantl 483 |
. . . 4
β’ ((π β§ π β π») β ((βfld
βΎs β0) Ξ£g π) = π) |
84 | 78, 83 | eqtr3d 2775 |
. . 3
β’ ((π β§ π β π») β ((βfld
βΎs β0) Ξ£g (π£ β πΌ β¦ (πβπ£))) = π) |
85 | 84 | oveq1d 7421 |
. 2
β’ ((π β§ π β π») β (((βfld
βΎs β0) Ξ£g (π£ β πΌ β¦ (πβπ£))) Β· πΏ) = (π Β· πΏ)) |
86 | 77, 85 | eqtrd 2773 |
1
β’ ((π β§ π β π») β (πΊ Ξ£g (π£ β πΌ β¦ ((πβπ£) Β· πΏ))) = (π Β· πΏ)) |