Metamath Proof Explorer


Theorem fsumo1

Description: The finite sum of eventually bounded functions (where the index set B does not depend on x ) is eventually bounded. (Contributed by Mario Carneiro, 30-Apr-2016) (Proof shortened by Mario Carneiro, 22-May-2016)

Ref Expression
Hypotheses fsumo1.1 φA
fsumo1.2 φBFin
fsumo1.3 φxAkBCV
fsumo1.4 φkBxAC𝑂1
Assertion fsumo1 φxAkBC𝑂1

Proof

Step Hyp Ref Expression
1 fsumo1.1 φA
2 fsumo1.2 φBFin
3 fsumo1.3 φxAkBCV
4 fsumo1.4 φkBxAC𝑂1
5 ssid BB
6 sseq1 w=wBB
7 sumeq1 w=kwC=kC
8 sum0 kC=0
9 7 8 eqtrdi w=kwC=0
10 9 mpteq2dv w=xAkwC=xA0
11 10 eleq1d w=xAkwC𝑂1xA0𝑂1
12 6 11 imbi12d w=wBxAkwC𝑂1BxA0𝑂1
13 12 imbi2d w=φwBxAkwC𝑂1φBxA0𝑂1
14 sseq1 w=ywByB
15 sumeq1 w=ykwC=kyC
16 15 mpteq2dv w=yxAkwC=xAkyC
17 16 eleq1d w=yxAkwC𝑂1xAkyC𝑂1
18 14 17 imbi12d w=ywBxAkwC𝑂1yBxAkyC𝑂1
19 18 imbi2d w=yφwBxAkwC𝑂1φyBxAkyC𝑂1
20 sseq1 w=yzwByzB
21 sumeq1 w=yzkwC=kyzC
22 21 mpteq2dv w=yzxAkwC=xAkyzC
23 22 eleq1d w=yzxAkwC𝑂1xAkyzC𝑂1
24 20 23 imbi12d w=yzwBxAkwC𝑂1yzBxAkyzC𝑂1
25 24 imbi2d w=yzφwBxAkwC𝑂1φyzBxAkyzC𝑂1
26 sseq1 w=BwBBB
27 sumeq1 w=BkwC=kBC
28 27 mpteq2dv w=BxAkwC=xAkBC
29 28 eleq1d w=BxAkwC𝑂1xAkBC𝑂1
30 26 29 imbi12d w=BwBxAkwC𝑂1BBxAkBC𝑂1
31 30 imbi2d w=BφwBxAkwC𝑂1φBBxAkBC𝑂1
32 0cn 0
33 o1const A0xA0𝑂1
34 1 32 33 sylancl φxA0𝑂1
35 34 a1d φBxA0𝑂1
36 ssun1 yyz
37 sstr yyzyzByB
38 36 37 mpan yzByB
39 38 imim1i yBxAkyC𝑂1yzBxAkyC𝑂1
40 simprl φ¬zyyzB¬zy
41 disjsn yz=¬zy
42 40 41 sylibr φ¬zyyzByz=
43 42 adantr φ¬zyyzBxAyz=
44 eqidd φ¬zyyzBxAyz=yz
45 2 adantr φ¬zyyzBBFin
46 simprr φ¬zyyzByzB
47 45 46 ssfid φ¬zyyzByzFin
48 47 adantr φ¬zyyzBxAyzFin
49 46 sselda φ¬zyyzBkyzkB
50 49 adantlr φ¬zyyzBxAkyzkB
51 3 anass1rs φkBxACV
52 51 4 o1mptrcl φkBxAC
53 52 an32s φxAkBC
54 53 adantllr φ¬zyyzBxAkBC
55 50 54 syldan φ¬zyyzBxAkyzC
56 43 44 48 55 fsumsplit φ¬zyyzBxAkyzC=kyC+kzC
57 nfcv _wC
58 nfcsb1v _kw/kC
59 csbeq1a k=wC=w/kC
60 57 58 59 cbvsumi kzC=wzw/kC
61 46 unssbd φ¬zyyzBzB
62 vex zV
63 62 snss zBzB
64 61 63 sylibr φ¬zyyzBzB
65 64 adantr φ¬zyyzBxAzB
66 54 ralrimiva φ¬zyyzBxAkBC
67 nfcsb1v _kz/kC
68 67 nfel1 kz/kC
69 csbeq1a k=zC=z/kC
70 69 eleq1d k=zCz/kC
71 68 70 rspc zBkBCz/kC
72 65 66 71 sylc φ¬zyyzBxAz/kC
73 csbeq1 w=zw/kC=z/kC
74 73 sumsn zBz/kCwzw/kC=z/kC
75 65 72 74 syl2anc φ¬zyyzBxAwzw/kC=z/kC
76 60 75 eqtrid φ¬zyyzBxAkzC=z/kC
77 76 oveq2d φ¬zyyzBxAkyC+kzC=kyC+z/kC
78 56 77 eqtrd φ¬zyyzBxAkyzC=kyC+z/kC
79 78 mpteq2dva φ¬zyyzBxAkyzC=xAkyC+z/kC
80 1 adantr φ¬zyyzBA
81 reex V
82 81 ssex AAV
83 80 82 syl φ¬zyyzBAV
84 sumex kyCV
85 84 a1i φ¬zyyzBxAkyCV
86 eqidd φ¬zyyzBxAkyC=xAkyC
87 eqidd φ¬zyyzBxAz/kC=xAz/kC
88 83 85 72 86 87 offval2 φ¬zyyzBxAkyC+fxAz/kC=xAkyC+z/kC
89 79 88 eqtr4d φ¬zyyzBxAkyzC=xAkyC+fxAz/kC
90 89 adantr φ¬zyyzBxAkyC𝑂1xAkyzC=xAkyC+fxAz/kC
91 id xAkyC𝑂1xAkyC𝑂1
92 4 ralrimiva φkBxAC𝑂1
93 92 adantr φ¬zyyzBkBxAC𝑂1
94 nfcv _kA
95 94 67 nfmpt _kxAz/kC
96 95 nfel1 kxAz/kC𝑂1
97 69 mpteq2dv k=zxAC=xAz/kC
98 97 eleq1d k=zxAC𝑂1xAz/kC𝑂1
99 96 98 rspc zBkBxAC𝑂1xAz/kC𝑂1
100 64 93 99 sylc φ¬zyyzBxAz/kC𝑂1
101 o1add xAkyC𝑂1xAz/kC𝑂1xAkyC+fxAz/kC𝑂1
102 91 100 101 syl2anr φ¬zyyzBxAkyC𝑂1xAkyC+fxAz/kC𝑂1
103 90 102 eqeltrd φ¬zyyzBxAkyC𝑂1xAkyzC𝑂1
104 103 ex φ¬zyyzBxAkyC𝑂1xAkyzC𝑂1
105 104 expr φ¬zyyzBxAkyC𝑂1xAkyzC𝑂1
106 105 a2d φ¬zyyzBxAkyC𝑂1yzBxAkyzC𝑂1
107 39 106 syl5 φ¬zyyBxAkyC𝑂1yzBxAkyzC𝑂1
108 107 expcom ¬zyφyBxAkyC𝑂1yzBxAkyzC𝑂1
109 108 a2d ¬zyφyBxAkyC𝑂1φyzBxAkyzC𝑂1
110 109 adantl yFin¬zyφyBxAkyC𝑂1φyzBxAkyzC𝑂1
111 13 19 25 31 35 110 findcard2s BFinφBBxAkBC𝑂1
112 2 111 mpcom φBBxAkBC𝑂1
113 5 112 mpi φxAkBC𝑂1