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