Metamath Proof Explorer


Theorem sge0rpcpnf

Description: The sum of an infinite number of a positive constant, is +oo (Contributed by Glauco Siliprandi, 11-Oct-2020)

Ref Expression
Hypotheses sge0rpcpnf.a φ A V
sge0rpcpnf.nfi φ ¬ A Fin
sge0rpcpnf.b φ B +
Assertion sge0rpcpnf φ sum^ x A B = +∞

Proof

Step Hyp Ref Expression
1 sge0rpcpnf.a φ A V
2 sge0rpcpnf.nfi φ ¬ A Fin
3 sge0rpcpnf.b φ B +
4 1 adantr φ sum^ x A B < +∞ A V
5 0xr 0 *
6 5 a1i φ 0 *
7 pnfxr +∞ *
8 7 a1i φ +∞ *
9 3 rpxrd φ B *
10 3 rpge0d φ 0 B
11 3 rpred φ B
12 ltpnf B B < +∞
13 11 12 syl φ B < +∞
14 9 8 13 xrltled φ B +∞
15 6 8 9 10 14 eliccxrd φ B 0 +∞
16 15 adantr φ x A B 0 +∞
17 eqid x A B = x A B
18 16 17 fmptd φ x A B : A 0 +∞
19 18 adantr φ sum^ x A B < +∞ x A B : A 0 +∞
20 4 19 sge0xrcl φ sum^ x A B < +∞ sum^ x A B *
21 7 a1i φ sum^ x A B < +∞ +∞ *
22 simpr φ sum^ x A B < +∞ sum^ x A B < +∞
23 20 21 22 xrgtned φ sum^ x A B < +∞ +∞ sum^ x A B
24 23 necomd φ sum^ x A B < +∞ sum^ x A B +∞
25 24 neneqd φ sum^ x A B < +∞ ¬ sum^ x A B = +∞
26 4 19 sge0repnf φ sum^ x A B < +∞ sum^ x A B ¬ sum^ x A B = +∞
27 25 26 mpbird φ sum^ x A B < +∞ sum^ x A B
28 11 adantr φ sum^ x A B < +∞ B
29 3 rpne0d φ B 0
30 29 adantr φ sum^ x A B < +∞ B 0
31 27 28 30 redivcld φ sum^ x A B < +∞ sum^ x A B B
32 arch sum^ x A B B n sum^ x A B B < n
33 31 32 syl φ sum^ x A B < +∞ n sum^ x A B B < n
34 ishashinf ¬ A Fin n y 𝒫 A y = n
35 2 34 syl φ n y 𝒫 A y = n
36 35 r19.21bi φ n y 𝒫 A y = n
37 df-rex y 𝒫 A y = n y y 𝒫 A y = n
38 36 37 sylib φ n y y 𝒫 A y = n
39 38 adantlr φ sum^ x A B < +∞ n y y 𝒫 A y = n
40 39 3adant3 φ sum^ x A B < +∞ n sum^ x A B B < n y y 𝒫 A y = n
41 nfv y φ sum^ x A B < +∞ n sum^ x A B B < n
42 simprl φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A y = n y 𝒫 A
43 simpr n y = n y = n
44 simpl n y = n n
45 43 44 eqeltrd n y = n y
46 nnnn0 y y 0
47 vex y V
48 47 a1i y y V
49 hashclb y V y Fin y 0
50 48 49 syl y y Fin y 0
51 46 50 mpbird y y Fin
52 45 51 syl n y = n y Fin
53 52 adantrl n y 𝒫 A y = n y Fin
54 53 3ad2antl2 φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A y = n y Fin
55 42 54 elind φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A y = n y 𝒫 A Fin
56 simp3 φ sum^ x A B < +∞ n sum^ x A B B < n sum^ x A B B < n
57 27 3ad2ant1 φ sum^ x A B < +∞ n sum^ x A B B < n sum^ x A B
58 nnre n n
59 58 3ad2ant2 φ sum^ x A B < +∞ n sum^ x A B B < n n
60 3 adantr φ sum^ x A B < +∞ B +
61 60 3ad2ant1 φ sum^ x A B < +∞ n sum^ x A B B < n B +
62 57 59 61 ltdivmul2d φ sum^ x A B < +∞ n sum^ x A B B < n sum^ x A B B < n sum^ x A B < n B
63 56 62 mpbid φ sum^ x A B < +∞ n sum^ x A B B < n sum^ x A B < n B
64 63 adantr φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A y = n sum^ x A B < n B
65 53 adantll φ n y 𝒫 A y = n y Fin
66 5 a1i φ n y 𝒫 A y = n x y 0 *
67 7 a1i φ n y 𝒫 A y = n x y +∞ *
68 9 ad3antrrr φ n y 𝒫 A y = n x y B *
69 10 ad3antrrr φ n y 𝒫 A y = n x y 0 B
70 13 ad3antrrr φ n y 𝒫 A y = n x y B < +∞
71 66 67 68 69 70 elicod φ n y 𝒫 A y = n x y B 0 +∞
72 65 71 sge0fsummpt φ n y 𝒫 A y = n sum^ x y B = x y B
73 11 recnd φ B
74 73 ad2antrr φ n y 𝒫 A y = n B
75 fsumconst y Fin B x y B = y B
76 65 74 75 syl2anc φ n y 𝒫 A y = n x y B = y B
77 oveq1 y = n y B = n B
78 77 adantl y 𝒫 A y = n y B = n B
79 78 adantl φ n y 𝒫 A y = n y B = n B
80 72 76 79 3eqtrrd φ n y 𝒫 A y = n n B = sum^ x y B
81 80 adantllr φ sum^ x A B < +∞ n y 𝒫 A y = n n B = sum^ x y B
82 81 3adantl3 φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A y = n n B = sum^ x y B
83 64 82 breqtrd φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A y = n sum^ x A B < sum^ x y B
84 55 83 jca φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A y = n y 𝒫 A Fin sum^ x A B < sum^ x y B
85 84 ex φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A y = n y 𝒫 A Fin sum^ x A B < sum^ x y B
86 41 85 eximd φ sum^ x A B < +∞ n sum^ x A B B < n y y 𝒫 A y = n y y 𝒫 A Fin sum^ x A B < sum^ x y B
87 40 86 mpd φ sum^ x A B < +∞ n sum^ x A B B < n y y 𝒫 A Fin sum^ x A B < sum^ x y B
88 df-rex y 𝒫 A Fin sum^ x A B < sum^ x y B y y 𝒫 A Fin sum^ x A B < sum^ x y B
89 87 88 sylibr φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A Fin sum^ x A B < sum^ x y B
90 89 3exp φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A Fin sum^ x A B < sum^ x y B
91 90 rexlimdv φ sum^ x A B < +∞ n sum^ x A B B < n y 𝒫 A Fin sum^ x A B < sum^ x y B
92 33 91 mpd φ sum^ x A B < +∞ y 𝒫 A Fin sum^ x A B < sum^ x y B
93 1 adantr φ y 𝒫 A Fin A V
94 16 adantlr φ y 𝒫 A Fin x A B 0 +∞
95 elpwinss y 𝒫 A Fin y A
96 95 adantl φ y 𝒫 A Fin y A
97 93 94 96 sge0lessmpt φ y 𝒫 A Fin sum^ x y B sum^ x A B
98 simpr φ y 𝒫 A Fin y 𝒫 A Fin
99 15 adantr φ x y B 0 +∞
100 eqid x y B = x y B
101 99 100 fmptd φ x y B : y 0 +∞
102 101 adantr φ y 𝒫 A Fin x y B : y 0 +∞
103 98 102 sge0xrcl φ y 𝒫 A Fin sum^ x y B *
104 1 18 sge0xrcl φ sum^ x A B *
105 104 adantr φ y 𝒫 A Fin sum^ x A B *
106 103 105 xrlenltd φ y 𝒫 A Fin sum^ x y B sum^ x A B ¬ sum^ x A B < sum^ x y B
107 97 106 mpbid φ y 𝒫 A Fin ¬ sum^ x A B < sum^ x y B
108 107 ralrimiva φ y 𝒫 A Fin ¬ sum^ x A B < sum^ x y B
109 ralnex y 𝒫 A Fin ¬ sum^ x A B < sum^ x y B ¬ y 𝒫 A Fin sum^ x A B < sum^ x y B
110 108 109 sylib φ ¬ y 𝒫 A Fin sum^ x A B < sum^ x y B
111 110 adantr φ sum^ x A B < +∞ ¬ y 𝒫 A Fin sum^ x A B < sum^ x y B
112 92 111 pm2.65da φ ¬ sum^ x A B < +∞
113 nltpnft sum^ x A B * sum^ x A B = +∞ ¬ sum^ x A B < +∞
114 104 113 syl φ sum^ x A B = +∞ ¬ sum^ x A B < +∞
115 112 114 mpbird φ sum^ x A B = +∞