Step | Hyp | Ref
| Expression |
1 | | eqid 2732 |
. . . . . . 7
β’ (π₯ β π
β¦ (((Baseβπ) βm πΌ) Γ {π₯})) = (π₯ β π
β¦ (((Baseβπ) βm πΌ) Γ {π₯})) |
2 | | sneq 4637 |
. . . . . . . 8
β’ (π₯ = (πΉβπ) β {π₯} = {(πΉβπ)}) |
3 | 2 | xpeq2d 5705 |
. . . . . . 7
β’ (π₯ = (πΉβπ) β (((Baseβπ) βm πΌ) Γ {π₯}) = (((Baseβπ) βm πΌ) Γ {(πΉβπ)})) |
4 | | evlsevl.w |
. . . . . . . . . 10
β’ π = (πΌ mPoly π) |
5 | | eqid 2732 |
. . . . . . . . . 10
β’
(Baseβπ) =
(Baseβπ) |
6 | | evlsevl.b |
. . . . . . . . . 10
β’ π΅ = (Baseβπ) |
7 | | eqid 2732 |
. . . . . . . . . 10
β’ {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} = {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} |
8 | | evlsevl.f |
. . . . . . . . . 10
β’ (π β πΉ β π΅) |
9 | 4, 5, 6, 7, 8 | mplelf 21548 |
. . . . . . . . 9
β’ (π β πΉ:{β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}βΆ(Baseβπ)) |
10 | 9 | ffvelcdmda 7083 |
. . . . . . . 8
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πΉβπ) β (Baseβπ)) |
11 | | evlsevl.r |
. . . . . . . . . 10
β’ (π β π
β (SubRingβπ)) |
12 | | evlsevl.u |
. . . . . . . . . . 11
β’ π = (π βΎs π
) |
13 | 12 | subrgbas 20364 |
. . . . . . . . . 10
β’ (π
β (SubRingβπ) β π
= (Baseβπ)) |
14 | 11, 13 | syl 17 |
. . . . . . . . 9
β’ (π β π
= (Baseβπ)) |
15 | 14 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π
= (Baseβπ)) |
16 | 10, 15 | eleqtrrd 2836 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πΉβπ) β π
) |
17 | | ovexd 7440 |
. . . . . . . 8
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β
((Baseβπ)
βm πΌ)
β V) |
18 | | snex 5430 |
. . . . . . . . 9
β’ {(πΉβπ)} β V |
19 | 18 | a1i 11 |
. . . . . . . 8
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β {(πΉβπ)} β V) |
20 | 17, 19 | xpexd 7734 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β
(((Baseβπ)
βm πΌ)
Γ {(πΉβπ)}) β V) |
21 | 1, 3, 16, 20 | fvmptd3 7018 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β ((π₯ β π
β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ)) = (((Baseβπ) βm πΌ) Γ {(πΉβπ)})) |
22 | | eqid 2732 |
. . . . . . 7
β’ (π₯ β (Baseβπ) β¦ (((Baseβπ) βm πΌ) Γ {π₯})) = (π₯ β (Baseβπ) β¦ (((Baseβπ) βm πΌ) Γ {π₯})) |
23 | | eqid 2732 |
. . . . . . . . . . 11
β’
(Baseβπ) =
(Baseβπ) |
24 | 23 | subrgss 20356 |
. . . . . . . . . 10
β’ (π
β (SubRingβπ) β π
β (Baseβπ)) |
25 | 11, 24 | syl 17 |
. . . . . . . . 9
β’ (π β π
β (Baseβπ)) |
26 | 25 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π
β (Baseβπ)) |
27 | 26, 16 | sseldd 3982 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πΉβπ) β (Baseβπ)) |
28 | 22, 3, 27, 20 | fvmptd3 7018 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β ((π₯ β (Baseβπ) β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ)) = (((Baseβπ) βm πΌ) Γ {(πΉβπ)})) |
29 | 21, 28 | eqtr4d 2775 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β ((π₯ β π
β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ)) = ((π₯ β (Baseβπ) β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))) |
30 | 29 | oveq1d 7420 |
. . . 4
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (((π₯ β π
β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))(.rβ(π βs
((Baseβπ)
βm πΌ)))((mulGrpβ(π βs
((Baseβπ)
βm πΌ)))
Ξ£g (π βf
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ))))(π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯)))))) = (((π₯ β (Baseβπ) β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))(.rβ(π βs
((Baseβπ)
βm πΌ)))((mulGrpβ(π βs
((Baseβπ)
βm πΌ)))
Ξ£g (π βf
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ))))(π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯))))))) |
31 | 30 | mpteq2dva 5247 |
. . 3
β’ (π β (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((π₯ β π
β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))(.rβ(π βs
((Baseβπ)
βm πΌ)))((mulGrpβ(π βs
((Baseβπ)
βm πΌ)))
Ξ£g (π βf
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ))))(π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯))))))) = (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((π₯ β (Baseβπ) β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))(.rβ(π βs
((Baseβπ)
βm πΌ)))((mulGrpβ(π βs
((Baseβπ)
βm πΌ)))
Ξ£g (π βf
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ))))(π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯)))))))) |
32 | 31 | oveq2d 7421 |
. 2
β’ (π β ((π βs
((Baseβπ)
βm πΌ))
Ξ£g (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((π₯ β π
β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))(.rβ(π βs
((Baseβπ)
βm πΌ)))((mulGrpβ(π βs
((Baseβπ)
βm πΌ)))
Ξ£g (π βf
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ))))(π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯)))))))) = ((π βs
((Baseβπ)
βm πΌ))
Ξ£g (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((π₯ β (Baseβπ) β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))(.rβ(π βs
((Baseβπ)
βm πΌ)))((mulGrpβ(π βs
((Baseβπ)
βm πΌ)))
Ξ£g (π βf
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ))))(π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯))))))))) |
33 | | evlsevl.q |
. . 3
β’ π = ((πΌ evalSub π)βπ
) |
34 | | eqid 2732 |
. . 3
β’ (π βs
((Baseβπ)
βm πΌ)) =
(π
βs ((Baseβπ) βm πΌ)) |
35 | | eqid 2732 |
. . 3
β’
(mulGrpβ(π
βs ((Baseβπ) βm πΌ))) = (mulGrpβ(π βs
((Baseβπ)
βm πΌ))) |
36 | | eqid 2732 |
. . 3
β’
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ)))) =
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ)))) |
37 | | eqid 2732 |
. . 3
β’
(.rβ(π βs
((Baseβπ)
βm πΌ))) =
(.rβ(π
βs ((Baseβπ) βm πΌ))) |
38 | | eqid 2732 |
. . 3
β’ (π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯))) = (π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯))) |
39 | | evlsevl.i |
. . 3
β’ (π β πΌ β π) |
40 | | evlsevl.s |
. . 3
β’ (π β π β CRing) |
41 | 33, 4, 6, 7, 23, 12, 34, 35, 36, 37, 1, 38, 39, 40, 11, 8 | evlsvval 41129 |
. 2
β’ (π β (πβπΉ) = ((π βs
((Baseβπ)
βm πΌ))
Ξ£g (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((π₯ β π
β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))(.rβ(π βs
((Baseβπ)
βm πΌ)))((mulGrpβ(π βs
((Baseβπ)
βm πΌ)))
Ξ£g (π βf
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ))))(π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯))))))))) |
42 | | evlsevl.o |
. . . . 5
β’ π = (πΌ eval π) |
43 | 42, 23 | evlval 21649 |
. . . 4
β’ π = ((πΌ evalSub π)β(Baseβπ)) |
44 | 43 | fveq1i 6889 |
. . 3
β’ (πβπΉ) = (((πΌ evalSub π)β(Baseβπ))βπΉ) |
45 | | eqid 2732 |
. . . 4
β’ ((πΌ evalSub π)β(Baseβπ)) = ((πΌ evalSub π)β(Baseβπ)) |
46 | | eqid 2732 |
. . . 4
β’ (πΌ mPoly (π βΎs (Baseβπ))) = (πΌ mPoly (π βΎs (Baseβπ))) |
47 | | eqid 2732 |
. . . 4
β’
(Baseβ(πΌ mPoly
(π βΎs
(Baseβπ)))) =
(Baseβ(πΌ mPoly (π βΎs
(Baseβπ)))) |
48 | | eqid 2732 |
. . . 4
β’ (π βΎs
(Baseβπ)) = (π βΎs
(Baseβπ)) |
49 | 40 | crngringd 20062 |
. . . . 5
β’ (π β π β Ring) |
50 | 23 | subrgid 20357 |
. . . . 5
β’ (π β Ring β
(Baseβπ) β
(SubRingβπ)) |
51 | 49, 50 | syl 17 |
. . . 4
β’ (π β (Baseβπ) β (SubRingβπ)) |
52 | | eqid 2732 |
. . . . . 6
β’ (πΌ mPoly π) = (πΌ mPoly π) |
53 | | eqid 2732 |
. . . . . 6
β’
(Baseβ(πΌ mPoly
π)) = (Baseβ(πΌ mPoly π)) |
54 | 4, 12, 6, 52, 53, 39, 11, 8 | mplsubrgcl 41116 |
. . . . 5
β’ (π β πΉ β (Baseβ(πΌ mPoly π))) |
55 | 23 | ressid 17185 |
. . . . . . . 8
β’ (π β CRing β (π βΎs
(Baseβπ)) = π) |
56 | 40, 55 | syl 17 |
. . . . . . 7
β’ (π β (π βΎs (Baseβπ)) = π) |
57 | 56 | oveq2d 7421 |
. . . . . 6
β’ (π β (πΌ mPoly (π βΎs (Baseβπ))) = (πΌ mPoly π)) |
58 | 57 | fveq2d 6892 |
. . . . 5
β’ (π β (Baseβ(πΌ mPoly (π βΎs (Baseβπ)))) = (Baseβ(πΌ mPoly π))) |
59 | 54, 58 | eleqtrrd 2836 |
. . . 4
β’ (π β πΉ β (Baseβ(πΌ mPoly (π βΎs (Baseβπ))))) |
60 | 45, 46, 47, 7, 23, 48, 34, 35, 36, 37, 22, 38, 39, 40, 51, 59 | evlsvval 41129 |
. . 3
β’ (π β (((πΌ evalSub π)β(Baseβπ))βπΉ) = ((π βs
((Baseβπ)
βm πΌ))
Ξ£g (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((π₯ β (Baseβπ) β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))(.rβ(π βs
((Baseβπ)
βm πΌ)))((mulGrpβ(π βs
((Baseβπ)
βm πΌ)))
Ξ£g (π βf
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ))))(π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯))))))))) |
61 | 44, 60 | eqtrid 2784 |
. 2
β’ (π β (πβπΉ) = ((π βs
((Baseβπ)
βm πΌ))
Ξ£g (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((π₯ β (Baseβπ) β¦ (((Baseβπ) βm πΌ) Γ {π₯}))β(πΉβπ))(.rβ(π βs
((Baseβπ)
βm πΌ)))((mulGrpβ(π βs
((Baseβπ)
βm πΌ)))
Ξ£g (π βf
(.gβ(mulGrpβ(π βs
((Baseβπ)
βm πΌ))))(π₯ β πΌ β¦ (π β ((Baseβπ) βm πΌ) β¦ (πβπ₯))))))))) |
62 | 32, 41, 61 | 3eqtr4d 2782 |
1
β’ (π β (πβπΉ) = (πβπΉ)) |