Metamath Proof Explorer


Theorem selvply1rhmlemb

Description: Lemma for selvply1rhm . (Contributed by Thierry Arnoux, 4-May-2026)

Ref Expression
Hypotheses selvply1rhmlema.1 B = Base P
selvply1rhmlema.2 P = X mPoly R
selvply1rhmlema.3 · ˙ = P
selvply1rhmlema.4 × ˙ = Q
selvply1rhmlema.5 Q = Poly 1 R
selvply1rhmlema.6 M = f B n 0 1 𝑜 f X n
selvply1rhmlema.7 φ X V
selvply1rhmlema.8 φ R Ring
selvply1rhmlema.9 φ F B
selvply1rhmlemb.10 φ G B
Assertion selvply1rhmlemb φ M F · ˙ G = M F × ˙ M G

Proof

Step Hyp Ref Expression
1 selvply1rhmlema.1 B = Base P
2 selvply1rhmlema.2 P = X mPoly R
3 selvply1rhmlema.3 · ˙ = P
4 selvply1rhmlema.4 × ˙ = Q
5 selvply1rhmlema.5 Q = Poly 1 R
6 selvply1rhmlema.6 M = f B n 0 1 𝑜 f X n
7 selvply1rhmlema.7 φ X V
8 selvply1rhmlema.8 φ R Ring
9 selvply1rhmlema.9 φ F B
10 selvply1rhmlemb.10 φ G B
11 fveq1 f = F · ˙ G f X n = F · ˙ G X n
12 11 mpteq2dv f = F · ˙ G n 0 1 𝑜 f X n = n 0 1 𝑜 F · ˙ G X n
13 eqid R = R
14 eqid g 0 X | finSupp 0 g = g 0 X | finSupp 0 g
15 14 psrbasfsupp g 0 X | finSupp 0 g = g 0 X | g -1 Fin
16 2 1 13 3 15 9 10 mplmul φ F · ˙ G = m g 0 X | finSupp 0 g R j l g 0 X | finSupp 0 g | l f m F j R G m f j
17 16 adantr φ n 0 1 𝑜 F · ˙ G = m g 0 X | finSupp 0 g R j l g 0 X | finSupp 0 g | l f m F j R G m f j
18 breq2 m = X n l f m l f X n
19 18 rabbidv m = X n l g 0 X | finSupp 0 g | l f m = l g 0 X | finSupp 0 g | l f X n
20 fvoveq1 m = X n G m f j = G X n f j
21 20 oveq2d m = X n F j R G m f j = F j R G X n f j
22 19 21 mpteq12dv m = X n j l g 0 X | finSupp 0 g | l f m F j R G m f j = j l g 0 X | finSupp 0 g | l f X n F j R G X n f j
23 22 oveq2d m = X n R j l g 0 X | finSupp 0 g | l f m F j R G m f j = R j l g 0 X | finSupp 0 g | l f X n F j R G X n f j
24 nfcv _ j F X i R G X n f X i
25 eqid Base R = Base R
26 eqid 0 R = 0 R
27 fveq2 j = X i F j = F X i
28 oveq2 j = X i X n f j = X n f X i
29 28 fveq2d j = X i G X n f j = G X n f X i
30 27 29 oveq12d j = X i F j R G X n f j = F X i R G X n f X i
31 8 ringcmnd φ R CMnd
32 31 adantr φ n 0 1 𝑜 R CMnd
33 eqid l g 0 X | finSupp 0 g | l f X n = l g 0 X | finSupp 0 g | l f X n
34 ovexd φ 0 X V
35 14 34 rabexd φ g 0 X | finSupp 0 g V
36 33 35 rabexd φ l g 0 X | finSupp 0 g | l f X n V
37 36 adantr φ n 0 1 𝑜 l g 0 X | finSupp 0 g | l f X n V
38 fvexd φ n 0 1 𝑜 0 R V
39 35 adantr φ n 0 1 𝑜 g 0 X | finSupp 0 g V
40 ssrab2 l g 0 X | finSupp 0 g | l f X n g 0 X | finSupp 0 g
41 40 a1i φ n 0 1 𝑜 l g 0 X | finSupp 0 g | l f X n g 0 X | finSupp 0 g
42 2 25 1 15 10 mplelf φ G : g 0 X | finSupp 0 g Base R
43 42 ad2antrr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n G : g 0 X | finSupp 0 g Base R
44 breq1 g = X n finSupp 0 g finSupp 0 X n
45 nn0ex 0 V
46 45 a1i φ n 0 1 𝑜 0 V
47 snex X V
48 47 a1i φ n 0 1 𝑜 X V
49 7 adantr φ n 0 1 𝑜 X V
50 1oex 1 𝑜 V
51 50 a1i φ n 0 1 𝑜 1 𝑜 V
52 simpr φ n 0 1 𝑜 n 0 1 𝑜
53 51 46 52 elmaprd φ n 0 1 𝑜 n : 1 𝑜 0
54 0lt1o 1 𝑜
55 54 a1i φ n 0 1 𝑜 1 𝑜
56 53 55 ffvelcdmd φ n 0 1 𝑜 n 0
57 49 56 fsnd φ n 0 1 𝑜 X n : X 0
58 46 48 57 elmapdd φ n 0 1 𝑜 X n 0 X
59 snfi X Fin
60 59 a1i φ n 0 1 𝑜 X Fin
61 c0ex 0 V
62 61 a1i φ n 0 1 𝑜 0 V
63 57 60 62 fdmfifsupp φ n 0 1 𝑜 finSupp 0 X n
64 44 58 63 elrabd φ n 0 1 𝑜 X n g 0 X | finSupp 0 g
65 64 adantr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n X n g 0 X | finSupp 0 g
66 47 a1i φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n X V
67 45 a1i φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n 0 V
68 ssrab2 g 0 X | finSupp 0 g 0 X
69 40 68 sstri l g 0 X | finSupp 0 g | l f X n 0 X
70 69 a1i φ n 0 1 𝑜 l g 0 X | finSupp 0 g | l f X n 0 X
71 70 sselda φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j 0 X
72 66 67 71 elmaprd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j : X 0
73 breq1 l = j l f X n j f X n
74 simpr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j l g 0 X | finSupp 0 g | l f X n
75 73 74 elrabrd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j f X n
76 15 psrbagcon X n g 0 X | finSupp 0 g j : X 0 j f X n X n f j g 0 X | finSupp 0 g X n f j f X n
77 65 72 75 76 syl3anc φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n X n f j g 0 X | finSupp 0 g X n f j f X n
78 77 simpld φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n X n f j g 0 X | finSupp 0 g
79 43 78 ffvelcdmd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n G X n f j Base R
80 2 25 1 15 9 mplelf φ F : g 0 X | finSupp 0 g Base R
81 80 adantr φ n 0 1 𝑜 F : g 0 X | finSupp 0 g Base R
82 2 1 26 9 mplelsfi φ finSupp 0 R F
83 82 adantr φ n 0 1 𝑜 finSupp 0 R F
84 8 ad2antrr φ n 0 1 𝑜 x Base R R Ring
85 simpr φ n 0 1 𝑜 x Base R x Base R
86 25 13 26 84 85 ringlzd φ n 0 1 𝑜 x Base R 0 R R x = 0 R
87 38 38 39 41 79 81 83 86 fisuppov1 φ n 0 1 𝑜 finSupp 0 R j l g 0 X | finSupp 0 g | l f X n F j R G X n f j
88 ssidd φ n 0 1 𝑜 Base R Base R
89 8 ad2antrr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n R Ring
90 80 ad2antrr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n F : g 0 X | finSupp 0 g Base R
91 41 sselda φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j g 0 X | finSupp 0 g
92 90 91 ffvelcdmd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n F j Base R
93 25 13 89 92 79 ringcld φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n F j R G X n f j Base R
94 breq1 l = X i l f X n X i f X n
95 breq1 g = X i finSupp 0 g finSupp 0 X i
96 45 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n 0 V
97 47 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X V
98 49 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X V
99 50 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n 1 𝑜 V
100 ssrab2 k 0 1 𝑜 | k f n 0 1 𝑜
101 100 a1i φ n 0 1 𝑜 k 0 1 𝑜 | k f n 0 1 𝑜
102 101 sselda φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i 0 1 𝑜
103 99 96 102 elmaprd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i : 1 𝑜 0
104 54 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n 1 𝑜
105 103 104 ffvelcdmd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i 0
106 98 105 fsnd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X i : X 0
107 96 97 106 elmapdd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X i 0 X
108 59 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X Fin
109 61 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n 0 V
110 106 108 109 fdmfifsupp φ n 0 1 𝑜 i k 0 1 𝑜 | k f n finSupp 0 X i
111 95 107 110 elrabd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X i g 0 X | finSupp 0 g
112 simplr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n n 0 1 𝑜
113 breq1 k = i k f n i f n
114 simpr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i k 0 1 𝑜 | k f n
115 113 114 elrabrd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i f n
116 elmapfn i 0 1 𝑜 i Fn 1 𝑜
117 116 adantl n 0 1 𝑜 i 0 1 𝑜 i Fn 1 𝑜
118 elmapfn n 0 1 𝑜 n Fn 1 𝑜
119 118 adantr n 0 1 𝑜 i 0 1 𝑜 n Fn 1 𝑜
120 50 a1i n 0 1 𝑜 i 0 1 𝑜 1 𝑜 V
121 inidm 1 𝑜 1 𝑜 = 1 𝑜
122 eqidd n 0 1 𝑜 i 0 1 𝑜 1 𝑜 i = i
123 eqidd n 0 1 𝑜 i 0 1 𝑜 1 𝑜 n = n
124 117 119 120 120 121 122 123 ofrval n 0 1 𝑜 i 0 1 𝑜 i f n 1 𝑜 i n
125 112 102 115 104 124 syl211anc φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i n
126 125 ralrimivw φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x X i n
127 106 ffnd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X i Fn X
128 57 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X n : X 0
129 128 ffnd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X n Fn X
130 inidm X X = X
131 simpr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x X x X
132 131 elsnd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x X x = X
133 132 fveq2d φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x X X i x = X i X
134 fvsng X V i 0 X i X = i
135 98 105 134 syl2anc φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X i X = i
136 135 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x X X i X = i
137 133 136 eqtrd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x X X i x = i
138 132 fveq2d φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x X X n x = X n X
139 56 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n n 0
140 fvsng X V n 0 X n X = n
141 98 139 140 syl2anc φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X n X = n
142 141 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x X X n X = n
143 138 142 eqtrd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x X X n x = n
144 127 129 97 97 130 137 143 ofrfval φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X i f X n x X i n
145 126 144 mpbird φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X i f X n
146 94 111 145 elrabd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n X i l g 0 X | finSupp 0 g | l f X n
147 breq1 k = j X k f n j X f n
148 50 a1i φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n 1 𝑜 V
149 df1o2 1 𝑜 =
150 149 eqcomi = 1 𝑜
151 150 a1i φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n = 1 𝑜
152 0ex V
153 152 a1i φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n V
154 snidg X V X X
155 7 154 syl φ X X
156 155 ad2antrr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n X X
157 72 156 ffvelcdmd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j X 0
158 153 157 fsnd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j X : 0
159 151 158 feq2dd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j X : 1 𝑜 0
160 67 148 159 elmapdd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j X 0 1 𝑜
161 simplr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n n 0 1 𝑜
162 49 adantr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n X V
163 161 162 jca φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n n 0 1 𝑜 X V
164 elmapfn j 0 X j Fn X
165 164 adantr j 0 X n 0 1 𝑜 X V j Fn X
166 simpr n 0 1 𝑜 X V X V
167 elmapi n 0 1 𝑜 n : 1 𝑜 0
168 54 a1i n 0 1 𝑜 1 𝑜
169 167 168 ffvelcdmd n 0 1 𝑜 n 0
170 169 adantr n 0 1 𝑜 X V n 0
171 166 170 fsnd n 0 1 𝑜 X V X n : X 0
172 171 ffnd n 0 1 𝑜 X V X n Fn X
173 172 adantl j 0 X n 0 1 𝑜 X V X n Fn X
174 47 a1i j 0 X n 0 1 𝑜 X V X V
175 eqidd j 0 X n 0 1 𝑜 X V X X j X = j X
176 166 170 140 syl2anc n 0 1 𝑜 X V X n X = n
177 176 ad2antlr j 0 X n 0 1 𝑜 X V X X X n X = n
178 165 173 174 174 130 175 177 ofrval j 0 X n 0 1 𝑜 X V j f X n X X j X n
179 71 163 75 156 178 syl211anc φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j X n
180 fveq2 o = n o = n
181 180 breq2d o = j X n o j X n
182 152 181 ralsn o j X n o j X n
183 179 182 sylibr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n o j X n o
184 149 a1i φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n 1 𝑜 =
185 183 184 raleqtrrdv φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n o 1 𝑜 j X n o
186 159 ffnd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j X Fn 1 𝑜
187 118 ad2antlr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n n Fn 1 𝑜
188 elsni o o =
189 188 149 eleq2s o 1 𝑜 o =
190 189 adantl φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n o 1 𝑜 o =
191 190 fveq2d φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n o 1 𝑜 j X o = j X
192 157 adantr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n o 1 𝑜 j X 0
193 fvsng V j X 0 j X = j X
194 152 192 193 sylancr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n o 1 𝑜 j X = j X
195 191 194 eqtrd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n o 1 𝑜 j X o = j X
196 eqidd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n o 1 𝑜 n o = n o
197 186 187 148 148 121 195 196 ofrfval φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j X f n o 1 𝑜 j X n o
198 185 197 mpbird φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j X f n
199 147 160 198 elrabd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n j X k 0 1 𝑜 | k f n
200 eqcom j X = i i = j X
201 200 a1i φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j X = i i = j X
202 135 adantlr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n X i X = i
203 202 eqeq2d φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j X = X i X j X = i
204 157 adantr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j X 0
205 152 204 193 sylancr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j X = j X
206 205 eqeq2d φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n i = j X i = j X
207 201 203 206 3bitr4d φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j X = X i X i = j X
208 162 adantr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n X V
209 eqid X = X
210 72 adantr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j : X 0
211 210 ffnd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j Fn X
212 127 adantlr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n X i Fn X
213 208 209 211 212 fsneq φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j = X i j X = X i X
214 152 a1i φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n V
215 103 adantlr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n i : 1 𝑜 0
216 215 ffnd φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n i Fn 1 𝑜
217 186 adantr φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j X Fn 1 𝑜
218 214 149 216 217 fsneq φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n i = j X i = j X
219 207 213 218 3bitr4d φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n i k 0 1 𝑜 | k f n j = X i i = j X
220 199 219 reu6dv φ n 0 1 𝑜 j l g 0 X | finSupp 0 g | l f X n ∃! i k 0 1 𝑜 | k f n j = X i
221 24 25 26 30 32 37 87 88 93 146 220 gsummptfsf1o φ n 0 1 𝑜 R j l g 0 X | finSupp 0 g | l f X n F j R G X n f j = R i k 0 1 𝑜 | k f n F X i R G X n f X i
222 100 a1i φ k 0 1 𝑜 | k f n 0 1 𝑜
223 222 sselda φ i k 0 1 𝑜 | k f n i 0 1 𝑜
224 fveq1 n = i n = i
225 224 opeq2d n = i X n = X i
226 225 sneqd n = i X n = X i
227 226 fveq2d n = i F X n = F X i
228 fveq1 f = F f X n = F X n
229 228 mpteq2dv f = F n 0 1 𝑜 f X n = n 0 1 𝑜 F X n
230 ovexd φ 0 1 𝑜 V
231 230 mptexd φ n 0 1 𝑜 F X n V
232 6 229 9 231 fvmptd3 φ M F = n 0 1 𝑜 F X n
233 232 adantr φ i 0 1 𝑜 M F = n 0 1 𝑜 F X n
234 simpr φ i 0 1 𝑜 i 0 1 𝑜
235 fvexd φ i 0 1 𝑜 F X i V
236 227 233 234 235 fvmptd4 φ i 0 1 𝑜 M F i = F X i
237 223 236 syldan φ i k 0 1 𝑜 | k f n M F i = F X i
238 237 adantlr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n M F i = F X i
239 fveq1 f = G f X n = G X n
240 239 mpteq2dv f = G n 0 1 𝑜 f X n = n 0 1 𝑜 G X n
241 230 mptexd φ n 0 1 𝑜 G X n V
242 6 240 10 241 fvmptd3 φ M G = n 0 1 𝑜 G X n
243 fveq1 n = m n = m
244 243 opeq2d n = m X n = X m
245 244 sneqd n = m X n = X m
246 245 fveq2d n = m G X n = G X m
247 246 cbvmptv n 0 1 𝑜 G X n = m 0 1 𝑜 G X m
248 242 247 eqtrdi φ M G = m 0 1 𝑜 G X m
249 248 ad2antrr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n M G = m 0 1 𝑜 G X m
250 simpr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i m = n f i
251 250 fveq1d φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i m = n f i
252 54 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i 1 𝑜
253 118 adantl φ n 0 1 𝑜 n Fn 1 𝑜
254 253 ad2antrr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i n Fn 1 𝑜
255 102 116 syl φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i Fn 1 𝑜
256 255 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i i Fn 1 𝑜
257 50 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i 1 𝑜 V
258 eqidd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i 1 𝑜 n = n
259 eqidd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i 1 𝑜 i = i
260 254 256 257 257 121 258 259 ofval φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i 1 𝑜 n f i = n i
261 252 260 mpdan φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i n f i = n i
262 251 261 eqtrd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i m = n i
263 98 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X V
264 fvexd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i m V
265 fvsng X V m V X m X = m
266 263 264 265 syl2anc φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X m X = m
267 263 154 syl φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X X
268 129 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X n Fn X
269 127 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X i Fn X
270 47 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X V
271 141 ad2antrr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X X X n X = n
272 135 ad2antrr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X X X i X = i
273 268 269 270 270 130 271 272 ofval φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X X X n f X i X = n i
274 267 273 mpdan φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X n f X i X = n i
275 262 266 274 3eqtr4d φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X m X = X n f X i X
276 elsni x n x = n
277 276 adantr x n y 0 n x = n
278 277 oveq1d x n y 0 n x y = n y
279 fznn0sub2 y 0 n n y 0 n
280 279 adantl x n y 0 n n y 0 n
281 278 280 eqeltrd x n y 0 n x y 0 n
282 281 adantl φ n 0 1 𝑜 i k 0 1 𝑜 | k f n x n y 0 n x y 0 n
283 fvex n V
284 152 283 f1osn n : 1-1 onto n
285 f1of n : 1-1 onto n n : n
286 284 285 mp1i φ n 0 1 𝑜 n : n
287 fvsng V n 0 n = n
288 152 56 287 sylancr φ n 0 1 𝑜 n = n
289 288 eqcomd φ n 0 1 𝑜 n = n
290 152 a1i φ n 0 1 𝑜 V
291 150 a1i φ n 0 1 𝑜 = 1 𝑜
292 55 56 fsnd φ n 0 1 𝑜 n : 0
293 291 292 feq2dd φ n 0 1 𝑜 n : 1 𝑜 0
294 293 ffnd φ n 0 1 𝑜 n Fn 1 𝑜
295 290 149 253 294 fsneq φ n 0 1 𝑜 n = n n = n
296 289 295 mpbird φ n 0 1 𝑜 n = n
297 149 a1i φ n 0 1 𝑜 1 𝑜 =
298 296 297 feq12d φ n 0 1 𝑜 n : 1 𝑜 n n : n
299 286 298 mpbird φ n 0 1 𝑜 n : 1 𝑜 n
300 299 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n n : 1 𝑜 n
301 149 fneq2i i Fn 1 𝑜 i Fn
302 255 301 sylib φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i Fn
303 0zd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n 0
304 139 nn0zd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n n
305 105 nn0zd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i
306 105 nn0ge0d φ n 0 1 𝑜 i k 0 1 𝑜 | k f n 0 i
307 303 304 305 306 125 elfzd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i 0 n
308 fveq2 o = i o = i
309 308 eleq1d o = i o 0 n i 0 n
310 152 309 ralsn o i o 0 n i 0 n
311 307 310 sylibr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n o i o 0 n
312 ffnfv i : 0 n i Fn o i o 0 n
313 302 311 312 sylanbrc φ n 0 1 𝑜 i k 0 1 𝑜 | k f n i : 0 n
314 149 99 eqeltrrid φ n 0 1 𝑜 i k 0 1 𝑜 | k f n V
315 149 ineq2i 1 𝑜 1 𝑜 = 1 𝑜
316 315 121 eqtr3i 1 𝑜 = 1 𝑜
317 282 300 313 99 314 316 off φ n 0 1 𝑜 i k 0 1 𝑜 | k f n n f i : 1 𝑜 0 n
318 fz0ssnn0 0 n 0
319 318 a1i φ n 0 1 𝑜 i k 0 1 𝑜 | k f n 0 n 0
320 317 319 fssd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n n f i : 1 𝑜 0
321 320 adantr φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i n f i : 1 𝑜 0
322 321 252 ffvelcdmd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i n f i 0
323 251 322 eqeltrd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i m 0
324 263 323 fsnd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X m : X 0
325 324 ffnd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X m Fn X
326 268 269 270 270 130 offn φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X n f X i Fn X
327 263 209 325 326 fsneq φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X m = X n f X i X m X = X n f X i X
328 275 327 mpbird φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i X m = X n f X i
329 328 fveq2d φ n 0 1 𝑜 i k 0 1 𝑜 | k f n m = n f i G X m = G X n f X i
330 96 99 320 elmapdd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n n f i 0 1 𝑜
331 fvexd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n G X n f X i V
332 249 329 330 331 fvmptd φ n 0 1 𝑜 i k 0 1 𝑜 | k f n M G n f i = G X n f X i
333 238 332 oveq12d φ n 0 1 𝑜 i k 0 1 𝑜 | k f n M F i R M G n f i = F X i R G X n f X i
334 333 mpteq2dva φ n 0 1 𝑜 i k 0 1 𝑜 | k f n M F i R M G n f i = i k 0 1 𝑜 | k f n F X i R G X n f X i
335 334 oveq2d φ n 0 1 𝑜 R i k 0 1 𝑜 | k f n M F i R M G n f i = R i k 0 1 𝑜 | k f n F X i R G X n f X i
336 221 335 eqtr4d φ n 0 1 𝑜 R j l g 0 X | finSupp 0 g | l f X n F j R G X n f j = R i k 0 1 𝑜 | k f n M F i R M G n f i
337 23 336 sylan9eqr φ n 0 1 𝑜 m = X n R j l g 0 X | finSupp 0 g | l f m F j R G m f j = R i k 0 1 𝑜 | k f n M F i R M G n f i
338 ovexd φ n 0 1 𝑜 R i k 0 1 𝑜 | k f n M F i R M G n f i V
339 17 337 64 338 fvmptd φ n 0 1 𝑜 F · ˙ G X n = R i k 0 1 𝑜 | k f n M F i R M G n f i
340 339 mpteq2dva φ n 0 1 𝑜 F · ˙ G X n = n 0 1 𝑜 R i k 0 1 𝑜 | k f n M F i R M G n f i
341 eqid 1 𝑜 mPoly R = 1 𝑜 mPoly R
342 eqid Base Q = Base Q
343 5 342 ply1bas Base Q = Base 1 𝑜 mPoly R
344 5 341 4 ply1mulr × ˙ = 1 𝑜 mPoly R
345 psr1baslem 0 1 𝑜 = h 0 1 𝑜 | h -1 Fin
346 1 2 3 4 5 6 7 8 9 selvply1rhmlema φ M F Base Q
347 1 2 3 4 5 6 7 8 10 selvply1rhmlema φ M G Base Q
348 341 343 13 344 345 346 347 mplmul φ M F × ˙ M G = n 0 1 𝑜 R i k 0 1 𝑜 | k f n M F i R M G n f i
349 340 348 eqtr4d φ n 0 1 𝑜 F · ˙ G X n = M F × ˙ M G
350 12 349 sylan9eqr φ f = F · ˙ G n 0 1 𝑜 f X n = M F × ˙ M G
351 47 a1i φ X V
352 2 351 8 mplringd φ P Ring
353 1 3 352 9 10 ringcld φ F · ˙ G B
354 ovexd φ M F × ˙ M G V
355 6 350 353 354 fvmptd2 φ M F · ˙ G = M F × ˙ M G