Metamath Proof Explorer


Theorem gsumesum

Description: Relate a group sum on ` ( RR*s |``s ( 0 , +oo ) ) ` to a finite extended sum. (Contributed by Thierry Arnoux, 19-Oct-2017) (Proof shortened by AV, 12-Dec-2019)

Ref Expression
Hypotheses gsumesum.0 k φ
gsumesum.1 φ A Fin
gsumesum.2 φ k A B 0 +∞
Assertion gsumesum φ 𝑠 * 𝑠 0 +∞ k A B = * k A B

Proof

Step Hyp Ref Expression
1 gsumesum.0 k φ
2 gsumesum.1 φ A Fin
3 gsumesum.2 φ k A B 0 +∞
4 nfcv _ k A
5 eqidd φ x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B = 𝑠 * 𝑠 0 +∞ k x B
6 1 4 2 3 5 esumval φ * k A B = sup ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B * <
7 xrltso < Or *
8 7 a1i φ < Or *
9 iccssxr 0 +∞ *
10 xrge0base 0 +∞ = Base 𝑠 * 𝑠 0 +∞
11 xrge0cmn 𝑠 * 𝑠 0 +∞ CMnd
12 11 a1i φ 𝑠 * 𝑠 0 +∞ CMnd
13 3 ex φ k A B 0 +∞
14 1 13 ralrimi φ k A B 0 +∞
15 10 12 2 14 gsummptcl φ 𝑠 * 𝑠 0 +∞ k A B 0 +∞
16 9 15 sselid φ 𝑠 * 𝑠 0 +∞ k A B *
17 pwidg A Fin A 𝒫 A
18 2 17 syl φ A 𝒫 A
19 18 2 elind φ A 𝒫 A Fin
20 eqidd φ 𝑠 * 𝑠 0 +∞ k A B = 𝑠 * 𝑠 0 +∞ k A B
21 mpteq1 x = A k x B = k A B
22 21 oveq2d x = A 𝑠 * 𝑠 0 +∞ k x B = 𝑠 * 𝑠 0 +∞ k A B
23 22 rspceeqv A 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k A B = 𝑠 * 𝑠 0 +∞ k A B x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k A B = 𝑠 * 𝑠 0 +∞ k x B
24 19 20 23 syl2anc φ x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k A B = 𝑠 * 𝑠 0 +∞ k x B
25 eqid x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B = x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B
26 ovex 𝑠 * 𝑠 0 +∞ k x B V
27 25 26 elrnmpti 𝑠 * 𝑠 0 +∞ k A B ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k A B = 𝑠 * 𝑠 0 +∞ k x B
28 24 27 sylibr φ 𝑠 * 𝑠 0 +∞ k A B ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B
29 mpteq1 x = a k x B = k a B
30 29 oveq2d x = a 𝑠 * 𝑠 0 +∞ k x B = 𝑠 * 𝑠 0 +∞ k a B
31 30 cbvmptv x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B = a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k a B
32 ovex 𝑠 * 𝑠 0 +∞ k a B V
33 31 32 elrnmpti y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B a 𝒫 A Fin y = 𝑠 * 𝑠 0 +∞ k a B
34 33 bilani φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B a 𝒫 A Fin y = 𝑠 * 𝑠 0 +∞ k a B
35 11 a1i φ a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ CMnd
36 inss2 𝒫 A Fin Fin
37 simpr φ a 𝒫 A Fin a 𝒫 A Fin
38 36 37 sselid φ a 𝒫 A Fin a Fin
39 nfv k a 𝒫 A Fin
40 1 39 nfan k φ a 𝒫 A Fin
41 simpll φ a 𝒫 A Fin k a φ
42 inss1 𝒫 A Fin 𝒫 A
43 42 sseli a 𝒫 A Fin a 𝒫 A
44 43 elpwid a 𝒫 A Fin a A
45 44 ad2antlr φ a 𝒫 A Fin k a a A
46 simpr φ a 𝒫 A Fin k a k a
47 45 46 sseldd φ a 𝒫 A Fin k a k A
48 41 47 3 syl2anc φ a 𝒫 A Fin k a B 0 +∞
49 48 ex φ a 𝒫 A Fin k a B 0 +∞
50 40 49 ralrimi φ a 𝒫 A Fin k a B 0 +∞
51 10 35 38 50 gsummptcl φ a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k a B 0 +∞
52 9 51 sselid φ a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k a B *
53 diffi A Fin A a Fin
54 2 53 syl φ A a Fin
55 54 adantr φ a 𝒫 A Fin A a Fin
56 simpll φ a 𝒫 A Fin k A a φ
57 simpr φ a 𝒫 A Fin k A a k A a
58 57 eldifad φ a 𝒫 A Fin k A a k A
59 56 58 3 syl2anc φ a 𝒫 A Fin k A a B 0 +∞
60 59 ex φ a 𝒫 A Fin k A a B 0 +∞
61 40 60 ralrimi φ a 𝒫 A Fin k A a B 0 +∞
62 10 35 55 61 gsummptcl φ a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k A a B 0 +∞
63 9 62 sselid φ a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k A a B *
64 elxrge0 𝑠 * 𝑠 0 +∞ k A a B 0 +∞ 𝑠 * 𝑠 0 +∞ k A a B * 0 𝑠 * 𝑠 0 +∞ k A a B
65 64 simprbi 𝑠 * 𝑠 0 +∞ k A a B 0 +∞ 0 𝑠 * 𝑠 0 +∞ k A a B
66 62 65 syl φ a 𝒫 A Fin 0 𝑠 * 𝑠 0 +∞ k A a B
67 xraddge02 𝑠 * 𝑠 0 +∞ k a B * 𝑠 * 𝑠 0 +∞ k A a B * 0 𝑠 * 𝑠 0 +∞ k A a B 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k a B + 𝑒 𝑠 * 𝑠 0 +∞ k A a B
68 67 imp 𝑠 * 𝑠 0 +∞ k a B * 𝑠 * 𝑠 0 +∞ k A a B * 0 𝑠 * 𝑠 0 +∞ k A a B 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k a B + 𝑒 𝑠 * 𝑠 0 +∞ k A a B
69 52 63 66 68 syl21anc φ a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k a B + 𝑒 𝑠 * 𝑠 0 +∞ k A a B
70 69 adantlr φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k a B + 𝑒 𝑠 * 𝑠 0 +∞ k A a B
71 simpll φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B a 𝒫 A Fin φ
72 44 adantl φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B a 𝒫 A Fin a A
73 xrge00 0 = 0 𝑠 * 𝑠 0 +∞
74 xrge0plusg + 𝑒 = + 𝑠 * 𝑠 0 +∞
75 11 a1i φ a A 𝑠 * 𝑠 0 +∞ CMnd
76 2 adantr φ a A A Fin
77 eqid k A B = k A B
78 1 3 77 fmptdf φ k A B : A 0 +∞
79 78 adantr φ a A k A B : A 0 +∞
80 77 fnmpt k A B 0 +∞ k A B Fn A
81 14 80 syl φ k A B Fn A
82 c0ex 0 V
83 82 a1i φ 0 V
84 81 2 83 fndmfifsupp φ finSupp 0 k A B
85 84 adantr φ a A finSupp 0 k A B
86 disjdif a A a =
87 86 a1i φ a A a A a =
88 undif a A a A a = A
89 88 biimpi a A a A a = A
90 89 eqcomd a A A = a A a
91 90 adantl φ a A A = a A a
92 10 73 74 75 76 79 85 87 91 gsumsplit φ a A 𝑠 * 𝑠 0 +∞ k A B = 𝑠 * 𝑠 0 +∞ k A B a + 𝑒 𝑠 * 𝑠 0 +∞ k A B A a
93 resmpt a A k A B a = k a B
94 93 oveq2d a A 𝑠 * 𝑠 0 +∞ k A B a = 𝑠 * 𝑠 0 +∞ k a B
95 94 adantl φ a A 𝑠 * 𝑠 0 +∞ k A B a = 𝑠 * 𝑠 0 +∞ k a B
96 difss A a A
97 resmpt A a A k A B A a = k A a B
98 96 97 ax-mp k A B A a = k A a B
99 98 oveq2i 𝑠 * 𝑠 0 +∞ k A B A a = 𝑠 * 𝑠 0 +∞ k A a B
100 99 a1i φ a A 𝑠 * 𝑠 0 +∞ k A B A a = 𝑠 * 𝑠 0 +∞ k A a B
101 95 100 oveq12d φ a A 𝑠 * 𝑠 0 +∞ k A B a + 𝑒 𝑠 * 𝑠 0 +∞ k A B A a = 𝑠 * 𝑠 0 +∞ k a B + 𝑒 𝑠 * 𝑠 0 +∞ k A a B
102 92 101 eqtrd φ a A 𝑠 * 𝑠 0 +∞ k A B = 𝑠 * 𝑠 0 +∞ k a B + 𝑒 𝑠 * 𝑠 0 +∞ k A a B
103 71 72 102 syl2anc φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k A B = 𝑠 * 𝑠 0 +∞ k a B + 𝑒 𝑠 * 𝑠 0 +∞ k A a B
104 70 103 breqtrrd φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k A B
105 104 ralrimiva φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k A B
106 r19.29r a 𝒫 A Fin y = 𝑠 * 𝑠 0 +∞ k a B a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k A B a 𝒫 A Fin y = 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k A B
107 breq1 y = 𝑠 * 𝑠 0 +∞ k a B y 𝑠 * 𝑠 0 +∞ k A B 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k A B
108 107 biimpar y = 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k A B y 𝑠 * 𝑠 0 +∞ k A B
109 108 rexlimivw a 𝒫 A Fin y = 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k A B y 𝑠 * 𝑠 0 +∞ k A B
110 106 109 syl a 𝒫 A Fin y = 𝑠 * 𝑠 0 +∞ k a B a 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k a B 𝑠 * 𝑠 0 +∞ k A B y 𝑠 * 𝑠 0 +∞ k A B
111 34 105 110 syl2anc φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B y 𝑠 * 𝑠 0 +∞ k A B
112 16 adantr φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B 𝑠 * 𝑠 0 +∞ k A B *
113 11 a1i φ x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ CMnd
114 simpr φ x 𝒫 A Fin x 𝒫 A Fin
115 36 114 sselid φ x 𝒫 A Fin x Fin
116 nfv k x 𝒫 A Fin
117 1 116 nfan k φ x 𝒫 A Fin
118 simpll φ x 𝒫 A Fin k x φ
119 42 sseli x 𝒫 A Fin x 𝒫 A
120 119 ad2antlr φ x 𝒫 A Fin k x x 𝒫 A
121 120 elpwid φ x 𝒫 A Fin k x x A
122 simpr φ x 𝒫 A Fin k x k x
123 121 122 sseldd φ x 𝒫 A Fin k x k A
124 118 123 3 syl2anc φ x 𝒫 A Fin k x B 0 +∞
125 124 ex φ x 𝒫 A Fin k x B 0 +∞
126 117 125 ralrimi φ x 𝒫 A Fin k x B 0 +∞
127 10 113 115 126 gsummptcl φ x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B 0 +∞
128 9 127 sselid φ x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B *
129 128 ralrimiva φ x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B *
130 25 rnmptss x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B * ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B *
131 129 130 syl φ ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B *
132 131 sselda φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B y *
133 xrltnle 𝑠 * 𝑠 0 +∞ k A B * y * 𝑠 * 𝑠 0 +∞ k A B < y ¬ y 𝑠 * 𝑠 0 +∞ k A B
134 133 con2bid 𝑠 * 𝑠 0 +∞ k A B * y * y 𝑠 * 𝑠 0 +∞ k A B ¬ 𝑠 * 𝑠 0 +∞ k A B < y
135 112 132 134 syl2anc φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B y 𝑠 * 𝑠 0 +∞ k A B ¬ 𝑠 * 𝑠 0 +∞ k A B < y
136 111 135 mpbid φ y ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B ¬ 𝑠 * 𝑠 0 +∞ k A B < y
137 8 16 28 136 supmax φ sup ran x 𝒫 A Fin 𝑠 * 𝑠 0 +∞ k x B * < = 𝑠 * 𝑠 0 +∞ k A B
138 6 137 eqtr2d φ 𝑠 * 𝑠 0 +∞ k A B = * k A B