Metamath Proof Explorer


Theorem dvmptfprod

Description: Function-builder for derivative, finite product rule. (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses dvmptfprod.iph iφ
dvmptfprod.jph jφ
dvmptfprod.j J=K𝑡S
dvmptfprod.k K=TopOpenfld
dvmptfprod.s φS
dvmptfprod.x φXJ
dvmptfprod.i φIFin
dvmptfprod.a φiIxXA
dvmptfprod.b φiIxXB
dvmptfprod.d φiIdxXAdSx=xXB
dvmptfprod.bc i=jB=C
Assertion dvmptfprod φdxXiIAdSx=xXjICiIjA

Proof

Step Hyp Ref Expression
1 dvmptfprod.iph iφ
2 dvmptfprod.jph jφ
3 dvmptfprod.j J=K𝑡S
4 dvmptfprod.k K=TopOpenfld
5 dvmptfprod.s φS
6 dvmptfprod.x φXJ
7 dvmptfprod.i φIFin
8 dvmptfprod.a φiIxXA
9 dvmptfprod.b φiIxXB
10 dvmptfprod.d φiIdxXAdSx=xXB
11 dvmptfprod.bc i=jB=C
12 ssid II
13 12 jctr φφII
14 sseq1 a=aII
15 14 anbi2d a=φaIφI
16 prodeq1 a=iaA=iA
17 16 mpteq2dv a=xXiaA=xXiA
18 17 oveq2d a=dxXiaAdSx=dxXiAdSx
19 sumeq1 a=jaCiajA=jCiajA
20 difeq1 a=aj=j
21 20 prodeq1d a=iajA=ijA
22 21 oveq2d a=CiajA=CijA
23 22 sumeq2sdv a=jCiajA=jCijA
24 19 23 eqtrd a=jaCiajA=jCijA
25 24 mpteq2dv a=xXjaCiajA=xXjCijA
26 18 25 eqeq12d a=dxXiaAdSx=xXjaCiajAdxXiAdSx=xXjCijA
27 15 26 imbi12d a=φaIdxXiaAdSx=xXjaCiajAφIdxXiAdSx=xXjCijA
28 sseq1 a=baIbI
29 28 anbi2d a=bφaIφbI
30 prodeq1 a=biaA=ibA
31 30 mpteq2dv a=bxXiaA=xXibA
32 31 oveq2d a=bdxXiaAdSx=dxXibAdSx
33 sumeq1 a=bjaCiajA=jbCiajA
34 difeq1 a=baj=bj
35 34 prodeq1d a=biajA=ibjA
36 35 oveq2d a=bCiajA=CibjA
37 36 sumeq2sdv a=bjbCiajA=jbCibjA
38 33 37 eqtrd a=bjaCiajA=jbCibjA
39 38 mpteq2dv a=bxXjaCiajA=xXjbCibjA
40 32 39 eqeq12d a=bdxXiaAdSx=xXjaCiajAdxXibAdSx=xXjbCibjA
41 29 40 imbi12d a=bφaIdxXiaAdSx=xXjaCiajAφbIdxXibAdSx=xXjbCibjA
42 sseq1 a=bcaIbcI
43 42 anbi2d a=bcφaIφbcI
44 prodeq1 a=bciaA=ibcA
45 44 mpteq2dv a=bcxXiaA=xXibcA
46 45 oveq2d a=bcdxXiaAdSx=dxXibcAdSx
47 sumeq1 a=bcjaCiajA=jbcCiajA
48 difeq1 a=bcaj=bcj
49 48 prodeq1d a=bciajA=ibcjA
50 49 oveq2d a=bcCiajA=CibcjA
51 50 sumeq2sdv a=bcjbcCiajA=jbcCibcjA
52 47 51 eqtrd a=bcjaCiajA=jbcCibcjA
53 52 mpteq2dv a=bcxXjaCiajA=xXjbcCibcjA
54 46 53 eqeq12d a=bcdxXiaAdSx=xXjaCiajAdxXibcAdSx=xXjbcCibcjA
55 43 54 imbi12d a=bcφaIdxXiaAdSx=xXjaCiajAφbcIdxXibcAdSx=xXjbcCibcjA
56 sseq1 a=IaIII
57 56 anbi2d a=IφaIφII
58 prodeq1 a=IiaA=iIA
59 58 mpteq2dv a=IxXiaA=xXiIA
60 59 oveq2d a=IdxXiaAdSx=dxXiIAdSx
61 sumeq1 a=IjaCiajA=jICiajA
62 difeq1 a=Iaj=Ij
63 62 prodeq1d a=IiajA=iIjA
64 63 oveq2d a=ICiajA=CiIjA
65 64 a1d a=IjICiajA=CiIjA
66 65 ralrimiv a=IjICiajA=CiIjA
67 66 sumeq2d a=IjICiajA=jICiIjA
68 61 67 eqtrd a=IjaCiajA=jICiIjA
69 68 mpteq2dv a=IxXjaCiajA=xXjICiIjA
70 60 69 eqeq12d a=IdxXiaAdSx=xXjaCiajAdxXiIAdSx=xXjICiIjA
71 57 70 imbi12d a=IφaIdxXiaAdSx=xXjaCiajAφIIdxXiIAdSx=xXjICiIjA
72 prod0 iA=1
73 72 mpteq2i xXiA=xX1
74 73 oveq2i dxXiAdSx=dxX1dSx
75 74 a1i φdxXiAdSx=dxX1dSx
76 4 oveq1i K𝑡S=TopOpenfld𝑡S
77 3 76 eqtri J=TopOpenfld𝑡S
78 6 77 eleqtrdi φXTopOpenfld𝑡S
79 1cnd φ1
80 5 78 79 dvmptconst φdxX1dSx=xX0
81 sum0 jCijA=0
82 81 eqcomi 0=jCijA
83 82 mpteq2i xX0=xXjCijA
84 83 a1i φxX0=xXjCijA
85 75 80 84 3eqtrd φdxXiAdSx=xXjCijA
86 85 adantr φIdxXiAdSx=xXjCijA
87 simp3 bFin¬cbφbIdxXibAdSx=xXjbCibjAφbcIφbcI
88 simp1r bFin¬cbφbIdxXibAdSx=xXjbCibjAφbcI¬cb
89 simpl φbcIφ
90 ssun1 bbc
91 sstr2 bbcbcIbI
92 90 91 ax-mp bcIbI
93 92 adantl φbcIbI
94 89 93 jca φbcIφbI
95 94 adantl φbIdxXibAdSx=xXjbCibjAφbcIφbI
96 simpl φbIdxXibAdSx=xXjbCibjAφbcIφbIdxXibAdSx=xXjbCibjA
97 95 96 mpd φbIdxXibAdSx=xXjbCibjAφbcIdxXibAdSx=xXjbCibjA
98 97 3adant1 bFin¬cbφbIdxXibAdSx=xXjbCibjAφbcIdxXibAdSx=xXjbCibjA
99 nfv xφbcI¬cb
100 nfcv _xS
101 nfcv _xD
102 nfmpt1 _xxXibA
103 100 101 102 nfov _xdxXibAdSx
104 nfmpt1 _xxXjbCibjA
105 103 104 nfeq xdxXibAdSx=xXjbCibjA
106 99 105 nfan xφbcI¬cbdxXibAdSx=xXjbCibjA
107 nfv ibcI
108 1 107 nfan iφbcI
109 nfv i¬cb
110 108 109 nfan iφbcI¬cb
111 nfcv _iS
112 nfcv _iD
113 nfcv _iX
114 nfcv _ib
115 114 nfcprod1 _iibA
116 113 115 nfmpt _ixXibA
117 111 112 116 nfov _idxXibAdSx
118 nfcv _iC
119 nfcv _i×
120 nfcv _ibj
121 120 nfcprod1 _iibjA
122 118 119 121 nfov _iCibjA
123 114 122 nfsum _ijbCibjA
124 113 123 nfmpt _ixXjbCibjA
125 117 124 nfeq idxXibAdSx=xXjbCibjA
126 110 125 nfan iφbcI¬cbdxXibAdSx=xXjbCibjA
127 nfv jbcI
128 2 127 nfan jφbcI
129 nfv j¬cb
130 128 129 nfan jφbcI¬cb
131 nfcv _jdxXibAdSx
132 nfcv _jX
133 nfcv _jb
134 133 nfsum1 _jjbCibjA
135 132 134 nfmpt _jxXjbCibjA
136 131 135 nfeq jdxXibAdSx=xXjbCibjA
137 130 136 nfan jφbcI¬cbdxXibAdSx=xXjbCibjA
138 nfcsb1v _ic/iA
139 nfcsb1v _jc/jC
140 89 ad2antrr φbcI¬cbdxXibAdSx=xXjbCibjAφ
141 140 3ad2ant1 φbcI¬cbdxXibAdSx=xXjbCibjAiIxXφ
142 simp2 φbcI¬cbdxXibAdSx=xXjbCibjAiIxXiI
143 simp3 φbcI¬cbdxXibAdSx=xXjbCibjAiIxXxX
144 141 142 143 8 syl3anc φbcI¬cbdxXibAdSx=xXjbCibjAiIxXA
145 140 7 syl φbcI¬cbdxXibAdSx=xXjbCibjAIFin
146 93 ad2antrr φbcI¬cbdxXibAdSx=xXjbCibjAbI
147 ssfi IFinbIbFin
148 145 146 147 syl2anc φbcI¬cbdxXibAdSx=xXjbCibjAbFin
149 vex cV
150 149 a1i φbcI¬cbdxXibAdSx=xXjbCibjAcV
151 simplr φbcI¬cbdxXibAdSx=xXjbCibjA¬cb
152 simpllr φbcI¬cbdxXibAdSx=xXjbCibjAbcI
153 5 ad3antrrr φbcI¬cbdxXibAdSx=xXjbCibjAS
154 140 ad2antrr φbcI¬cbdxXibAdSx=xXjbCibjAxXjbφ
155 146 ad2antrr φbcI¬cbdxXibAdSx=xXjbCibjAxXjbbI
156 simpr φbcI¬cbdxXibAdSx=xXjbCibjAxXjbjb
157 155 156 sseldd φbcI¬cbdxXibAdSx=xXjbCibjAxXjbjI
158 simplr φbcI¬cbdxXibAdSx=xXjbCibjAxXjbxX
159 nfv ijI
160 nfv ixX
161 1 159 160 nf3an iφjIxX
162 nfv iC
163 161 162 nfim iφjIxXC
164 eleq1w i=jiIjI
165 164 3anbi2d i=jφiIxXφjIxX
166 11 eleq1d i=jBC
167 165 166 imbi12d i=jφiIxXBφjIxXC
168 163 167 9 chvarfv φjIxXC
169 154 157 158 168 syl3anc φbcI¬cbdxXibAdSx=xXjbCibjAxXjbC
170 simpr φbcI¬cbdxXibAdSx=xXjbCibjAdxXibAdSx=xXjbCibjA
171 89 adantr φbcIxXφ
172 id bcIbcI
173 149 snid cc
174 elun2 cccbc
175 173 174 ax-mp cbc
176 175 a1i bcIcbc
177 172 176 sseldd bcIcI
178 177 ad2antlr φbcIxXcI
179 simpr φbcIxXxX
180 nfv jcI
181 nfv jxX
182 2 180 181 nf3an jφcIxX
183 nfcv _j
184 139 183 nfel jc/jC
185 182 184 nfim jφcIxXc/jC
186 eleq1w j=cjIcI
187 186 3anbi2d j=cφjIxXφcIxX
188 csbeq1a j=cC=c/jC
189 188 eleq1d j=cCc/jC
190 187 189 imbi12d j=cφjIxXCφcIxXc/jC
191 185 190 168 chvarfv φcIxXc/jC
192 171 178 179 191 syl3anc φbcIxXc/jC
193 192 adantlr φbcI¬cbxXc/jC
194 193 adantlr φbcI¬cbdxXibAdSx=xXjbCibjAxXc/jC
195 2 180 nfan jφcI
196 nfcv _jdxXc/iAdSx
197 132 139 nfmpt _jxXc/jC
198 196 197 nfeq jdxXc/iAdSx=xXc/jC
199 195 198 nfim jφcIdxXc/iAdSx=xXc/jC
200 186 anbi2d j=cφjIφcI
201 csbeq1a j=cj/iA=c/jj/iA
202 csbcow c/jj/iA=c/iA
203 202 a1i j=cc/jj/iA=c/iA
204 201 203 eqtrd j=cj/iA=c/iA
205 204 mpteq2dv j=cxXj/iA=xXc/iA
206 205 oveq2d j=cdxXj/iAdSx=dxXc/iAdSx
207 188 mpteq2dv j=cxXC=xXc/jC
208 206 207 eqeq12d j=cdxXj/iAdSx=xXCdxXc/iAdSx=xXc/jC
209 200 208 imbi12d j=cφjIdxXj/iAdSx=xXCφcIdxXc/iAdSx=xXc/jC
210 1 159 nfan iφjI
211 nfcsb1v _ij/iA
212 113 211 nfmpt _ixXj/iA
213 111 112 212 nfov _idxXj/iAdSx
214 nfcv _ixXC
215 213 214 nfeq idxXj/iAdSx=xXC
216 210 215 nfim iφjIdxXj/iAdSx=xXC
217 164 anbi2d i=jφiIφjI
218 csbeq1a i=jA=j/iA
219 218 mpteq2dv i=jxXA=xXj/iA
220 219 oveq2d i=jdxXAdSx=dxXj/iAdSx
221 11 idi i=jB=C
222 221 mpteq2dv i=jxXB=xXC
223 220 222 eqeq12d i=jdxXAdSx=xXBdxXj/iAdSx=xXC
224 217 223 imbi12d i=jφiIdxXAdSx=xXBφjIdxXj/iAdSx=xXC
225 216 224 10 chvarfv φjIdxXj/iAdSx=xXC
226 199 209 225 chvarfv φcIdxXc/iAdSx=xXc/jC
227 177 226 sylan2 φbcIdxXc/iAdSx=xXc/jC
228 227 ad2antrr φbcI¬cbdxXibAdSx=xXjbCibjAdxXc/iAdSx=xXc/jC
229 csbeq1a i=cA=c/iA
230 106 126 137 138 139 144 148 150 151 152 153 169 170 194 228 229 188 dvmptfprodlem φbcI¬cbdxXibAdSx=xXjbCibjAdxXibcAdSx=xXjbcCibcjA
231 87 88 98 230 syl21anc bFin¬cbφbIdxXibAdSx=xXjbCibjAφbcIdxXibcAdSx=xXjbcCibcjA
232 231 3exp bFin¬cbφbIdxXibAdSx=xXjbCibjAφbcIdxXibcAdSx=xXjbcCibcjA
233 27 41 55 71 86 232 findcard2s IFinφIIdxXiIAdSx=xXjICiIjA
234 7 13 233 sylc φdxXiIAdSx=xXjICiIjA