Metamath Proof Explorer


Theorem mplvrpmrhm

Description: The action of permuting variables in a multivariate polynomial is a ring homomorphism. (Contributed by Thierry Arnoux, 15-Jan-2026)

Ref Expression
Hypotheses mplvrpmga.1 S = SymGrp I
mplvrpmga.2 P = Base S
mplvrpmga.3 M = Base I mPoly R
mplvrpmga.4 A = d P , f M x h 0 I | finSupp 0 h f x d
mplvrpmga.5 φ I V
mplvrpmmhm.f F = f M D A f
mplvrpmmhm.w W = I mPoly R
mplvrpmmhm.1 φ R Ring
mplvrpmmhm.2 φ D P
Assertion mplvrpmrhm φ F W RingHom W

Proof

Step Hyp Ref Expression
1 mplvrpmga.1 S = SymGrp I
2 mplvrpmga.2 P = Base S
3 mplvrpmga.3 M = Base I mPoly R
4 mplvrpmga.4 A = d P , f M x h 0 I | finSupp 0 h f x d
5 mplvrpmga.5 φ I V
6 mplvrpmmhm.f F = f M D A f
7 mplvrpmmhm.w W = I mPoly R
8 mplvrpmmhm.1 φ R Ring
9 mplvrpmmhm.2 φ D P
10 7 fveq2i Base W = Base I mPoly R
11 3 10 eqtr4i M = Base W
12 eqid 1 W = 1 W
13 eqid W = W
14 7 5 8 mplringd φ W Ring
15 oveq2 f = 1 W D A f = D A 1 W
16 4 a1i φ A = d P , f M x h 0 I | finSupp 0 h f x d
17 simpr d = D f = 1 W f = 1 W
18 simpl d = D f = 1 W d = D
19 18 coeq2d d = D f = 1 W x d = x D
20 17 19 fveq12d d = D f = 1 W f x d = 1 W x D
21 20 ad2antlr φ d = D f = 1 W x h 0 I | finSupp 0 h f x d = 1 W x D
22 eqid h 0 I | finSupp 0 h = h 0 I | finSupp 0 h
23 22 psrbasfsupp h 0 I | finSupp 0 h = h 0 I | h -1 Fin
24 eqid 0 R = 0 R
25 eqid 1 R = 1 R
26 7 23 24 25 12 5 8 mpl1 φ 1 W = y h 0 I | finSupp 0 h if y = I × 0 1 R 0 R
27 26 adantr φ x h 0 I | finSupp 0 h 1 W = y h 0 I | finSupp 0 h if y = I × 0 1 R 0 R
28 eqeq1 y = x D y = I × 0 x D = I × 0
29 9 adantr φ x h 0 I | finSupp 0 h D P
30 1 2 symgbasf1o D P D : I 1-1 onto I
31 f1ococnv2 D : I 1-1 onto I D D -1 = I I
32 29 30 31 3syl φ x h 0 I | finSupp 0 h D D -1 = I I
33 32 adantr φ x h 0 I | finSupp 0 h x D = I × 0 D D -1 = I I
34 33 coeq2d φ x h 0 I | finSupp 0 h x D = I × 0 x D D -1 = x I I
35 simpr φ x h 0 I | finSupp 0 h x D = I × 0 x D = I × 0
36 35 coeq1d φ x h 0 I | finSupp 0 h x D = I × 0 x D D -1 = I × 0 D -1
37 coass x D D -1 = x D D -1
38 37 a1i φ x h 0 I | finSupp 0 h x D = I × 0 x D D -1 = x D D -1
39 9 30 syl φ D : I 1-1 onto I
40 f1ocnv D : I 1-1 onto I D -1 : I 1-1 onto I
41 f1of D -1 : I 1-1 onto I D -1 : I I
42 39 40 41 3syl φ D -1 : I I
43 0nn0 0 0
44 43 a1i φ 0 0
45 42 44 constcof φ I × 0 D -1 = I × 0
46 45 ad2antrr φ x h 0 I | finSupp 0 h x D = I × 0 I × 0 D -1 = I × 0
47 36 38 46 3eqtr3d φ x h 0 I | finSupp 0 h x D = I × 0 x D D -1 = I × 0
48 ssrab2 h 0 I | finSupp 0 h 0 I
49 simpr φ x h 0 I | finSupp 0 h x h 0 I | finSupp 0 h
50 48 49 sselid φ x h 0 I | finSupp 0 h x 0 I
51 50 elmaprd φ x h 0 I | finSupp 0 h x : I 0
52 fcoi1 x : I 0 x I I = x
53 51 52 syl φ x h 0 I | finSupp 0 h x I I = x
54 53 adantr φ x h 0 I | finSupp 0 h x D = I × 0 x I I = x
55 34 47 54 3eqtr3rd φ x h 0 I | finSupp 0 h x D = I × 0 x = I × 0
56 simpr φ x h 0 I | finSupp 0 h x = I × 0 x = I × 0
57 56 coeq1d φ x h 0 I | finSupp 0 h x = I × 0 x D = I × 0 D
58 f1of D : I 1-1 onto I D : I I
59 9 30 58 3syl φ D : I I
60 59 44 constcof φ I × 0 D = I × 0
61 60 ad2antrr φ x h 0 I | finSupp 0 h x = I × 0 I × 0 D = I × 0
62 57 61 eqtrd φ x h 0 I | finSupp 0 h x = I × 0 x D = I × 0
63 55 62 impbida φ x h 0 I | finSupp 0 h x D = I × 0 x = I × 0
64 28 63 sylan9bbr φ x h 0 I | finSupp 0 h y = x D y = I × 0 x = I × 0
65 64 ifbid φ x h 0 I | finSupp 0 h y = x D if y = I × 0 1 R 0 R = if x = I × 0 1 R 0 R
66 5 adantr φ x h 0 I | finSupp 0 h I V
67 1 2 66 29 49 mplvrpmlem φ x h 0 I | finSupp 0 h x D h 0 I | finSupp 0 h
68 fvexd φ x h 0 I | finSupp 0 h 1 R V
69 fvexd φ x h 0 I | finSupp 0 h 0 R V
70 68 69 ifcld φ x h 0 I | finSupp 0 h if x = I × 0 1 R 0 R V
71 27 65 67 70 fvmptd φ x h 0 I | finSupp 0 h 1 W x D = if x = I × 0 1 R 0 R
72 71 adantlr φ d = D f = 1 W x h 0 I | finSupp 0 h 1 W x D = if x = I × 0 1 R 0 R
73 21 72 eqtrd φ d = D f = 1 W x h 0 I | finSupp 0 h f x d = if x = I × 0 1 R 0 R
74 73 mpteq2dva φ d = D f = 1 W x h 0 I | finSupp 0 h f x d = x h 0 I | finSupp 0 h if x = I × 0 1 R 0 R
75 11 12 14 ringidcld φ 1 W M
76 ovex 0 I V
77 76 rabex h 0 I | finSupp 0 h V
78 77 a1i φ h 0 I | finSupp 0 h V
79 78 mptexd φ x h 0 I | finSupp 0 h if x = I × 0 1 R 0 R V
80 16 74 9 75 79 ovmpod φ D A 1 W = x h 0 I | finSupp 0 h if x = I × 0 1 R 0 R
81 eqid I mPwSer R = I mPwSer R
82 eqid 1 I mPwSer R = 1 I mPwSer R
83 81 5 8 23 24 25 82 psr1 φ 1 I mPwSer R = x h 0 I | finSupp 0 h if x = I × 0 1 R 0 R
84 81 7 11 5 8 mplsubrg φ M SubRing I mPwSer R
85 7 81 11 mplval2 W = I mPwSer R 𝑠 M
86 85 82 subrg1 M SubRing I mPwSer R 1 I mPwSer R = 1 W
87 84 86 syl φ 1 I mPwSer R = 1 W
88 80 83 87 3eqtr2d φ D A 1 W = 1 W
89 15 88 sylan9eqr φ f = 1 W D A f = 1 W
90 6 89 75 75 fvmptd2 φ F 1 W = 1 W
91 nfcv _ v i y D R j x D f y D
92 eqid Base R = Base R
93 fveq2 v = y D i v = i y D
94 oveq2 v = y D x D f v = x D f y D
95 94 fveq2d v = y D j x D f v = j x D f y D
96 93 95 oveq12d v = y D i v R j x D f v = i y D R j x D f y D
97 8 ringcmnd φ R CMnd
98 97 ad3antrrr φ i M j M x h 0 I | finSupp 0 h R CMnd
99 77 rabex w h 0 I | finSupp 0 h | w f x D V
100 99 a1i φ i M j M x h 0 I | finSupp 0 h w h 0 I | finSupp 0 h | w f x D V
101 eqid Base I mPwSer R = Base I mPwSer R
102 7 81 11 101 mplbasss M Base I mPwSer R
103 simplr φ i M j M i M
104 102 103 sselid φ i M j M i Base I mPwSer R
105 104 adantr φ i M j M x h 0 I | finSupp 0 h i Base I mPwSer R
106 81 92 23 101 105 psrelbas φ i M j M x h 0 I | finSupp 0 h i : h 0 I | finSupp 0 h Base R
107 106 feqmptd φ i M j M x h 0 I | finSupp 0 h i = v h 0 I | finSupp 0 h i v
108 103 adantr φ i M j M x h 0 I | finSupp 0 h i M
109 7 11 24 108 mplelsfi φ i M j M x h 0 I | finSupp 0 h finSupp 0 R i
110 107 109 eqbrtrrd φ i M j M x h 0 I | finSupp 0 h finSupp 0 R v h 0 I | finSupp 0 h i v
111 ssrab2 w h 0 I | finSupp 0 h | w f x D h 0 I | finSupp 0 h
112 111 a1i φ i M j M x h 0 I | finSupp 0 h w h 0 I | finSupp 0 h | w f x D h 0 I | finSupp 0 h
113 fvexd φ i M j M x h 0 I | finSupp 0 h 0 R V
114 110 112 113 fmptssfisupp φ i M j M x h 0 I | finSupp 0 h finSupp 0 R v w h 0 I | finSupp 0 h | w f x D i v
115 eqid R = R
116 8 ad4antr φ i M j M x h 0 I | finSupp 0 h n Base R R Ring
117 simpr φ i M j M x h 0 I | finSupp 0 h n Base R n Base R
118 92 115 24 116 117 ringlzd φ i M j M x h 0 I | finSupp 0 h n Base R 0 R R n = 0 R
119 106 adantr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D i : h 0 I | finSupp 0 h Base R
120 elrabi v w h 0 I | finSupp 0 h | w f x D v h 0 I | finSupp 0 h
121 120 adantl φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v h 0 I | finSupp 0 h
122 119 121 ffvelcdmd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D i v Base R
123 simpr φ i M j M j M
124 102 123 sselid φ i M j M j Base I mPwSer R
125 124 ad2antrr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D j Base I mPwSer R
126 81 92 23 101 125 psrelbas φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D j : h 0 I | finSupp 0 h Base R
127 67 ad5ant14 φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x D h 0 I | finSupp 0 h
128 48 121 sselid φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v 0 I
129 128 elmaprd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v : I 0
130 breq1 w = v w f x D v f x D
131 simpr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v w h 0 I | finSupp 0 h | w f x D
132 130 131 elrabrd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v f x D
133 23 psrbagcon x D h 0 I | finSupp 0 h v : I 0 v f x D x D f v h 0 I | finSupp 0 h x D f v f x D
134 127 129 132 133 syl3anc φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x D f v h 0 I | finSupp 0 h x D f v f x D
135 134 simpld φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x D f v h 0 I | finSupp 0 h
136 126 135 ffvelcdmd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D j x D f v Base R
137 114 118 122 136 113 fsuppssov1 φ i M j M x h 0 I | finSupp 0 h finSupp 0 R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v
138 ssidd φ i M j M x h 0 I | finSupp 0 h Base R Base R
139 8 ad4antr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D R Ring
140 92 115 139 122 136 ringcld φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D i v R j x D f v Base R
141 breq1 w = y D w f x D y D f x D
142 5 ad4antr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x I V
143 9 ad2antrr φ i M j M D P
144 143 ad2antrr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x D P
145 ssrab2 z h 0 I | finSupp 0 h | z f x h 0 I | finSupp 0 h
146 simpr φ i M j M y z h 0 I | finSupp 0 h | z f x y z h 0 I | finSupp 0 h | z f x
147 145 146 sselid φ i M j M y z h 0 I | finSupp 0 h | z f x y h 0 I | finSupp 0 h
148 147 adantlr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x y h 0 I | finSupp 0 h
149 1 2 142 144 148 mplvrpmlem φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x y D h 0 I | finSupp 0 h
150 48 a1i φ i M j M x h 0 I | finSupp 0 h h 0 I | finSupp 0 h 0 I
151 145 150 sstrid φ i M j M x h 0 I | finSupp 0 h z h 0 I | finSupp 0 h | z f x 0 I
152 151 sselda φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x y 0 I
153 152 elmaprd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x y : I 0
154 153 ffnd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x y Fn I
155 51 ad4ant14 φ i M j M x h 0 I | finSupp 0 h x : I 0
156 155 adantr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x x : I 0
157 156 ffnd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x x Fn I
158 59 ad4antr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x D : I I
159 breq1 z = y z f x y f x
160 simpr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x y z h 0 I | finSupp 0 h | z f x
161 159 160 elrabrd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x y f x
162 154 157 158 142 142 161 ofrco φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x y D f x D
163 141 149 162 elrabd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x y D w h 0 I | finSupp 0 h | w f x D
164 breq1 z = v D -1 z f x v D -1 f x
165 breq1 h = v D -1 finSupp 0 h finSupp 0 v D -1
166 nn0ex 0 V
167 166 a1i φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D 0 V
168 5 ad4antr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D I V
169 42 ad4antr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D D -1 : I I
170 129 169 fcod φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v D -1 : I 0
171 167 168 170 elmapdd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v D -1 0 I
172 breq1 h = v finSupp 0 h finSupp 0 v
173 172 121 elrabrd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D finSupp 0 v
174 39 ad4antr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D D : I 1-1 onto I
175 f1of1 D -1 : I 1-1 onto I D -1 : I 1-1 I
176 174 40 175 3syl φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D D -1 : I 1-1 I
177 43 a1i φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D 0 0
178 173 176 177 121 fsuppco φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D finSupp 0 v D -1
179 165 171 178 elrabd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v D -1 h 0 I | finSupp 0 h
180 129 ffnd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v Fn I
181 155 adantr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x : I 0
182 181 ffnd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x Fn I
183 59 ad4antr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D D : I I
184 fnfco x Fn I D : I I x D Fn I
185 182 183 184 syl2anc φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x D Fn I
186 180 185 169 168 168 132 ofrco φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v D -1 f x D D -1
187 174 31 syl φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D D D -1 = I I
188 187 coeq2d φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x D D -1 = x I I
189 181 52 syl φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x I I = x
190 188 189 eqtrd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x D D -1 = x
191 37 190 eqtrid φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D x D D -1 = x
192 186 191 breqtrd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v D -1 f x
193 164 179 192 elrabd φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D v D -1 z h 0 I | finSupp 0 h | z f x
194 129 adantr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D y z h 0 I | finSupp 0 h | z f x v : I 0
195 153 adantlr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D y z h 0 I | finSupp 0 h | z f x y : I 0
196 39 ad5antr φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D y z h 0 I | finSupp 0 h | z f x D : I 1-1 onto I
197 194 195 196 cocnvf1o φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D y z h 0 I | finSupp 0 h | z f x v = y D y = v D -1
198 193 197 reu6dv φ i M j M x h 0 I | finSupp 0 h v w h 0 I | finSupp 0 h | w f x D ∃! y z h 0 I | finSupp 0 h | z f x v = y D
199 91 92 24 96 98 100 137 138 140 163 198 gsummptfsf1o φ i M j M x h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v = R y z h 0 I | finSupp 0 h | z f x i y D R j x D f y D
200 coeq1 t = y t D = y D
201 200 fveq2d t = y i t D = i y D
202 oveq2 f = i D A f = D A i
203 103 adantr φ i M j M y z h 0 I | finSupp 0 h | z f x i M
204 ovexd φ i M j M y z h 0 I | finSupp 0 h | z f x D A i V
205 6 202 203 204 fvmptd3 φ i M j M y z h 0 I | finSupp 0 h | z f x F i = D A i
206 4 a1i φ i M j M y z h 0 I | finSupp 0 h | z f x A = d P , f M x h 0 I | finSupp 0 h f x d
207 simpr d = D f = i f = i
208 coeq2 d = D x d = x D
209 208 adantr d = D f = i x d = x D
210 207 209 fveq12d d = D f = i f x d = i x D
211 210 mpteq2dv d = D f = i x h 0 I | finSupp 0 h f x d = x h 0 I | finSupp 0 h i x D
212 coeq1 x = t x D = t D
213 212 fveq2d x = t i x D = i t D
214 213 cbvmptv x h 0 I | finSupp 0 h i x D = t h 0 I | finSupp 0 h i t D
215 211 214 eqtrdi d = D f = i x h 0 I | finSupp 0 h f x d = t h 0 I | finSupp 0 h i t D
216 215 adantl φ i M j M y z h 0 I | finSupp 0 h | z f x d = D f = i x h 0 I | finSupp 0 h f x d = t h 0 I | finSupp 0 h i t D
217 143 adantr φ i M j M y z h 0 I | finSupp 0 h | z f x D P
218 77 a1i φ i M j M y z h 0 I | finSupp 0 h | z f x h 0 I | finSupp 0 h V
219 218 mptexd φ i M j M y z h 0 I | finSupp 0 h | z f x t h 0 I | finSupp 0 h i t D V
220 206 216 217 203 219 ovmpod φ i M j M y z h 0 I | finSupp 0 h | z f x D A i = t h 0 I | finSupp 0 h i t D
221 205 220 eqtrd φ i M j M y z h 0 I | finSupp 0 h | z f x F i = t h 0 I | finSupp 0 h i t D
222 fvexd φ i M j M y z h 0 I | finSupp 0 h | z f x i y D V
223 201 221 147 222 fvmptd4 φ i M j M y z h 0 I | finSupp 0 h | z f x F i y = i y D
224 223 adantlr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x F i y = i y D
225 oveq2 f = j D A f = D A j
226 simpr d = D f = j f = j
227 208 adantr d = D f = j x d = x D
228 226 227 fveq12d d = D f = j f x d = j x D
229 228 mpteq2dv d = D f = j x h 0 I | finSupp 0 h f x d = x h 0 I | finSupp 0 h j x D
230 212 fveq2d x = t j x D = j t D
231 230 cbvmptv x h 0 I | finSupp 0 h j x D = t h 0 I | finSupp 0 h j t D
232 229 231 eqtrdi d = D f = j x h 0 I | finSupp 0 h f x d = t h 0 I | finSupp 0 h j t D
233 232 adantl φ i M j M y z h 0 I | finSupp 0 h | z f x d = D f = j x h 0 I | finSupp 0 h f x d = t h 0 I | finSupp 0 h j t D
234 simplr φ i M j M y z h 0 I | finSupp 0 h | z f x j M
235 218 mptexd φ i M j M y z h 0 I | finSupp 0 h | z f x t h 0 I | finSupp 0 h j t D V
236 206 233 217 234 235 ovmpod φ i M j M y z h 0 I | finSupp 0 h | z f x D A j = t h 0 I | finSupp 0 h j t D
237 225 236 sylan9eqr φ i M j M y z h 0 I | finSupp 0 h | z f x f = j D A f = t h 0 I | finSupp 0 h j t D
238 237 adantllr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x f = j D A f = t h 0 I | finSupp 0 h j t D
239 123 ad2antrr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x j M
240 77 a1i φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x h 0 I | finSupp 0 h V
241 240 mptexd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t h 0 I | finSupp 0 h j t D V
242 6 238 239 241 fvmptd2 φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x F j = t h 0 I | finSupp 0 h j t D
243 coeq1 t = x f y t D = x f y D
244 243 fveq2d t = x f y j t D = j x f y D
245 244 adantl φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y j t D = j x f y D
246 155 ad2antrr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y x : I 0
247 246 ffnd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y x Fn I
248 152 adantr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y y 0 I
249 248 elmaprd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y y : I 0
250 249 ffnd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y y Fn I
251 59 ad5antr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y D : I I
252 5 ad5antr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y I V
253 inidm I I = I
254 247 250 251 252 252 252 253 ofco φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y x f y D = x D f y D
255 254 fveq2d φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y j x f y D = j x D f y D
256 245 255 eqtrd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x t = x f y j t D = j x D f y D
257 breq1 h = x f y finSupp 0 h finSupp 0 x f y
258 166 a1i φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x 0 V
259 157 154 142 142 253 offn φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x x f y Fn I
260 157 adantr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I x Fn I
261 154 adantr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I y Fn I
262 142 adantr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I I V
263 simpr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I a I
264 fnfvof x Fn I y Fn I I V a I x f y a = x a y a
265 260 261 262 263 264 syl22anc φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I x f y a = x a y a
266 153 ffvelcdmda φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I y a 0
267 156 ffvelcdmda φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I x a 0
268 simplr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I y z h 0 I | finSupp 0 h | z f x
269 159 268 elrabrd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I y f x
270 261 260 262 269 263 fnfvor φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I y a x a
271 nn0sub y a 0 x a 0 y a x a x a y a 0
272 271 biimpa y a 0 x a 0 y a x a x a y a 0
273 266 267 270 272 syl21anc φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I x a y a 0
274 265 273 eqeltrd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I x f y a 0
275 274 ralrimiva φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I x f y a 0
276 ffnfv x f y : I 0 x f y Fn I a I x f y a 0
277 259 275 276 sylanbrc φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x x f y : I 0
278 258 142 277 elmapdd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x x f y 0 I
279 ovexd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x x f y V
280 43 a1i φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x 0 0
281 157 154 142 142 offun φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x Fun x f y
282 23 psrbagfsupp x h 0 I | finSupp 0 h finSupp 0 x
283 282 ad2antlr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x finSupp 0 x
284 dffn2 x f y Fn I x f y : I V
285 259 284 sylib φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x x f y : I V
286 157 adantr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x x Fn I
287 154 adantr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x y Fn I
288 142 adantr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x I V
289 simpr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x a I supp 0 x
290 289 eldifad φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x a I
291 286 287 288 290 264 syl22anc φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x x f y a = x a y a
292 43 a1i φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x 0 0
293 286 288 292 289 fvdifsupp φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x x a = 0
294 153 adantr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x y : I 0
295 294 290 ffvelcdmd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x y a 0
296 simplr φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x y z h 0 I | finSupp 0 h | z f x
297 159 296 elrabrd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x y f x
298 287 286 288 297 290 fnfvor φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x y a x a
299 298 293 breqtrd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x y a 0
300 nn0le0eq0 y a 0 y a 0 y a = 0
301 300 biimpa y a 0 y a 0 y a = 0
302 295 299 301 syl2anc φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x y a = 0
303 293 302 oveq12d φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x x a y a = 0 0
304 0m0e0 0 0 = 0
305 304 a1i φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x 0 0 = 0
306 291 303 305 3eqtrd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x a I supp 0 x x f y a = 0
307 285 306 suppss φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x x f y supp 0 x supp 0
308 279 280 281 283 307 fsuppsssuppgd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x finSupp 0 x f y
309 257 278 308 elrabd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x x f y h 0 I | finSupp 0 h
310 fvexd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x j x D f y D V
311 242 256 309 310 fvmptd φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x F j x f y = j x D f y D
312 224 311 oveq12d φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x F i y R F j x f y = i y D R j x D f y D
313 312 mpteq2dva φ i M j M x h 0 I | finSupp 0 h y z h 0 I | finSupp 0 h | z f x F i y R F j x f y = y z h 0 I | finSupp 0 h | z f x i y D R j x D f y D
314 313 oveq2d φ i M j M x h 0 I | finSupp 0 h R y z h 0 I | finSupp 0 h | z f x F i y R F j x f y = R y z h 0 I | finSupp 0 h | z f x i y D R j x D f y D
315 199 314 eqtr4d φ i M j M x h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v = R y z h 0 I | finSupp 0 h | z f x F i y R F j x f y
316 315 mpteq2dva φ i M j M x h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v = x h 0 I | finSupp 0 h R y z h 0 I | finSupp 0 h | z f x F i y R F j x f y
317 oveq2 f = i W j D A f = D A i W j
318 4 a1i φ i M j M A = d P , f M x h 0 I | finSupp 0 h f x d
319 simprr φ i M j M d = D f = i W j f = i W j
320 7 11 115 13 23 103 123 mplmul φ i M j M i W j = u h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f u i v R j u f v
321 320 adantr φ i M j M d = D f = i W j i W j = u h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f u i v R j u f v
322 319 321 eqtrd φ i M j M d = D f = i W j f = u h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f u i v R j u f v
323 322 adantr φ i M j M d = D f = i W j x h 0 I | finSupp 0 h f = u h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f u i v R j u f v
324 simpr φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d u = x d
325 simplrl φ i M j M d = D f = i W j x h 0 I | finSupp 0 h d = D
326 325 adantr φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d d = D
327 326 coeq2d φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d x d = x D
328 324 327 eqtrd φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d u = x D
329 328 breq2d φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d w f u w f x D
330 329 rabbidv φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d w h 0 I | finSupp 0 h | w f u = w h 0 I | finSupp 0 h | w f x D
331 328 fvoveq1d φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d j u f v = j x D f v
332 331 oveq2d φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d i v R j u f v = i v R j x D f v
333 330 332 mpteq12dv φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d v w h 0 I | finSupp 0 h | w f u i v R j u f v = v w h 0 I | finSupp 0 h | w f x D i v R j x D f v
334 333 oveq2d φ i M j M d = D f = i W j x h 0 I | finSupp 0 h u = x d R v w h 0 I | finSupp 0 h | w f u i v R j u f v = R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v
335 5 ad4antr φ i M j M d = D f = i W j x h 0 I | finSupp 0 h I V
336 9 ad4antr φ i M j M d = D f = i W j x h 0 I | finSupp 0 h D P
337 325 336 eqeltrd φ i M j M d = D f = i W j x h 0 I | finSupp 0 h d P
338 simpr φ i M j M d = D f = i W j x h 0 I | finSupp 0 h x h 0 I | finSupp 0 h
339 1 2 335 337 338 mplvrpmlem φ i M j M d = D f = i W j x h 0 I | finSupp 0 h x d h 0 I | finSupp 0 h
340 ovexd φ i M j M d = D f = i W j x h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v V
341 323 334 339 340 fvmptd φ i M j M d = D f = i W j x h 0 I | finSupp 0 h f x d = R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v
342 341 mpteq2dva φ i M j M d = D f = i W j x h 0 I | finSupp 0 h f x d = x h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v
343 14 ad2antrr φ i M j M W Ring
344 11 13 343 103 123 ringcld φ i M j M i W j M
345 77 a1i φ i M j M h 0 I | finSupp 0 h V
346 345 mptexd φ i M j M x h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v V
347 318 342 143 344 346 ovmpod φ i M j M D A i W j = x h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v
348 317 347 sylan9eqr φ i M j M f = i W j D A f = x h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v
349 6 348 344 346 fvmptd2 φ i M j M F i W j = x h 0 I | finSupp 0 h R v w h 0 I | finSupp 0 h | w f x D i v R j x D f v
350 1 2 3 4 5 mplvrpmga φ A S GrpAct M
351 2 gaf A S GrpAct M A : P × M M
352 350 351 syl φ A : P × M M
353 352 fovcld φ D P f M D A f M
354 353 3expa φ D P f M D A f M
355 354 an32s φ f M D P D A f M
356 9 355 mpidan φ f M D A f M
357 356 6 fmptd φ F : M M
358 357 ad2antrr φ i M j M F : M M
359 358 103 ffvelcdmd φ i M j M F i M
360 358 123 ffvelcdmd φ i M j M F j M
361 7 11 115 13 23 359 360 mplmul φ i M j M F i W F j = x h 0 I | finSupp 0 h R y z h 0 I | finSupp 0 h | z f x F i y R F j x f y
362 316 349 361 3eqtr4d φ i M j M F i W j = F i W F j
363 362 anasss φ i M j M F i W j = F i W F j
364 eqid + W = + W
365 1 2 3 4 5 6 7 8 9 mplvrpmmhm φ F W MndHom W
366 365 ad2antrr φ i M j M F W MndHom W
367 11 364 364 mhmlin F W MndHom W i M j M F i + W j = F i + W F j
368 366 103 123 367 syl3anc φ i M j M F i + W j = F i + W F j
369 368 anasss φ i M j M F i + W j = F i + W F j
370 11 12 12 13 13 14 14 90 363 11 364 364 357 369 isrhmd φ F W RingHom W