Metamath Proof Explorer


Theorem fprodcncf

Description: The finite product of continuous complex functions is continuous. (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses fprodcncf.a φA
fprodcncf.b φBFin
fprodcncf.c φxAkBC
fprodcncf.cn φkBxAC:Acn
Assertion fprodcncf φxAkBC:Acn

Proof

Step Hyp Ref Expression
1 fprodcncf.a φA
2 fprodcncf.b φBFin
3 fprodcncf.c φxAkBC
4 fprodcncf.cn φkBxAC:Acn
5 prodeq1 w=kwC=kC
6 5 mpteq2dv w=xAkwC=xAkC
7 6 eleq1d w=xAkwC:AcnxAkC:Acn
8 prodeq1 w=zkwC=kzC
9 8 mpteq2dv w=zxAkwC=xAkzC
10 9 eleq1d w=zxAkwC:AcnxAkzC:Acn
11 prodeq1 w=zykwC=kzyC
12 11 mpteq2dv w=zyxAkwC=xAkzyC
13 12 eleq1d w=zyxAkwC:AcnxAkzyC:Acn
14 prodeq1 w=BkwC=kBC
15 14 mpteq2dv w=BxAkwC=xAkBC
16 15 eleq1d w=BxAkwC:AcnxAkBC:Acn
17 prod0 kC=1
18 17 a1i φkC=1
19 18 mpteq2dv φxAkC=xA1
20 1cnd φ1
21 ssidd φ
22 1 20 21 constcncfg φxA1:Acn
23 19 22 eqeltrd φxAkC:Acn
24 nfcv _ukzyC
25 nfcv _xzy
26 nfcsb1v _xu/xC
27 25 26 nfcprod _xkzyu/xC
28 csbeq1a x=uC=u/xC
29 28 adantr x=ukzyC=u/xC
30 29 prodeq2dv x=ukzyC=kzyu/xC
31 24 27 30 cbvmpt xAkzyC=uAkzyu/xC
32 31 a1i φzByBzxAkzC:AcnxAkzyC=uAkzyu/xC
33 nfv kφzByBzuA
34 nfcsb1v _ky/ku/xC
35 2 adantr φzBBFin
36 simpr φzBzB
37 ssfi BFinzBzFin
38 35 36 37 syl2anc φzBzFin
39 38 adantrr φzByBzzFin
40 39 adantr φzByBzuAzFin
41 vex yV
42 41 a1i φzByBzuAyV
43 eldifn yBz¬yz
44 43 ad2antll φzByBz¬yz
45 44 adantr φzByBzuA¬yz
46 simplll φzByBzuAkzφ
47 simplr φzByBzuAkzuA
48 36 adantrr φzByBzzB
49 48 ad2antrr φzByBzuAkzzB
50 simpr φzByBzuAkzkz
51 49 50 sseldd φzByBzuAkzkB
52 nfv xφuAkB
53 26 nfel1 xu/xC
54 52 53 nfim xφuAkBu/xC
55 eleq1w x=uxAuA
56 55 3anbi2d x=uφxAkBφuAkB
57 28 eleq1d x=uCu/xC
58 56 57 imbi12d x=uφxAkBCφuAkBu/xC
59 54 58 3 chvarfv φuAkBu/xC
60 46 47 51 59 syl3anc φzByBzuAkzu/xC
61 csbeq1a k=yu/xC=y/ku/xC
62 simpll φzByBzuAφ
63 eldifi yBzyB
64 63 ad2antll φzByBzyB
65 64 adantr φzByBzuAyB
66 simpr φzByBzuAuA
67 simpll φyBuAφ
68 simpr φyBuAuA
69 simplr φyBuAyB
70 nfv kφuAyB
71 nfcv _k
72 34 71 nfel ky/ku/xC
73 70 72 nfim kφuAyBy/ku/xC
74 eleq1w k=ykByB
75 74 3anbi3d k=yφuAkBφuAyB
76 61 eleq1d k=yu/xCy/ku/xC
77 75 76 imbi12d k=yφuAkBu/xCφuAyBy/ku/xC
78 73 77 59 chvarfv φuAyBy/ku/xC
79 67 68 69 78 syl3anc φyBuAy/ku/xC
80 62 65 66 79 syl21anc φzByBzuAy/ku/xC
81 33 34 40 42 45 60 61 80 fprodsplitsn φzByBzuAkzyu/xC=kzu/xCy/ku/xC
82 81 mpteq2dva φzByBzuAkzyu/xC=uAkzu/xCy/ku/xC
83 82 adantr φzByBzxAkzC:AcnuAkzyu/xC=uAkzu/xCy/ku/xC
84 nfcv _ukzC
85 nfcv _xz
86 85 26 nfcprod _xkzu/xC
87 28 adantr x=ukzC=u/xC
88 87 prodeq2dv x=ukzC=kzu/xC
89 84 86 88 cbvmpt xAkzC=uAkzu/xC
90 89 eqcomi uAkzu/xC=xAkzC
91 90 a1i xAkzC:AcnuAkzu/xC=xAkzC
92 id xAkzC:AcnxAkzC:Acn
93 91 92 eqeltrd xAkzC:AcnuAkzu/xC:Acn
94 93 adantl φzByBzxAkzC:AcnuAkzu/xC:Acn
95 nfv kφyB
96 nfcv _kA
97 96 34 nfmpt _kuAy/ku/xC
98 nfcv _kAcn
99 97 98 nfel kuAy/ku/xC:Acn
100 95 99 nfim kφyBuAy/ku/xC:Acn
101 74 anbi2d k=yφkBφyB
102 61 adantr k=yuAu/xC=y/ku/xC
103 102 mpteq2dva k=yuAu/xC=uAy/ku/xC
104 103 eleq1d k=yuAu/xC:AcnuAy/ku/xC:Acn
105 101 104 imbi12d k=yφkBuAu/xC:AcnφyBuAy/ku/xC:Acn
106 nfcv _uC
107 106 26 28 cbvmpt xAC=uAu/xC
108 107 4 eqeltrrid φkBuAu/xC:Acn
109 100 105 108 chvarfv φyBuAy/ku/xC:Acn
110 64 109 syldan φzByBzuAy/ku/xC:Acn
111 110 adantr φzByBzxAkzC:AcnuAy/ku/xC:Acn
112 94 111 mulcncf φzByBzxAkzC:AcnuAkzu/xCy/ku/xC:Acn
113 83 112 eqeltrd φzByBzxAkzC:AcnuAkzyu/xC:Acn
114 32 113 eqeltrd φzByBzxAkzC:AcnxAkzyC:Acn
115 114 ex φzByBzxAkzC:AcnxAkzyC:Acn
116 7 10 13 16 23 115 2 findcard2d φxAkBC:Acn