Step | Hyp | Ref
| Expression |
1 | | psdvsca.s |
. . . 4
β’ π = (πΌ mPwSer π
) |
2 | | eqid 2724 |
. . . 4
β’
(Baseβπ
) =
(Baseβπ
) |
3 | | eqid 2724 |
. . . 4
β’ {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} = {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} |
4 | | psdvsca.b |
. . . 4
β’ π΅ = (Baseβπ) |
5 | | psdvsca.i |
. . . . 5
β’ (π β πΌ β π) |
6 | | psdvsca.r |
. . . . . . 7
β’ (π β π
β CRing) |
7 | 6 | crngringd 20143 |
. . . . . 6
β’ (π β π
β Ring) |
8 | | ringmgm 20141 |
. . . . . 6
β’ (π
β Ring β π
β Mgm) |
9 | 7, 8 | syl 17 |
. . . . 5
β’ (π β π
β Mgm) |
10 | | psdvsca.x |
. . . . 5
β’ (π β π β πΌ) |
11 | | psdvsca.m |
. . . . . 6
β’ Β· = (
Β·π βπ) |
12 | | psdvsca.k |
. . . . . 6
β’ πΎ = (Baseβπ
) |
13 | | psdvsca.c |
. . . . . 6
β’ (π β πΆ β πΎ) |
14 | | psdvsca.f |
. . . . . 6
β’ (π β πΉ β π΅) |
15 | 1, 11, 12, 4, 7, 13, 14 | psrvscacl 21824 |
. . . . 5
β’ (π β (πΆ Β· πΉ) β π΅) |
16 | 1, 4, 5, 9, 10, 15 | psdcl 22014 |
. . . 4
β’ (π β (((πΌ mPSDer π
)βπ)β(πΆ Β· πΉ)) β π΅) |
17 | 1, 2, 3, 4, 16 | psrelbas 21809 |
. . 3
β’ (π β (((πΌ mPSDer π
)βπ)β(πΆ Β· πΉ)):{β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}βΆ(Baseβπ
)) |
18 | 17 | ffnd 6709 |
. 2
β’ (π β (((πΌ mPSDer π
)βπ)β(πΆ Β· πΉ)) Fn {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
19 | 1, 4, 5, 9, 10, 14 | psdcl 22014 |
. . . . 5
β’ (π β (((πΌ mPSDer π
)βπ)βπΉ) β π΅) |
20 | 1, 11, 12, 4, 7, 13, 19 | psrvscacl 21824 |
. . . 4
β’ (π β (πΆ Β· (((πΌ mPSDer π
)βπ)βπΉ)) β π΅) |
21 | 1, 2, 3, 4, 20 | psrelbas 21809 |
. . 3
β’ (π β (πΆ Β· (((πΌ mPSDer π
)βπ)βπΉ)):{β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}βΆ(Baseβπ
)) |
22 | 21 | ffnd 6709 |
. 2
β’ (π β (πΆ Β· (((πΌ mPSDer π
)βπ)βπΉ)) Fn {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
23 | 7 | adantr 480 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π
β Ring) |
24 | 3 | psrbagf 21782 |
. . . . . . . 8
β’ (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β π:πΌβΆβ0) |
25 | 24 | adantl 481 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π:πΌβΆβ0) |
26 | 10 | adantr 480 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π β πΌ) |
27 | 25, 26 | ffvelcdmd 7078 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πβπ) β
β0) |
28 | | peano2nn0 12510 |
. . . . . . 7
β’ ((πβπ) β β0 β ((πβπ) + 1) β
β0) |
29 | 28 | nn0zd 12582 |
. . . . . 6
β’ ((πβπ) β β0 β ((πβπ) + 1) β β€) |
30 | 27, 29 | syl 17 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β ((πβπ) + 1) β β€) |
31 | 13 | adantr 480 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β πΆ β πΎ) |
32 | 1, 12, 3, 4, 14 | psrelbas 21809 |
. . . . . . 7
β’ (π β πΉ:{β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}βΆπΎ) |
33 | 32 | adantr 480 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β πΉ:{β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}βΆπΎ) |
34 | | simpr 484 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
35 | 3 | psrbagsn 21936 |
. . . . . . . . 9
β’ (πΌ β π β (π¦ β πΌ β¦ if(π¦ = π, 1, 0)) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
36 | 5, 35 | syl 17 |
. . . . . . . 8
β’ (π β (π¦ β πΌ β¦ if(π¦ = π, 1, 0)) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
37 | 36 | adantr 480 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (π¦ β πΌ β¦ if(π¦ = π, 1, 0)) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
38 | 3 | psrbagaddcl 21792 |
. . . . . . 7
β’ ((π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β§ (π¦ β πΌ β¦ if(π¦ = π, 1, 0)) β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
39 | 34, 37, 38 | syl2anc 583 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
40 | 33, 39 | ffvelcdmd 7078 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))) β πΎ) |
41 | | eqid 2724 |
. . . . . 6
β’
(.gβπ
) = (.gβπ
) |
42 | | eqid 2724 |
. . . . . 6
β’
(.rβπ
) = (.rβπ
) |
43 | 12, 41, 42 | mulgass3 20247 |
. . . . 5
β’ ((π
β Ring β§ (((πβπ) + 1) β β€ β§ πΆ β πΎ β§ (πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))) β πΎ)) β (πΆ(.rβπ
)(((πβπ) + 1)(.gβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))))) = (((πβπ) + 1)(.gβπ
)(πΆ(.rβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))))))) |
44 | 23, 30, 31, 40, 43 | syl13anc 1369 |
. . . 4
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πΆ(.rβπ
)(((πβπ) + 1)(.gβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))))) = (((πβπ) + 1)(.gβπ
)(πΆ(.rβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))))))) |
45 | 5 | adantr 480 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β πΌ β π) |
46 | 6 | adantr 480 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π
β CRing) |
47 | 14 | adantr 480 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β πΉ β π΅) |
48 | 1, 4, 3, 45, 46, 26, 47, 34 | psdcoef 22013 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β
((((πΌ mPSDer π
)βπ)βπΉ)βπ) = (((πβπ) + 1)(.gβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))))) |
49 | 48 | oveq2d 7418 |
. . . 4
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πΆ(.rβπ
)((((πΌ mPSDer π
)βπ)βπΉ)βπ)) = (πΆ(.rβπ
)(((πβπ) + 1)(.gβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))))))) |
50 | 1, 11, 12, 4, 42, 3, 31, 47, 39 | psrvscaval 21823 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β ((πΆ Β· πΉ)β(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))) = (πΆ(.rβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))))) |
51 | 50 | oveq2d 7418 |
. . . 4
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (((πβπ) + 1)(.gβπ
)((πΆ Β· πΉ)β(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))))) = (((πβπ) + 1)(.gβπ
)(πΆ(.rβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))))))) |
52 | 44, 49, 51 | 3eqtr4rd 2775 |
. . 3
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (((πβπ) + 1)(.gβπ
)((πΆ Β· πΉ)β(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))))) = (πΆ(.rβπ
)((((πΌ mPSDer π
)βπ)βπΉ)βπ))) |
53 | 15 | adantr 480 |
. . . 4
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πΆ Β· πΉ) β π΅) |
54 | 1, 4, 3, 45, 46, 26, 53, 34 | psdcoef 22013 |
. . 3
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β
((((πΌ mPSDer π
)βπ)β(πΆ Β· πΉ))βπ) = (((πβπ) + 1)(.gβπ
)((πΆ Β· πΉ)β(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))))) |
55 | 19 | adantr 480 |
. . . 4
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (((πΌ mPSDer π
)βπ)βπΉ) β π΅) |
56 | 1, 11, 12, 4, 42, 3, 31, 55, 34 | psrvscaval 21823 |
. . 3
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β ((πΆ Β· (((πΌ mPSDer π
)βπ)βπΉ))βπ) = (πΆ(.rβπ
)((((πΌ mPSDer π
)βπ)βπΉ)βπ))) |
57 | 52, 54, 56 | 3eqtr4d 2774 |
. 2
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β
((((πΌ mPSDer π
)βπ)β(πΆ Β· πΉ))βπ) = ((πΆ Β· (((πΌ mPSDer π
)βπ)βπΉ))βπ)) |
58 | 18, 22, 57 | eqfnfvd 7026 |
1
β’ (π β (((πΌ mPSDer π
)βπ)β(πΆ Β· πΉ)) = (πΆ Β· (((πΌ mPSDer π
)βπ)βπΉ))) |