Metamath Proof Explorer


Theorem evl1gprodd

Description: Polynomial evaluation builder for a finite group product of polynomials. (Contributed by metakunt, 29-Apr-2025)

Ref Expression
Hypotheses evl1gprodd.1 O = eval 1 R
evl1gprodd.2 P = Poly 1 R
evl1gprodd.3 Q = mulGrp P
evl1gprodd.4 B = Base R
evl1gprodd.5 U = Base P
evl1gprodd.6 S = mulGrp R
evl1gprodd.7 φ R CRing
evl1gprodd.8 φ Y B
evl1gprodd.9 φ x N M U
evl1gprodd.10 φ N Fin
Assertion evl1gprodd φ O Q x N M Y = S x N O M Y

Proof

Step Hyp Ref Expression
1 evl1gprodd.1 O = eval 1 R
2 evl1gprodd.2 P = Poly 1 R
3 evl1gprodd.3 Q = mulGrp P
4 evl1gprodd.4 B = Base R
5 evl1gprodd.5 U = Base P
6 evl1gprodd.6 S = mulGrp R
7 evl1gprodd.7 φ R CRing
8 evl1gprodd.8 φ Y B
9 evl1gprodd.9 φ x N M U
10 evl1gprodd.10 φ N Fin
11 mpteq1 a = x a M = x M
12 11 oveq2d a = Q x a M = Q x M
13 12 fveq2d a = O Q x a M = O Q x M
14 13 fveq1d a = O Q x a M Y = O Q x M Y
15 mpteq1 a = x a O M Y = x O M Y
16 15 oveq2d a = S x a O M Y = S x O M Y
17 14 16 eqeq12d a = O Q x a M Y = S x a O M Y O Q x M Y = S x O M Y
18 mpteq1 a = b x a M = x b M
19 18 oveq2d a = b Q x a M = Q x b M
20 19 fveq2d a = b O Q x a M = O Q x b M
21 20 fveq1d a = b O Q x a M Y = O Q x b M Y
22 mpteq1 a = b x a O M Y = x b O M Y
23 22 oveq2d a = b S x a O M Y = S x b O M Y
24 21 23 eqeq12d a = b O Q x a M Y = S x a O M Y O Q x b M Y = S x b O M Y
25 mpteq1 a = b c x a M = x b c M
26 25 oveq2d a = b c Q x a M = Q x b c M
27 26 fveq2d a = b c O Q x a M = O Q x b c M
28 27 fveq1d a = b c O Q x a M Y = O Q x b c M Y
29 mpteq1 a = b c x a O M Y = x b c O M Y
30 29 oveq2d a = b c S x a O M Y = S x b c O M Y
31 28 30 eqeq12d a = b c O Q x a M Y = S x a O M Y O Q x b c M Y = S x b c O M Y
32 mpteq1 a = N x a M = x N M
33 32 oveq2d a = N Q x a M = Q x N M
34 33 fveq2d a = N O Q x a M = O Q x N M
35 34 fveq1d a = N O Q x a M Y = O Q x N M Y
36 mpteq1 a = N x a O M Y = x N O M Y
37 36 oveq2d a = N S x a O M Y = S x N O M Y
38 35 37 eqeq12d a = N O Q x a M Y = S x a O M Y O Q x N M Y = S x N O M Y
39 mpt0 x M =
40 39 a1i φ x M =
41 40 oveq2d φ Q x M = Q
42 41 fveq2d φ O Q x M = O Q
43 42 fveq1d φ O Q x M Y = O Q Y
44 mpt0 x O M Y =
45 44 a1i φ x O M Y =
46 45 oveq2d φ S x O M Y = S
47 eqid 0 S = 0 S
48 47 gsum0 S = 0 S
49 48 a1i φ S = 0 S
50 eqid 1 R = 1 R
51 6 50 ringidval 1 R = 0 S
52 51 eqcomi 0 S = 1 R
53 52 a1i φ 0 S = 1 R
54 eqid algSc P = algSc P
55 7 crngringd φ R Ring
56 6 ringmgp R Ring S Mnd
57 55 56 syl φ S Mnd
58 eqid Base S = Base S
59 58 47 mndidcl S Mnd 0 S Base S
60 57 59 syl φ 0 S Base S
61 eqid Base R = Base R
62 6 61 mgpbas Base R = Base S
63 4 62 eqtri B = Base S
64 60 63 eleqtrrdi φ 0 S B
65 51 a1i φ 1 R = 0 S
66 65 eleq1d φ 1 R B 0 S B
67 64 66 mpbird φ 1 R B
68 1 2 4 54 5 7 67 8 evl1scad φ algSc P 1 R U O algSc P 1 R Y = 1 R
69 68 simprd φ O algSc P 1 R Y = 1 R
70 69 eqcomd φ 1 R = O algSc P 1 R Y
71 eqid 1 P = 1 P
72 2 54 50 71 ply1scl1 R Ring algSc P 1 R = 1 P
73 55 72 syl φ algSc P 1 R = 1 P
74 3 71 ringidval 1 P = 0 Q
75 74 a1i φ 1 P = 0 Q
76 73 75 eqtrd φ algSc P 1 R = 0 Q
77 76 fveq2d φ O algSc P 1 R = O 0 Q
78 77 fveq1d φ O algSc P 1 R Y = O 0 Q Y
79 70 78 eqtrd φ 1 R = O 0 Q Y
80 53 79 eqtrd φ 0 S = O 0 Q Y
81 eqid 0 Q = 0 Q
82 81 gsum0 Q = 0 Q
83 82 a1i φ Q = 0 Q
84 83 eqcomd φ 0 Q = Q
85 84 fveq2d φ O 0 Q = O Q
86 85 fveq1d φ O 0 Q Y = O Q Y
87 49 80 86 3eqtrd φ S = O Q Y
88 46 87 eqtr2d φ O Q Y = S x O M Y
89 43 88 eqtrd φ O Q x M Y = S x O M Y
90 nfcv _ y M
91 nfcsb1v _ x y / x M
92 csbeq1a x = y M = y / x M
93 90 91 92 cbvmpt x b c M = y b c y / x M
94 93 a1i φ b N c N b O Q x b M Y = S x b O M Y x b c M = y b c y / x M
95 94 oveq2d φ b N c N b O Q x b M Y = S x b O M Y Q x b c M = Q y b c y / x M
96 95 fveq2d φ b N c N b O Q x b M Y = S x b O M Y O Q x b c M = O Q y b c y / x M
97 96 fveq1d φ b N c N b O Q x b M Y = S x b O M Y O Q x b c M Y = O Q y b c y / x M Y
98 eqid Base Q = Base Q
99 eqid P = P
100 3 99 mgpplusg P = + Q
101 2 ply1crng R CRing P CRing
102 7 101 syl φ P CRing
103 3 crngmgp P CRing Q CMnd
104 102 103 syl φ Q CMnd
105 104 adantr φ b N c N b Q CMnd
106 105 adantr φ b N c N b O Q x b M Y = S x b O M Y Q CMnd
107 10 ad2antrr φ b N c N b O Q x b M Y = S x b O M Y N Fin
108 simplrl φ b N c N b O Q x b M Y = S x b O M Y b N
109 107 108 ssfid φ b N c N b O Q x b M Y = S x b O M Y b Fin
110 9 ad3antrrr φ b N c N b O Q x b M Y = S x b O M Y y b x N M U
111 108 sselda φ b N c N b O Q x b M Y = S x b O M Y y b y N
112 rspcsbela y N x N M U y / x M U
113 112 expcom x N M U y N y / x M U
114 113 imp x N M U y N y / x M U
115 110 111 114 syl2anc φ b N c N b O Q x b M Y = S x b O M Y y b y / x M U
116 3 5 mgpbas U = Base Q
117 116 eqcomi Base Q = U
118 117 a1i φ Base Q = U
119 118 adantr φ b N c N b Base Q = U
120 119 adantr φ b N c N b O Q x b M Y = S x b O M Y Base Q = U
121 120 adantr φ b N c N b O Q x b M Y = S x b O M Y y b Base Q = U
122 121 eleq2d φ b N c N b O Q x b M Y = S x b O M Y y b y / x M Base Q y / x M U
123 115 122 mpbird φ b N c N b O Q x b M Y = S x b O M Y y b y / x M Base Q
124 simplrr φ b N c N b O Q x b M Y = S x b O M Y c N b
125 124 eldifbd φ b N c N b O Q x b M Y = S x b O M Y ¬ c b
126 124 eldifad φ b N c N b O Q x b M Y = S x b O M Y c N
127 9 ad2antrr φ b N c N b O Q x b M Y = S x b O M Y x N M U
128 rspcsbela c N x N M U c / x M U
129 126 127 128 syl2anc φ b N c N b O Q x b M Y = S x b O M Y c / x M U
130 120 eleq2d φ b N c N b O Q x b M Y = S x b O M Y c / x M Base Q c / x M U
131 129 130 mpbird φ b N c N b O Q x b M Y = S x b O M Y c / x M Base Q
132 csbeq1 y = c y / x M = c / x M
133 98 100 106 109 123 124 125 131 132 gsumunsn φ b N c N b O Q x b M Y = S x b O M Y Q y b c y / x M = Q y b y / x M P c / x M
134 133 fveq2d φ b N c N b O Q x b M Y = S x b O M Y O Q y b c y / x M = O Q y b y / x M P c / x M
135 134 fveq1d φ b N c N b O Q x b M Y = S x b O M Y O Q y b c y / x M Y = O Q y b y / x M P c / x M Y
136 7 ad2antrr φ b N c N b O Q x b M Y = S x b O M Y R CRing
137 8 ad2antrr φ b N c N b O Q x b M Y = S x b O M Y Y B
138 115 ralrimiva φ b N c N b O Q x b M Y = S x b O M Y y b y / x M U
139 116 106 109 138 gsummptcl φ b N c N b O Q x b M Y = S x b O M Y Q y b y / x M U
140 92 equcoms y = x M = y / x M
141 140 eqcomd y = x y / x M = M
142 91 90 141 cbvmpt y b y / x M = x b M
143 142 a1i φ b N c N b O Q x b M Y = S x b O M Y y b y / x M = x b M
144 143 oveq2d φ b N c N b O Q x b M Y = S x b O M Y Q y b y / x M = Q x b M
145 144 fveq2d φ b N c N b O Q x b M Y = S x b O M Y O Q y b y / x M = O Q x b M
146 145 fveq1d φ b N c N b O Q x b M Y = S x b O M Y O Q y b y / x M Y = O Q x b M Y
147 139 146 jca φ b N c N b O Q x b M Y = S x b O M Y Q y b y / x M U O Q y b y / x M Y = O Q x b M Y
148 eqidd φ b N c N b O Q x b M Y = S x b O M Y O c / x M Y = O c / x M Y
149 129 148 jca φ b N c N b O Q x b M Y = S x b O M Y c / x M U O c / x M Y = O c / x M Y
150 eqid R = R
151 1 2 4 5 136 137 147 149 99 150 evl1muld φ b N c N b O Q x b M Y = S x b O M Y Q y b y / x M P c / x M U O Q y b y / x M P c / x M Y = O Q x b M Y R O c / x M Y
152 151 simprd φ b N c N b O Q x b M Y = S x b O M Y O Q y b y / x M P c / x M Y = O Q x b M Y R O c / x M Y
153 135 152 eqtrd φ b N c N b O Q x b M Y = S x b O M Y O Q y b c y / x M Y = O Q x b M Y R O c / x M Y
154 97 153 eqtrd φ b N c N b O Q x b M Y = S x b O M Y O Q x b c M Y = O Q x b M Y R O c / x M Y
155 6 150 mgpplusg R = + S
156 eqid mulGrp R = mulGrp R
157 156 crngmgp R CRing mulGrp R CMnd
158 7 157 syl φ mulGrp R CMnd
159 6 158 eqeltrid φ S CMnd
160 159 adantr φ b N c N b S CMnd
161 160 adantr φ b N c N b O Q x b M Y = S x b O M Y S CMnd
162 csbfv12 y / x O M Y = y / x O M y / x Y
163 csbfv2g y V y / x O M = O y / x M
164 163 elv y / x O M = O y / x M
165 vex y V
166 nfcv _ x Y
167 165 166 csbgfi y / x Y = Y
168 164 167 fveq12i y / x O M y / x Y = O y / x M Y
169 162 168 eqtri y / x O M Y = O y / x M Y
170 62 eqcomi Base S = Base R
171 7 ad3antrrr φ b N c N b O Q x b M Y = S x b O M Y y b R CRing
172 8 ad3antrrr φ b N c N b O Q x b M Y = S x b O M Y y b Y B
173 63 eqcomi Base S = B
174 173 a1i φ b N c N b O Q x b M Y = S x b O M Y y b Base S = B
175 174 eleq2d φ b N c N b O Q x b M Y = S x b O M Y y b Y Base S Y B
176 172 175 mpbird φ b N c N b O Q x b M Y = S x b O M Y y b Y Base S
177 1 2 170 5 171 176 115 fveval1fvcl φ b N c N b O Q x b M Y = S x b O M Y y b O y / x M Y Base S
178 169 177 eqeltrid φ b N c N b O Q x b M Y = S x b O M Y y b y / x O M Y Base S
179 1 2 4 5 136 137 129 fveval1fvcl φ b N c N b O Q x b M Y = S x b O M Y O c / x M Y B
180 179 63 eleqtrdi φ b N c N b O Q x b M Y = S x b O M Y O c / x M Y Base S
181 nfcv _ x c
182 nfcv _ x O
183 181 nfcsb1 _ x c / x M
184 182 183 nffv _ x O c / x M
185 184 166 nffv _ x O c / x M Y
186 csbeq1a x = c M = c / x M
187 186 fveq2d x = c O M = O c / x M
188 187 fveq1d x = c O M Y = O c / x M Y
189 181 185 188 csbhypf y = c y / x O M Y = O c / x M Y
190 58 155 161 109 178 124 125 180 189 gsumunsn φ b N c N b O Q x b M Y = S x b O M Y S y b c y / x O M Y = S y b y / x O M Y R O c / x M Y
191 simpr φ b N c N b O Q x b M Y = S x b O M Y O Q x b M Y = S x b O M Y
192 nfcv _ y O M Y
193 nfcsb1v _ x y / x O M Y
194 csbeq1a x = y O M Y = y / x O M Y
195 192 193 194 cbvmpt x b O M Y = y b y / x O M Y
196 195 a1i φ b N c N b O Q x b M Y = S x b O M Y x b O M Y = y b y / x O M Y
197 196 oveq2d φ b N c N b O Q x b M Y = S x b O M Y S x b O M Y = S y b y / x O M Y
198 191 197 eqtr2d φ b N c N b O Q x b M Y = S x b O M Y S y b y / x O M Y = O Q x b M Y
199 198 oveq1d φ b N c N b O Q x b M Y = S x b O M Y S y b y / x O M Y R O c / x M Y = O Q x b M Y R O c / x M Y
200 190 199 eqtrd φ b N c N b O Q x b M Y = S x b O M Y S y b c y / x O M Y = O Q x b M Y R O c / x M Y
201 200 eqcomd φ b N c N b O Q x b M Y = S x b O M Y O Q x b M Y R O c / x M Y = S y b c y / x O M Y
202 154 201 eqtrd φ b N c N b O Q x b M Y = S x b O M Y O Q x b c M Y = S y b c y / x O M Y
203 192 193 194 cbvmpt x b c O M Y = y b c y / x O M Y
204 203 eqcomi y b c y / x O M Y = x b c O M Y
205 204 a1i φ b N c N b O Q x b M Y = S x b O M Y y b c y / x O M Y = x b c O M Y
206 205 oveq2d φ b N c N b O Q x b M Y = S x b O M Y S y b c y / x O M Y = S x b c O M Y
207 202 206 eqtrd φ b N c N b O Q x b M Y = S x b O M Y O Q x b c M Y = S x b c O M Y
208 207 ex φ b N c N b O Q x b M Y = S x b O M Y O Q x b c M Y = S x b c O M Y
209 17 24 31 38 89 208 10 findcard2d φ O Q x N M Y = S x N O M Y