Metamath Proof Explorer


Theorem dvnprodlem2

Description: Induction step for dvnprodlem2 . (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses dvnprodlem2.s φ S
dvnprodlem2.x φ X TopOpen fld 𝑡 S
dvnprodlem2.t φ T Fin
dvnprodlem2.h φ t T H t : X
dvnprodlem2.n φ N 0
dvnprodlem2.dvnh φ t T j 0 N S D n H t j : X
dvnprodlem2.c C = s 𝒫 T n 0 c 0 n s | t s c t = n
dvnprodlem2.r φ R T
dvnprodlem2.z φ Z T R
dvnprodlem2.ind φ k 0 N S D n x X t R H t x k = x X c C R k k ! t R c t ! t R S D n H t c t x
dvnprodlem2.j φ J 0 N
dvnprodlem2.d D = c C R Z J J c Z c R
Assertion dvnprodlem2 φ S D n x X t R Z H t x J = x X c C R Z J J ! t R Z c t ! t R Z S D n H t c t x

Proof

Step Hyp Ref Expression
1 dvnprodlem2.s φ S
2 dvnprodlem2.x φ X TopOpen fld 𝑡 S
3 dvnprodlem2.t φ T Fin
4 dvnprodlem2.h φ t T H t : X
5 dvnprodlem2.n φ N 0
6 dvnprodlem2.dvnh φ t T j 0 N S D n H t j : X
7 dvnprodlem2.c C = s 𝒫 T n 0 c 0 n s | t s c t = n
8 dvnprodlem2.r φ R T
9 dvnprodlem2.z φ Z T R
10 dvnprodlem2.ind φ k 0 N S D n x X t R H t x k = x X c C R k k ! t R c t ! t R S D n H t c t x
11 dvnprodlem2.j φ J 0 N
12 dvnprodlem2.d D = c C R Z J J c Z c R
13 nfv t φ x X
14 nfcv _ t H Z x
15 ssfi T Fin R T R Fin
16 3 8 15 syl2anc φ R Fin
17 16 adantr φ x X R Fin
18 9 adantr φ x X Z T R
19 9 eldifbd φ ¬ Z R
20 19 adantr φ x X ¬ Z R
21 simpl φ t R φ
22 8 sselda φ t R t T
23 21 22 4 syl2anc φ t R H t : X
24 23 adantlr φ x X t R H t : X
25 simplr φ x X t R x X
26 24 25 ffvelrnd φ x X t R H t x
27 fveq2 t = Z H t = H Z
28 27 fveq1d t = Z H t x = H Z x
29 id φ φ
30 eldifi Z T R Z T
31 9 30 syl φ Z T
32 simpr φ Z T Z T
33 id φ Z T φ Z T
34 eleq1 t = Z t T Z T
35 34 anbi2d t = Z φ t T φ Z T
36 27 feq1d t = Z H t : X H Z : X
37 35 36 imbi12d t = Z φ t T H t : X φ Z T H Z : X
38 37 4 vtoclg Z T φ Z T H Z : X
39 32 33 38 sylc φ Z T H Z : X
40 29 31 39 syl2anc φ H Z : X
41 40 adantr φ x X H Z : X
42 simpr φ x X x X
43 41 42 ffvelrnd φ x X H Z x
44 13 14 17 18 20 26 28 43 fprodsplitsn φ x X t R Z H t x = t R H t x H Z x
45 44 mpteq2dva φ x X t R Z H t x = x X t R H t x H Z x
46 45 oveq2d φ S D n x X t R Z H t x = S D n x X t R H t x H Z x
47 46 fveq1d φ S D n x X t R Z H t x J = S D n x X t R H t x H Z x J
48 13 17 26 fprodclf φ x X t R H t x
49 elfznn0 J 0 N J 0
50 11 49 syl φ J 0
51 eqid x X t R H t x = x X t R H t x
52 eqid x X H Z x = x X H Z x
53 oveq2 s = R 0 n s = 0 n R
54 rabeq 0 n s = 0 n R c 0 n s | t s c t = n = c 0 n R | t s c t = n
55 53 54 syl s = R c 0 n s | t s c t = n = c 0 n R | t s c t = n
56 sumeq1 s = R t s c t = t R c t
57 56 eqeq1d s = R t s c t = n t R c t = n
58 57 rabbidv s = R c 0 n R | t s c t = n = c 0 n R | t R c t = n
59 55 58 eqtrd s = R c 0 n s | t s c t = n = c 0 n R | t R c t = n
60 59 mpteq2dv s = R n 0 c 0 n s | t s c t = n = n 0 c 0 n R | t R c t = n
61 ssexg R T T Fin R V
62 8 3 61 syl2anc φ R V
63 elpwg R V R 𝒫 T R T
64 62 63 syl φ R 𝒫 T R T
65 8 64 mpbird φ R 𝒫 T
66 65 adantr φ k 0 J R 𝒫 T
67 nn0ex 0 V
68 67 mptex n 0 c 0 n R | t R c t = n V
69 68 a1i φ k 0 J n 0 c 0 n R | t R c t = n V
70 7 60 66 69 fvmptd3 φ k 0 J C R = n 0 c 0 n R | t R c t = n
71 oveq2 n = k 0 n = 0 k
72 71 oveq1d n = k 0 n R = 0 k R
73 rabeq 0 n R = 0 k R c 0 n R | t R c t = n = c 0 k R | t R c t = n
74 72 73 syl n = k c 0 n R | t R c t = n = c 0 k R | t R c t = n
75 eqeq2 n = k t R c t = n t R c t = k
76 75 rabbidv n = k c 0 k R | t R c t = n = c 0 k R | t R c t = k
77 74 76 eqtrd n = k c 0 n R | t R c t = n = c 0 k R | t R c t = k
78 77 adantl φ k 0 J n = k c 0 n R | t R c t = n = c 0 k R | t R c t = k
79 elfznn0 k 0 J k 0
80 79 adantl φ k 0 J k 0
81 fzfid φ 0 k Fin
82 mapfi 0 k Fin R Fin 0 k R Fin
83 81 16 82 syl2anc φ 0 k R Fin
84 83 adantr φ k 0 J 0 k R Fin
85 ssrab2 c 0 k R | t R c t = k 0 k R
86 85 a1i φ k 0 J c 0 k R | t R c t = k 0 k R
87 84 86 ssexd φ k 0 J c 0 k R | t R c t = k V
88 70 78 80 87 fvmptd φ k 0 J C R k = c 0 k R | t R c t = k
89 ssfi 0 k R Fin c 0 k R | t R c t = k 0 k R c 0 k R | t R c t = k Fin
90 83 85 89 sylancl φ c 0 k R | t R c t = k Fin
91 90 adantr φ k 0 J c 0 k R | t R c t = k Fin
92 88 91 eqeltrd φ k 0 J C R k Fin
93 92 adantr φ k 0 J x X C R k Fin
94 79 faccld k 0 J k !
95 94 nncnd k 0 J k !
96 95 ad2antlr φ k 0 J c C R k k !
97 16 adantr φ c C R k R Fin
98 97 adantlr φ k 0 J c C R k R Fin
99 elfznn0 z 0 k z 0
100 99 ssriv 0 k 0
101 100 a1i φ k 0 J c C R k t R 0 k 0
102 simpr φ k 0 J c C R k c C R k
103 88 eleq2d φ k 0 J c C R k c c 0 k R | t R c t = k
104 103 adantr φ k 0 J c C R k c C R k c c 0 k R | t R c t = k
105 102 104 mpbid φ k 0 J c C R k c c 0 k R | t R c t = k
106 85 sseli c c 0 k R | t R c t = k c 0 k R
107 105 106 syl φ k 0 J c C R k c 0 k R
108 elmapi c 0 k R c : R 0 k
109 107 108 syl φ k 0 J c C R k c : R 0 k
110 109 adantr φ k 0 J c C R k t R c : R 0 k
111 simpr φ k 0 J c C R k t R t R
112 110 111 ffvelrnd φ k 0 J c C R k t R c t 0 k
113 101 112 sseldd φ k 0 J c C R k t R c t 0
114 113 faccld φ k 0 J c C R k t R c t !
115 114 nncnd φ k 0 J c C R k t R c t !
116 98 115 fprodcl φ k 0 J c C R k t R c t !
117 114 nnne0d φ k 0 J c C R k t R c t ! 0
118 98 115 117 fprodn0 φ k 0 J c C R k t R c t ! 0
119 96 116 118 divcld φ k 0 J c C R k k ! t R c t !
120 119 adantlr φ k 0 J x X c C R k k ! t R c t !
121 98 adantlr φ k 0 J x X c C R k R Fin
122 29 ad4antr φ k 0 J x X c C R k t R φ
123 122 22 sylancom φ k 0 J x X c C R k t R t T
124 elfzuz3 k 0 J J k
125 fzss2 J k 0 k 0 J
126 124 125 syl k 0 J 0 k 0 J
127 126 adantl φ k 0 J 0 k 0 J
128 50 nn0zd φ J
129 5 nn0zd φ N
130 elfzle2 J 0 N J N
131 11 130 syl φ J N
132 128 129 131 3jca φ J N J N
133 eluz2 N J J N J N
134 132 133 sylibr φ N J
135 fzss2 N J 0 J 0 N
136 134 135 syl φ 0 J 0 N
137 136 adantr φ k 0 J 0 J 0 N
138 127 137 sstrd φ k 0 J 0 k 0 N
139 138 ad2antrr φ k 0 J c C R k t R 0 k 0 N
140 139 112 sseldd φ k 0 J c C R k t R c t 0 N
141 140 adantllr φ k 0 J x X c C R k t R c t 0 N
142 fvex c t V
143 eleq1 j = c t j 0 N c t 0 N
144 143 3anbi3d j = c t φ t T j 0 N φ t T c t 0 N
145 fveq2 j = c t S D n H t j = S D n H t c t
146 145 feq1d j = c t S D n H t j : X S D n H t c t : X
147 144 146 imbi12d j = c t φ t T j 0 N S D n H t j : X φ t T c t 0 N S D n H t c t : X
148 142 147 6 vtocl φ t T c t 0 N S D n H t c t : X
149 122 123 141 148 syl3anc φ k 0 J x X c C R k t R S D n H t c t : X
150 simpllr φ k 0 J x X c C R k t R x X
151 149 150 ffvelrnd φ k 0 J x X c C R k t R S D n H t c t x
152 121 151 fprodcl φ k 0 J x X c C R k t R S D n H t c t x
153 120 152 mulcld φ k 0 J x X c C R k k ! t R c t ! t R S D n H t c t x
154 93 153 fsumcl φ k 0 J x X c C R k k ! t R c t ! t R S D n H t c t x
155 154 fmpttd φ k 0 J x X c C R k k ! t R c t ! t R S D n H t c t x : X
156 10 adantr φ k 0 J k 0 N S D n x X t R H t x k = x X c C R k k ! t R c t ! t R S D n H t c t x
157 0zd φ k 0 J 0
158 129 adantr φ k 0 J N
159 elfzelz k 0 J k
160 159 adantl φ k 0 J k
161 157 158 160 3jca φ k 0 J 0 N k
162 elfzle1 k 0 J 0 k
163 162 adantl φ k 0 J 0 k
164 160 zred φ k 0 J k
165 50 nn0red φ J
166 165 adantr φ k 0 J J
167 158 zred φ k 0 J N
168 elfzle2 k 0 J k J
169 168 adantl φ k 0 J k J
170 131 adantr φ k 0 J J N
171 164 166 167 169 170 letrd φ k 0 J k N
172 161 163 171 jca32 φ k 0 J 0 N k 0 k k N
173 elfz2 k 0 N 0 N k 0 k k N
174 172 173 sylibr φ k 0 J k 0 N
175 rspa k 0 N S D n x X t R H t x k = x X c C R k k ! t R c t ! t R S D n H t c t x k 0 N S D n x X t R H t x k = x X c C R k k ! t R c t ! t R S D n H t c t x
176 156 174 175 syl2anc φ k 0 J S D n x X t R H t x k = x X c C R k k ! t R c t ! t R S D n H t c t x
177 176 feq1d φ k 0 J S D n x X t R H t x k : X x X c C R k k ! t R c t ! t R S D n H t c t x : X
178 155 177 mpbird φ k 0 J S D n x X t R H t x k : X
179 31 adantr φ k 0 J Z T
180 simpl φ k 0 J φ
181 180 179 174 3jca φ k 0 J φ Z T k 0 N
182 34 3anbi2d t = Z φ t T k 0 N φ Z T k 0 N
183 27 oveq2d t = Z S D n H t = S D n H Z
184 183 fveq1d t = Z S D n H t k = S D n H Z k
185 184 feq1d t = Z S D n H t k : X S D n H Z k : X
186 182 185 imbi12d t = Z φ t T k 0 N S D n H t k : X φ Z T k 0 N S D n H Z k : X
187 eleq1 j = k j 0 N k 0 N
188 187 3anbi3d j = k φ t T j 0 N φ t T k 0 N
189 fveq2 j = k S D n H t j = S D n H t k
190 189 feq1d j = k S D n H t j : X S D n H t k : X
191 188 190 imbi12d j = k φ t T j 0 N S D n H t j : X φ t T k 0 N S D n H t k : X
192 191 6 chvarvv φ t T k 0 N S D n H t k : X
193 186 192 vtoclg Z T φ Z T k 0 N S D n H Z k : X
194 179 181 193 sylc φ k 0 J S D n H Z k : X
195 40 feqmptd φ H Z = x X H Z x
196 195 eqcomd φ x X H Z x = H Z
197 196 oveq2d φ S D n x X H Z x = S D n H Z
198 197 fveq1d φ S D n x X H Z x k = S D n H Z k
199 198 adantr φ k 0 J S D n x X H Z x k = S D n H Z k
200 199 feq1d φ k 0 J S D n x X H Z x k : X S D n H Z k : X
201 194 200 mpbird φ k 0 J S D n x X H Z x k : X
202 fveq2 y = x H t y = H t x
203 202 prodeq2ad y = x t R H t y = t R H t x
204 203 cbvmptv y X t R H t y = x X t R H t x
205 204 oveq2i S D n y X t R H t y = S D n x X t R H t x
206 205 fveq1i S D n y X t R H t y k = S D n x X t R H t x k
207 206 mpteq2i k 0 J S D n y X t R H t y k = k 0 J S D n x X t R H t x k
208 fveq2 y = x H Z y = H Z x
209 208 cbvmptv y X H Z y = x X H Z x
210 209 oveq2i S D n y X H Z y = S D n x X H Z x
211 210 fveq1i S D n y X H Z y k = S D n x X H Z x k
212 211 mpteq2i k 0 J S D n y X H Z y k = k 0 J S D n x X H Z x k
213 1 2 48 43 50 51 52 178 201 207 212 dvnmul φ S D n x X t R H t x H Z x J = x X k = 0 J ( J k) k 0 J S D n y X t R H t y k k x k 0 J S D n y X H Z y k J k x
214 206 a1i φ k 0 J S D n y X t R H t y k = S D n x X t R H t x k
215 10 r19.21bi φ k 0 N S D n x X t R H t x k = x X c C R k k ! t R c t ! t R S D n H t c t x
216 180 174 215 syl2anc φ k 0 J S D n x X t R H t x k = x X c C R k k ! t R c t ! t R S D n H t c t x
217 214 216 eqtrd φ k 0 J S D n y X t R H t y k = x X c C R k k ! t R c t ! t R S D n H t c t x
218 217 mpteq2dva φ k 0 J S D n y X t R H t y k = k 0 J x X c C R k k ! t R c t ! t R S D n H t c t x
219 mptexg X TopOpen fld 𝑡 S x X c C R k k ! t R c t ! t R S D n H t c t x V
220 2 219 syl φ x X c C R k k ! t R c t ! t R S D n H t c t x V
221 220 adantr φ k 0 J x X c C R k k ! t R c t ! t R S D n H t c t x V
222 218 221 fvmpt2d φ k 0 J k 0 J S D n y X t R H t y k k = x X c C R k k ! t R c t ! t R S D n H t c t x
223 222 adantlr φ x X k 0 J k 0 J S D n y X t R H t y k k = x X c C R k k ! t R c t ! t R S D n H t c t x
224 223 fveq1d φ x X k 0 J k 0 J S D n y X t R H t y k k x = x X c C R k k ! t R c t ! t R S D n H t c t x x
225 42 adantr φ x X k 0 J x X
226 154 an32s φ x X k 0 J c C R k k ! t R c t ! t R S D n H t c t x
227 eqid x X c C R k k ! t R c t ! t R S D n H t c t x = x X c C R k k ! t R c t ! t R S D n H t c t x
228 227 fvmpt2 x X c C R k k ! t R c t ! t R S D n H t c t x x X c C R k k ! t R c t ! t R S D n H t c t x x = c C R k k ! t R c t ! t R S D n H t c t x
229 225 226 228 syl2anc φ x X k 0 J x X c C R k k ! t R c t ! t R S D n H t c t x x = c C R k k ! t R c t ! t R S D n H t c t x
230 224 229 eqtrd φ x X k 0 J k 0 J S D n y X t R H t y k k x = c C R k k ! t R c t ! t R S D n H t c t x
231 fveq2 k = j S D n y X H Z y k = S D n y X H Z y j
232 231 cbvmptv k 0 J S D n y X H Z y k = j 0 J S D n y X H Z y j
233 232 a1i φ k 0 J S D n y X H Z y k = j 0 J S D n y X H Z y j
234 210 197 syl5eq φ S D n y X H Z y = S D n H Z
235 234 fveq1d φ S D n y X H Z y j = S D n H Z j
236 235 mpteq2dv φ j 0 J S D n y X H Z y j = j 0 J S D n H Z j
237 233 236 eqtrd φ k 0 J S D n y X H Z y k = j 0 J S D n H Z j
238 237 adantr φ k 0 J k 0 J S D n y X H Z y k = j 0 J S D n H Z j
239 fveq2 j = J k S D n H Z j = S D n H Z J k
240 239 adantl φ k 0 J j = J k S D n H Z j = S D n H Z J k
241 0zd k 0 J 0
242 elfzel2 k 0 J J
243 242 159 zsubcld k 0 J J k
244 241 242 243 3jca k 0 J 0 J J k
245 242 zred k 0 J J
246 79 nn0red k 0 J k
247 245 246 subge0d k 0 J 0 J k k J
248 168 247 mpbird k 0 J 0 J k
249 245 246 subge02d k 0 J 0 k J k J
250 162 249 mpbid k 0 J J k J
251 244 248 250 jca32 k 0 J 0 J J k 0 J k J k J
252 251 adantl φ k 0 J 0 J J k 0 J k J k J
253 elfz2 J k 0 J 0 J J k 0 J k J k J
254 252 253 sylibr φ k 0 J J k 0 J
255 fvex S D n H Z J k V
256 255 a1i φ k 0 J S D n H Z J k V
257 238 240 254 256 fvmptd φ k 0 J k 0 J S D n y X H Z y k J k = S D n H Z J k
258 257 adantlr φ x X k 0 J k 0 J S D n y X H Z y k J k = S D n H Z J k
259 258 fveq1d φ x X k 0 J k 0 J S D n y X H Z y k J k x = S D n H Z J k x
260 230 259 oveq12d φ x X k 0 J k 0 J S D n y X t R H t y k k x k 0 J S D n y X H Z y k J k x = c C R k k ! t R c t ! t R S D n H t c t x S D n H Z J k x
261 260 oveq2d φ x X k 0 J ( J k) k 0 J S D n y X t R H t y k k x k 0 J S D n y X H Z y k J k x = ( J k) c C R k k ! t R c t ! t R S D n H t c t x S D n H Z J k x
262 92 adantlr φ x X k 0 J C R k Fin
263 ovex J k V
264 eleq1 j = J k j 0 J J k 0 J
265 264 anbi2d j = J k φ j 0 J φ J k 0 J
266 239 feq1d j = J k S D n H Z j : X S D n H Z J k : X
267 265 266 imbi12d j = J k φ j 0 J S D n H Z j : X φ J k 0 J S D n H Z J k : X
268 eleq1 k = j k 0 J j 0 J
269 268 anbi2d k = j φ k 0 J φ j 0 J
270 fveq2 k = j S D n H Z k = S D n H Z j
271 270 feq1d k = j S D n H Z k : X S D n H Z j : X
272 269 271 imbi12d k = j φ k 0 J S D n H Z k : X φ j 0 J S D n H Z j : X
273 272 194 chvarvv φ j 0 J S D n H Z j : X
274 263 267 273 vtocl φ J k 0 J S D n H Z J k : X
275 180 254 274 syl2anc φ k 0 J S D n H Z J k : X
276 275 adantlr φ x X k 0 J S D n H Z J k : X
277 276 225 ffvelrnd φ x X k 0 J S D n H Z J k x
278 anass φ k 0 J x X φ k 0 J x X
279 ancom k 0 J x X x X k 0 J
280 279 anbi2i φ k 0 J x X φ x X k 0 J
281 anass φ x X k 0 J φ x X k 0 J
282 281 bicomi φ x X k 0 J φ x X k 0 J
283 280 282 bitri φ k 0 J x X φ x X k 0 J
284 278 283 bitri φ k 0 J x X φ x X k 0 J
285 284 anbi1i φ k 0 J x X c C R k φ x X k 0 J c C R k
286 285 imbi1i φ k 0 J x X c C R k k ! t R c t ! t R S D n H t c t x φ x X k 0 J c C R k k ! t R c t ! t R S D n H t c t x
287 153 286 mpbi φ x X k 0 J c C R k k ! t R c t ! t R S D n H t c t x
288 262 277 287 fsummulc1 φ x X k 0 J c C R k k ! t R c t ! t R S D n H t c t x S D n H Z J k x = c C R k k ! t R c t ! t R S D n H t c t x S D n H Z J k x
289 288 oveq2d φ x X k 0 J ( J k) c C R k k ! t R c t ! t R S D n H t c t x S D n H Z J k x = ( J k) c C R k k ! t R c t ! t R S D n H t c t x S D n H Z J k x
290 180 50 syl φ k 0 J J 0
291 290 160 bccld φ k 0 J ( J k) 0
292 291 nn0cnd φ k 0 J ( J k)
293 292 adantlr φ x X k 0 J ( J k)
294 277 adantr φ x X k 0 J c C R k S D n H Z J k x
295 287 294 mulcld φ x X k 0 J c C R k k ! t R c t ! t R S D n H t c t x S D n H Z J k x
296 262 293 295 fsummulc2 φ x X k 0 J ( J k) c C R k k ! t R c t ! t R S D n H t c t x S D n H Z J k x = c C R k ( J k) k ! t R c t ! t R S D n H t c t x S D n H Z J k x
297 261 289 296 3eqtrd φ x X k 0 J ( J k) k 0 J S D n y X t R H t y k k x k 0 J S D n y X H Z y k J k x = c C R k ( J k) k ! t R c t ! t R S D n H t c t x S D n H Z J k x
298 297 sumeq2dv φ x X k = 0 J ( J k) k 0 J S D n y X t R H t y k k x k 0 J S D n y X H Z y k J k x = k = 0 J c C R k ( J k) k ! t R c t ! t R S D n H t c t x S D n H Z J k x
299 vex k V
300 vex c V
301 299 300 op1std p = k c 1 st p = k
302 301 oveq2d p = k c ( J 1 st p ) = ( J k)
303 301 fveq2d p = k c 1 st p ! = k !
304 299 300 op2ndd p = k c 2 nd p = c
305 304 fveq1d p = k c 2 nd p t = c t
306 305 fveq2d p = k c 2 nd p t ! = c t !
307 306 prodeq2ad p = k c t R 2 nd p t ! = t R c t !
308 303 307 oveq12d p = k c 1 st p ! t R 2 nd p t ! = k ! t R c t !
309 305 fveq2d p = k c S D n H t 2 nd p t = S D n H t c t
310 309 fveq1d p = k c S D n H t 2 nd p t x = S D n H t c t x
311 310 prodeq2ad p = k c t R S D n H t 2 nd p t x = t R S D n H t c t x
312 308 311 oveq12d p = k c 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x = k ! t R c t ! t R S D n H t c t x
313 301 oveq2d p = k c J 1 st p = J k
314 313 fveq2d p = k c S D n H Z J 1 st p = S D n H Z J k
315 314 fveq1d p = k c S D n H Z J 1 st p x = S D n H Z J k x
316 312 315 oveq12d p = k c 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x S D n H Z J 1 st p x = k ! t R c t ! t R S D n H t c t x S D n H Z J k x
317 302 316 oveq12d p = k c ( J 1 st p ) 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x S D n H Z J 1 st p x = ( J k) k ! t R c t ! t R S D n H t c t x S D n H Z J k x
318 fzfid φ x X 0 J Fin
319 293 adantrr φ x X k 0 J c C R k ( J k)
320 295 anasss φ x X k 0 J c C R k k ! t R c t ! t R S D n H t c t x S D n H Z J k x
321 319 320 mulcld φ x X k 0 J c C R k ( J k) k ! t R c t ! t R S D n H t c t x S D n H Z J k x
322 317 318 262 321 fsum2d φ x X k = 0 J c C R k ( J k) k ! t R c t ! t R S D n H t c t x S D n H Z J k x = p k = 0 J k × C R k ( J 1 st p ) 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x S D n H Z J 1 st p x
323 ovex J c Z V
324 300 resex c R V
325 323 324 op1std p = J c Z c R 1 st p = J c Z
326 325 oveq2d p = J c Z c R ( J 1 st p ) = ( J J c Z )
327 325 fveq2d p = J c Z c R 1 st p ! = J c Z !
328 323 324 op2ndd p = J c Z c R 2 nd p = c R
329 328 fveq1d p = J c Z c R 2 nd p t = c R t
330 329 fveq2d p = J c Z c R 2 nd p t ! = c R t !
331 330 prodeq2ad p = J c Z c R t R 2 nd p t ! = t R c R t !
332 327 331 oveq12d p = J c Z c R 1 st p ! t R 2 nd p t ! = J c Z ! t R c R t !
333 329 fveq2d p = J c Z c R S D n H t 2 nd p t = S D n H t c R t
334 333 fveq1d p = J c Z c R S D n H t 2 nd p t x = S D n H t c R t x
335 334 prodeq2ad p = J c Z c R t R S D n H t 2 nd p t x = t R S D n H t c R t x
336 332 335 oveq12d p = J c Z c R 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x = J c Z ! t R c R t ! t R S D n H t c R t x
337 325 oveq2d p = J c Z c R J 1 st p = J J c Z
338 337 fveq2d p = J c Z c R S D n H Z J 1 st p = S D n H Z J J c Z
339 338 fveq1d p = J c Z c R S D n H Z J 1 st p x = S D n H Z J J c Z x
340 336 339 oveq12d p = J c Z c R 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x S D n H Z J 1 st p x = J c Z ! t R c R t ! t R S D n H t c R t x S D n H Z J J c Z x
341 326 340 oveq12d p = J c Z c R ( J 1 st p ) 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x S D n H Z J 1 st p x = ( J J c Z ) J c Z ! t R c R t ! t R S D n H t c R t x S D n H Z J J c Z x
342 oveq2 s = R Z 0 n s = 0 n R Z
343 rabeq 0 n s = 0 n R Z c 0 n s | t s c t = n = c 0 n R Z | t s c t = n
344 342 343 syl s = R Z c 0 n s | t s c t = n = c 0 n R Z | t s c t = n
345 sumeq1 s = R Z t s c t = t R Z c t
346 345 eqeq1d s = R Z t s c t = n t R Z c t = n
347 346 rabbidv s = R Z c 0 n R Z | t s c t = n = c 0 n R Z | t R Z c t = n
348 344 347 eqtrd s = R Z c 0 n s | t s c t = n = c 0 n R Z | t R Z c t = n
349 348 mpteq2dv s = R Z n 0 c 0 n s | t s c t = n = n 0 c 0 n R Z | t R Z c t = n
350 31 snssd φ Z T
351 8 350 unssd φ R Z T
352 3 351 ssexd φ R Z V
353 elpwg R Z V R Z 𝒫 T R Z T
354 352 353 syl φ R Z 𝒫 T R Z T
355 351 354 mpbird φ R Z 𝒫 T
356 67 mptex n 0 c 0 n R Z | t R Z c t = n V
357 356 a1i φ n 0 c 0 n R Z | t R Z c t = n V
358 7 349 355 357 fvmptd3 φ C R Z = n 0 c 0 n R Z | t R Z c t = n
359 oveq2 n = J 0 n = 0 J
360 359 oveq1d n = J 0 n R Z = 0 J R Z
361 rabeq 0 n R Z = 0 J R Z c 0 n R Z | t R Z c t = n = c 0 J R Z | t R Z c t = n
362 360 361 syl n = J c 0 n R Z | t R Z c t = n = c 0 J R Z | t R Z c t = n
363 eqeq2 n = J t R Z c t = n t R Z c t = J
364 363 rabbidv n = J c 0 J R Z | t R Z c t = n = c 0 J R Z | t R Z c t = J
365 362 364 eqtrd n = J c 0 n R Z | t R Z c t = n = c 0 J R Z | t R Z c t = J
366 365 adantl φ n = J c 0 n R Z | t R Z c t = n = c 0 J R Z | t R Z c t = J
367 ovex 0 J R Z V
368 367 rabex c 0 J R Z | t R Z c t = J V
369 368 a1i φ c 0 J R Z | t R Z c t = J V
370 358 366 50 369 fvmptd φ C R Z J = c 0 J R Z | t R Z c t = J
371 fzfid φ 0 J Fin
372 snfi Z Fin
373 372 a1i φ Z Fin
374 unfi R Fin Z Fin R Z Fin
375 16 373 374 syl2anc φ R Z Fin
376 mapfi 0 J Fin R Z Fin 0 J R Z Fin
377 371 375 376 syl2anc φ 0 J R Z Fin
378 ssrab2 c 0 J R Z | t R Z c t = J 0 J R Z
379 378 a1i φ c 0 J R Z | t R Z c t = J 0 J R Z
380 ssfi 0 J R Z Fin c 0 J R Z | t R Z c t = J 0 J R Z c 0 J R Z | t R Z c t = J Fin
381 377 379 380 syl2anc φ c 0 J R Z | t R Z c t = J Fin
382 370 381 eqeltrd φ C R Z J Fin
383 382 adantr φ x X C R Z J Fin
384 7 50 12 3 31 19 351 dvnprodlem1 φ D : C R Z J 1-1 onto k = 0 J k × C R k
385 384 adantr φ x X D : C R Z J 1-1 onto k = 0 J k × C R k
386 simpr φ c C R Z J c C R Z J
387 opex J c Z c R V
388 387 a1i φ c C R Z J J c Z c R V
389 12 fvmpt2 c C R Z J J c Z c R V D c = J c Z c R
390 386 388 389 syl2anc φ c C R Z J D c = J c Z c R
391 390 adantlr φ x X c C R Z J D c = J c Z c R
392 50 adantr φ p k = 0 J k × C R k J 0
393 eliun p k = 0 J k × C R k k 0 J p k × C R k
394 393 biimpi p k = 0 J k × C R k k 0 J p k × C R k
395 394 adantl φ p k = 0 J k × C R k k 0 J p k × C R k
396 nfv k φ
397 nfcv _ k p
398 nfiu1 _ k k = 0 J k × C R k
399 397 398 nfel k p k = 0 J k × C R k
400 396 399 nfan k φ p k = 0 J k × C R k
401 nfv k 1 st p 0 J
402 xp1st p k × C R k 1 st p k
403 elsni 1 st p k 1 st p = k
404 402 403 syl p k × C R k 1 st p = k
405 404 adantl k 0 J p k × C R k 1 st p = k
406 simpl k 0 J p k × C R k k 0 J
407 405 406 eqeltrd k 0 J p k × C R k 1 st p 0 J
408 407 ex k 0 J p k × C R k 1 st p 0 J
409 408 a1i φ p k = 0 J k × C R k k 0 J p k × C R k 1 st p 0 J
410 400 401 409 rexlimd φ p k = 0 J k × C R k k 0 J p k × C R k 1 st p 0 J
411 395 410 mpd φ p k = 0 J k × C R k 1 st p 0 J
412 elfzelz 1 st p 0 J 1 st p
413 411 412 syl φ p k = 0 J k × C R k 1 st p
414 392 413 bccld φ p k = 0 J k × C R k ( J 1 st p ) 0
415 414 nn0cnd φ p k = 0 J k × C R k ( J 1 st p )
416 415 adantlr φ x X p k = 0 J k × C R k ( J 1 st p )
417 elfznn0 1 st p 0 J 1 st p 0
418 411 417 syl φ p k = 0 J k × C R k 1 st p 0
419 418 faccld φ p k = 0 J k × C R k 1 st p !
420 419 nncnd φ p k = 0 J k × C R k 1 st p !
421 420 adantlr φ x X p k = 0 J k × C R k 1 st p !
422 16 adantr φ p k = 0 J k × C R k R Fin
423 nfv k 2 nd p : R 0 J
424 88 86 eqsstrd φ k 0 J C R k 0 k R
425 ovex 0 J V
426 425 a1i k 0 J 0 J V
427 mapss 0 J V 0 k 0 J 0 k R 0 J R
428 426 126 427 syl2anc k 0 J 0 k R 0 J R
429 428 adantl φ k 0 J 0 k R 0 J R
430 424 429 sstrd φ k 0 J C R k 0 J R
431 430 3adant3 φ k 0 J p k × C R k C R k 0 J R
432 xp2nd p k × C R k 2 nd p C R k
433 432 3ad2ant3 φ k 0 J p k × C R k 2 nd p C R k
434 431 433 sseldd φ k 0 J p k × C R k 2 nd p 0 J R
435 elmapi 2 nd p 0 J R 2 nd p : R 0 J
436 434 435 syl φ k 0 J p k × C R k 2 nd p : R 0 J
437 436 3exp φ k 0 J p k × C R k 2 nd p : R 0 J
438 437 adantr φ p k = 0 J k × C R k k 0 J p k × C R k 2 nd p : R 0 J
439 400 423 438 rexlimd φ p k = 0 J k × C R k k 0 J p k × C R k 2 nd p : R 0 J
440 395 439 mpd φ p k = 0 J k × C R k 2 nd p : R 0 J
441 440 ffvelrnda φ p k = 0 J k × C R k t R 2 nd p t 0 J
442 elfznn0 2 nd p t 0 J 2 nd p t 0
443 442 faccld 2 nd p t 0 J 2 nd p t !
444 443 nncnd 2 nd p t 0 J 2 nd p t !
445 441 444 syl φ p k = 0 J k × C R k t R 2 nd p t !
446 422 445 fprodcl φ p k = 0 J k × C R k t R 2 nd p t !
447 446 adantlr φ x X p k = 0 J k × C R k t R 2 nd p t !
448 441 443 syl φ p k = 0 J k × C R k t R 2 nd p t !
449 nnne0 2 nd p t ! 2 nd p t ! 0
450 448 449 syl φ p k = 0 J k × C R k t R 2 nd p t ! 0
451 422 445 450 fprodn0 φ p k = 0 J k × C R k t R 2 nd p t ! 0
452 451 adantlr φ x X p k = 0 J k × C R k t R 2 nd p t ! 0
453 421 447 452 divcld φ x X p k = 0 J k × C R k 1 st p ! t R 2 nd p t !
454 17 adantr φ x X p k = 0 J k × C R k R Fin
455 simpll φ p k = 0 J k × C R k t R φ
456 455 22 sylancom φ p k = 0 J k × C R k t R t T
457 455 136 syl φ p k = 0 J k × C R k t R 0 J 0 N
458 457 441 sseldd φ p k = 0 J k × C R k t R 2 nd p t 0 N
459 455 456 458 3jca φ p k = 0 J k × C R k t R φ t T 2 nd p t 0 N
460 eleq1 j = 2 nd p t j 0 N 2 nd p t 0 N
461 460 3anbi3d j = 2 nd p t φ t T j 0 N φ t T 2 nd p t 0 N
462 fveq2 j = 2 nd p t S D n H t j = S D n H t 2 nd p t
463 462 feq1d j = 2 nd p t S D n H t j : X S D n H t 2 nd p t : X
464 461 463 imbi12d j = 2 nd p t φ t T j 0 N S D n H t j : X φ t T 2 nd p t 0 N S D n H t 2 nd p t : X
465 464 6 vtoclg 2 nd p t 0 J φ t T 2 nd p t 0 N S D n H t 2 nd p t : X
466 441 459 465 sylc φ p k = 0 J k × C R k t R S D n H t 2 nd p t : X
467 466 adantllr φ x X p k = 0 J k × C R k t R S D n H t 2 nd p t : X
468 25 adantlr φ x X p k = 0 J k × C R k t R x X
469 467 468 ffvelrnd φ x X p k = 0 J k × C R k t R S D n H t 2 nd p t x
470 454 469 fprodcl φ x X p k = 0 J k × C R k t R S D n H t 2 nd p t x
471 453 470 mulcld φ x X p k = 0 J k × C R k 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x
472 nfv k J 1 st p 0 J
473 simp1 φ k 0 J p k × C R k φ
474 407 3adant1 φ k 0 J p k × C R k 1 st p 0 J
475 fznn0sub2 1 st p 0 J J 1 st p 0 J
476 475 adantl φ 1 st p 0 J J 1 st p 0 J
477 473 474 476 syl2anc φ k 0 J p k × C R k J 1 st p 0 J
478 477 3exp φ k 0 J p k × C R k J 1 st p 0 J
479 478 adantr φ p k = 0 J k × C R k k 0 J p k × C R k J 1 st p 0 J
480 400 472 479 rexlimd φ p k = 0 J k × C R k k 0 J p k × C R k J 1 st p 0 J
481 395 480 mpd φ p k = 0 J k × C R k J 1 st p 0 J
482 simpl φ p k = 0 J k × C R k φ
483 482 31 syl φ p k = 0 J k × C R k Z T
484 482 136 syl φ p k = 0 J k × C R k 0 J 0 N
485 484 481 sseldd φ p k = 0 J k × C R k J 1 st p 0 N
486 482 483 485 3jca φ p k = 0 J k × C R k φ Z T J 1 st p 0 N
487 eleq1 j = J 1 st p j 0 N J 1 st p 0 N
488 487 3anbi3d j = J 1 st p φ Z T j 0 N φ Z T J 1 st p 0 N
489 fveq2 j = J 1 st p S D n H Z j = S D n H Z J 1 st p
490 489 feq1d j = J 1 st p S D n H Z j : X S D n H Z J 1 st p : X
491 488 490 imbi12d j = J 1 st p φ Z T j 0 N S D n H Z j : X φ Z T J 1 st p 0 N S D n H Z J 1 st p : X
492 simp2 φ Z T j 0 N Z T
493 id φ Z T j 0 N φ Z T j 0 N
494 34 3anbi2d t = Z φ t T j 0 N φ Z T j 0 N
495 183 fveq1d t = Z S D n H t j = S D n H Z j
496 495 feq1d t = Z S D n H t j : X S D n H Z j : X
497 494 496 imbi12d t = Z φ t T j 0 N S D n H t j : X φ Z T j 0 N S D n H Z j : X
498 497 6 vtoclg Z T φ Z T j 0 N S D n H Z j : X
499 492 493 498 sylc φ Z T j 0 N S D n H Z j : X
500 491 499 vtoclg J 1 st p 0 J φ Z T J 1 st p 0 N S D n H Z J 1 st p : X
501 481 486 500 sylc φ p k = 0 J k × C R k S D n H Z J 1 st p : X
502 501 adantlr φ x X p k = 0 J k × C R k S D n H Z J 1 st p : X
503 42 adantr φ x X p k = 0 J k × C R k x X
504 502 503 ffvelrnd φ x X p k = 0 J k × C R k S D n H Z J 1 st p x
505 471 504 mulcld φ x X p k = 0 J k × C R k 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x S D n H Z J 1 st p x
506 416 505 mulcld φ x X p k = 0 J k × C R k ( J 1 st p ) 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x S D n H Z J 1 st p x
507 341 383 385 391 506 fsumf1o φ x X p k = 0 J k × C R k ( J 1 st p ) 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x S D n H Z J 1 st p x = c C R Z J ( J J c Z ) J c Z ! t R c R t ! t R S D n H t c R t x S D n H Z J J c Z x
508 simpl φ c C R Z J φ
509 370 adantr φ c C R Z J C R Z J = c 0 J R Z | t R Z c t = J
510 386 509 eleqtrd φ c C R Z J c c 0 J R Z | t R Z c t = J
511 378 sseli c c 0 J R Z | t R Z c t = J c 0 J R Z
512 510 511 syl φ c C R Z J c 0 J R Z
513 elmapi c 0 J R Z c : R Z 0 J
514 512 513 syl φ c C R Z J c : R Z 0 J
515 snidg Z T Z Z
516 31 515 syl φ Z Z
517 elun2 Z Z Z R Z
518 516 517 syl φ Z R Z
519 518 adantr φ c C R Z J Z R Z
520 514 519 ffvelrnd φ c C R Z J c Z 0 J
521 0zd φ c Z 0 J 0
522 128 adantr φ c Z 0 J J
523 fzssz 0 J
524 523 sseli c Z 0 J c Z
525 524 adantl φ c Z 0 J c Z
526 522 525 zsubcld φ c Z 0 J J c Z
527 521 522 526 3jca φ c Z 0 J 0 J J c Z
528 elfzle2 c Z 0 J c Z J
529 528 adantl φ c Z 0 J c Z J
530 165 adantr φ c Z 0 J J
531 525 zred φ c Z 0 J c Z
532 530 531 subge0d φ c Z 0 J 0 J c Z c Z J
533 529 532 mpbird φ c Z 0 J 0 J c Z
534 elfzle1 c Z 0 J 0 c Z
535 534 adantl φ c Z 0 J 0 c Z
536 530 531 subge02d φ c Z 0 J 0 c Z J c Z J
537 535 536 mpbid φ c Z 0 J J c Z J
538 527 533 537 jca32 φ c Z 0 J 0 J J c Z 0 J c Z J c Z J
539 elfz2 J c Z 0 J 0 J J c Z 0 J c Z J c Z J
540 538 539 sylibr φ c Z 0 J J c Z 0 J
541 508 520 540 syl2anc φ c C R Z J J c Z 0 J
542 bcval2 J c Z 0 J ( J J c Z ) = J ! J J c Z ! J c Z !
543 541 542 syl φ c C R Z J ( J J c Z ) = J ! J J c Z ! J c Z !
544 165 recnd φ J
545 544 adantr φ c C R Z J J
546 zsscn
547 523 546 sstri 0 J
548 547 a1i φ c C R Z J 0 J
549 548 520 sseldd φ c C R Z J c Z
550 545 549 nncand φ c C R Z J J J c Z = c Z
551 550 fveq2d φ c C R Z J J J c Z ! = c Z !
552 551 oveq1d φ c C R Z J J J c Z ! J c Z ! = c Z ! J c Z !
553 552 oveq2d φ c C R Z J J ! J J c Z ! J c Z ! = J ! c Z ! J c Z !
554 50 faccld φ J !
555 554 nncnd φ J !
556 555 adantr φ c C R Z J J !
557 elfznn0 c Z 0 J c Z 0
558 520 557 syl φ c C R Z J c Z 0
559 558 faccld φ c C R Z J c Z !
560 559 nncnd φ c C R Z J c Z !
561 elfznn0 J c Z 0 J J c Z 0
562 541 561 syl φ c C R Z J J c Z 0
563 562 faccld φ c C R Z J J c Z !
564 563 nncnd φ c C R Z J J c Z !
565 559 nnne0d φ c C R Z J c Z ! 0
566 563 nnne0d φ c C R Z J J c Z ! 0
567 556 560 564 565 566 divdiv1d φ c C R Z J J ! c Z ! J c Z ! = J ! c Z ! J c Z !
568 567 eqcomd φ c C R Z J J ! c Z ! J c Z ! = J ! c Z ! J c Z !
569 543 553 568 3eqtrd φ c C R Z J ( J J c Z ) = J ! c Z ! J c Z !
570 569 adantlr φ x X c C R Z J ( J J c Z ) = J ! c Z ! J c Z !
571 fvres t R c R t = c t
572 571 fveq2d t R c R t ! = c t !
573 572 prodeq2i t R c R t ! = t R c t !
574 573 oveq2i J c Z ! t R c R t ! = J c Z ! t R c t !
575 571 fveq2d t R S D n H t c R t = S D n H t c t
576 575 fveq1d t R S D n H t c R t x = S D n H t c t x
577 576 prodeq2i t R S D n H t c R t x = t R S D n H t c t x
578 574 577 oveq12i J c Z ! t R c R t ! t R S D n H t c R t x = J c Z ! t R c t ! t R S D n H t c t x
579 578 a1i φ c C R Z J J c Z ! t R c R t ! t R S D n H t c R t x = J c Z ! t R c t ! t R S D n H t c t x
580 579 adantlr φ x X c C R Z J J c Z ! t R c R t ! t R S D n H t c R t x = J c Z ! t R c t ! t R S D n H t c t x
581 564 adantlr φ x X c C R Z J J c Z !
582 508 16 syl φ c C R Z J R Fin
583 79 ssriv 0 J 0
584 583 a1i φ c C R Z J t R 0 J 0
585 514 adantr φ c C R Z J t R c : R Z 0 J
586 elun1 t R t R Z
587 586 adantl φ c C R Z J t R t R Z
588 585 587 ffvelrnd φ c C R Z J t R c t 0 J
589 584 588 sseldd φ c C R Z J t R c t 0
590 589 faccld φ c C R Z J t R c t !
591 590 nncnd φ c C R Z J t R c t !
592 582 591 fprodcl φ c C R Z J t R c t !
593 592 adantlr φ x X c C R Z J t R c t !
594 17 adantr φ x X c C R Z J R Fin
595 508 adantr φ c C R Z J t R φ
596 508 22 sylan φ c C R Z J t R t T
597 595 136 syl φ c C R Z J t R 0 J 0 N
598 597 588 sseldd φ c C R Z J t R c t 0 N
599 595 596 598 148 syl3anc φ c C R Z J t R S D n H t c t : X
600 599 adantllr φ x X c C R Z J t R S D n H t c t : X
601 25 adantlr φ x X c C R Z J t R x X
602 600 601 ffvelrnd φ x X c C R Z J t R S D n H t c t x
603 594 602 fprodcl φ x X c C R Z J t R S D n H t c t x
604 582 590 fprodnncl φ c C R Z J t R c t !
605 nnne0 t R c t ! t R c t ! 0
606 604 605 syl φ c C R Z J t R c t ! 0
607 606 adantlr φ x X c C R Z J t R c t ! 0
608 581 593 603 607 div32d φ x X c C R Z J J c Z ! t R c t ! t R S D n H t c t x = J c Z ! t R S D n H t c t x t R c t !
609 580 608 eqtrd φ x X c C R Z J J c Z ! t R c R t ! t R S D n H t c R t x = J c Z ! t R S D n H t c t x t R c t !
610 550 fveq2d φ c C R Z J S D n H Z J J c Z = S D n H Z c Z
611 610 fveq1d φ c C R Z J S D n H Z J J c Z x = S D n H Z c Z x
612 611 adantlr φ x X c C R Z J S D n H Z J J c Z x = S D n H Z c Z x
613 609 612 oveq12d φ x X c C R Z J J c Z ! t R c R t ! t R S D n H t c R t x S D n H Z J J c Z x = J c Z ! t R S D n H t c t x t R c t ! S D n H Z c Z x
614 603 593 607 divcld φ x X c C R Z J t R S D n H t c t x t R c t !
615 508 31 syl φ c C R Z J Z T
616 508 136 syl φ c C R Z J 0 J 0 N
617 616 520 sseldd φ c C R Z J c Z 0 N
618 508 615 617 3jca φ c C R Z J φ Z T c Z 0 N
619 eleq1 j = c Z j 0 N c Z 0 N
620 619 3anbi3d j = c Z φ Z T j 0 N φ Z T c Z 0 N
621 fveq2 j = c Z S D n H Z j = S D n H Z c Z
622 621 feq1d j = c Z S D n H Z j : X S D n H Z c Z : X
623 620 622 imbi12d j = c Z φ Z T j 0 N S D n H Z j : X φ Z T c Z 0 N S D n H Z c Z : X
624 623 499 vtoclg c Z 0 J φ Z T c Z 0 N S D n H Z c Z : X
625 520 618 624 sylc φ c C R Z J S D n H Z c Z : X
626 625 adantlr φ x X c C R Z J S D n H Z c Z : X
627 42 adantr φ x X c C R Z J x X
628 626 627 ffvelrnd φ x X c C R Z J S D n H Z c Z x
629 581 614 628 mulassd φ x X c C R Z J J c Z ! t R S D n H t c t x t R c t ! S D n H Z c Z x = J c Z ! t R S D n H t c t x t R c t ! S D n H Z c Z x
630 613 629 eqtrd φ x X c C R Z J J c Z ! t R c R t ! t R S D n H t c R t x S D n H Z J J c Z x = J c Z ! t R S D n H t c t x t R c t ! S D n H Z c Z x
631 570 630 oveq12d φ x X c C R Z J ( J J c Z ) J c Z ! t R c R t ! t R S D n H t c R t x S D n H Z J J c Z x = J ! c Z ! J c Z ! J c Z ! t R S D n H t c t x t R c t ! S D n H Z c Z x
632 555 ad2antrr φ x X c C R Z J J !
633 560 adantlr φ x X c C R Z J c Z !
634 565 adantlr φ x X c C R Z J c Z ! 0
635 632 633 634 divcld φ x X c C R Z J J ! c Z !
636 614 628 mulcld φ x X c C R Z J t R S D n H t c t x t R c t ! S D n H Z c Z x
637 566 adantlr φ x X c C R Z J J c Z ! 0
638 635 581 636 637 dmmcand φ x X c C R Z J J ! c Z ! J c Z ! J c Z ! t R S D n H t c t x t R c t ! S D n H Z c Z x = J ! c Z ! t R S D n H t c t x t R c t ! S D n H Z c Z x
639 603 628 593 607 div23d φ x X c C R Z J t R S D n H t c t x S D n H Z c Z x t R c t ! = t R S D n H t c t x t R c t ! S D n H Z c Z x
640 639 eqcomd φ x X c C R Z J t R S D n H t c t x t R c t ! S D n H Z c Z x = t R S D n H t c t x S D n H Z c Z x t R c t !
641 nfv t φ x X c C R Z J
642 nfcv _ t S D n H Z c Z x
643 615 adantlr φ x X c C R Z J Z T
644 20 adantr φ x X c C R Z J ¬ Z R
645 fveq2 t = Z c t = c Z
646 183 645 fveq12d t = Z S D n H t c t = S D n H Z c Z
647 646 fveq1d t = Z S D n H t c t x = S D n H Z c Z x
648 641 642 594 643 644 602 647 628 fprodsplitsn φ x X c C R Z J t R Z S D n H t c t x = t R S D n H t c t x S D n H Z c Z x
649 648 eqcomd φ x X c C R Z J t R S D n H t c t x S D n H Z c Z x = t R Z S D n H t c t x
650 649 oveq1d φ x X c C R Z J t R S D n H t c t x S D n H Z c Z x t R c t ! = t R Z S D n H t c t x t R c t !
651 640 650 eqtrd φ x X c C R Z J t R S D n H t c t x t R c t ! S D n H Z c Z x = t R Z S D n H t c t x t R c t !
652 651 oveq2d φ x X c C R Z J J ! c Z ! t R S D n H t c t x t R c t ! S D n H Z c Z x = J ! c Z ! t R Z S D n H t c t x t R c t !
653 594 372 374 sylancl φ x X c C R Z J R Z Fin
654 508 adantr φ c C R Z J t R Z φ
655 351 sselda φ t R Z t T
656 655 adantlr φ c C R Z J t R Z t T
657 514 616 fssd φ c C R Z J c : R Z 0 N
658 657 ffvelrnda φ c C R Z J t R Z c t 0 N
659 654 656 658 148 syl3anc φ c C R Z J t R Z S D n H t c t : X
660 659 adantllr φ x X c C R Z J t R Z S D n H t c t : X
661 627 adantr φ x X c C R Z J t R Z x X
662 660 661 ffvelrnd φ x X c C R Z J t R Z S D n H t c t x
663 653 662 fprodcl φ x X c C R Z J t R Z S D n H t c t x
664 632 633 663 593 634 607 divmuldivd φ x X c C R Z J J ! c Z ! t R Z S D n H t c t x t R c t ! = J ! t R Z S D n H t c t x c Z ! t R c t !
665 560 592 mulcomd φ c C R Z J c Z ! t R c t ! = t R c t ! c Z !
666 nfv t φ c C R Z J
667 nfcv _ t c Z !
668 508 19 syl φ c C R Z J ¬ Z R
669 645 fveq2d t = Z c t ! = c Z !
670 666 667 582 615 668 591 669 560 fprodsplitsn φ c C R Z J t R Z c t ! = t R c t ! c Z !
671 670 eqcomd φ c C R Z J t R c t ! c Z ! = t R Z c t !
672 665 671 eqtrd φ c C R Z J c Z ! t R c t ! = t R Z c t !
673 672 oveq2d φ c C R Z J J ! t R Z S D n H t c t x c Z ! t R c t ! = J ! t R Z S D n H t c t x t R Z c t !
674 673 adantlr φ x X c C R Z J J ! t R Z S D n H t c t x c Z ! t R c t ! = J ! t R Z S D n H t c t x t R Z c t !
675 508 375 syl φ c C R Z J R Z Fin
676 583 a1i φ c C R Z J t R Z 0 J 0
677 514 ffvelrnda φ c C R Z J t R Z c t 0 J
678 676 677 sseldd φ c C R Z J t R Z c t 0
679 678 faccld φ c C R Z J t R Z c t !
680 679 nncnd φ c C R Z J t R Z c t !
681 675 680 fprodcl φ c C R Z J t R Z c t !
682 681 adantlr φ x X c C R Z J t R Z c t !
683 679 nnne0d φ c C R Z J t R Z c t ! 0
684 675 680 683 fprodn0 φ c C R Z J t R Z c t ! 0
685 684 adantlr φ x X c C R Z J t R Z c t ! 0
686 632 663 682 685 div23d φ x X c C R Z J J ! t R Z S D n H t c t x t R Z c t ! = J ! t R Z c t ! t R Z S D n H t c t x
687 eqidd φ x X c C R Z J J ! t R Z c t ! t R Z S D n H t c t x = J ! t R Z c t ! t R Z S D n H t c t x
688 674 686 687 3eqtrd φ x X c C R Z J J ! t R Z S D n H t c t x c Z ! t R c t ! = J ! t R Z c t ! t R Z S D n H t c t x
689 652 664 688 3eqtrd φ x X c C R Z J J ! c Z ! t R S D n H t c t x t R c t ! S D n H Z c Z x = J ! t R Z c t ! t R Z S D n H t c t x
690 631 638 689 3eqtrd φ x X c C R Z J ( J J c Z ) J c Z ! t R c R t ! t R S D n H t c R t x S D n H Z J J c Z x = J ! t R Z c t ! t R Z S D n H t c t x
691 690 sumeq2dv φ x X c C R Z J ( J J c Z ) J c Z ! t R c R t ! t R S D n H t c R t x S D n H Z J J c Z x = c C R Z J J ! t R Z c t ! t R Z S D n H t c t x
692 507 691 eqtrd φ x X p k = 0 J k × C R k ( J 1 st p ) 1 st p ! t R 2 nd p t ! t R S D n H t 2 nd p t x S D n H Z J 1 st p x = c C R Z J J ! t R Z c t ! t R Z S D n H t c t x
693 298 322 692 3eqtrd φ x X k = 0 J ( J k) k 0 J S D n y X t R H t y k k x k 0 J S D n y X H Z y k J k x = c C R Z J J ! t R Z c t ! t R Z S D n H t c t x
694 693 mpteq2dva φ x X k = 0 J ( J k) k 0 J S D n y X t R H t y k k x k 0 J S D n y X H Z y k J k x = x X c C R Z J J ! t R Z c t ! t R Z S D n H t c t x
695 47 213 694 3eqtrd φ S D n x X t R Z H t x J = x X c C R Z J J ! t R Z c t ! t R Z S D n H t c t x