Metamath Proof Explorer

Theorem sge0gtfsumgt

Description: If the generalized sum of nonnegative reals is larger than a given number, then that number can be dominated by a finite subsum. (Contributed by Glauco Siliprandi, 21-Nov-2020)

Ref Expression
Hypotheses sge0gtfsumgt.k 
|- F/ k ph
sge0gtfsumgt.a 
|- ( ph -> A e. V )
sge0gtfsumgt.b 
|- ( ( ph /\ k e. A ) -> B e. ( 0 [,) +oo ) )
sge0gtfsumgt.c 
|- ( ph -> C e. RR )
sge0gtfsumgt.l 
|- ( ph -> C < ( sum^ ` ( k e. A |-> B ) ) )
Assertion sge0gtfsumgt 
|- ( ph -> E. y e. ( ~P A i^i Fin ) C < sum_ k e. y B )

Proof

Step Hyp Ref Expression
1 sge0gtfsumgt.k 
 |-  F/ k ph
2 sge0gtfsumgt.a 
 |-  ( ph -> A e. V )
3 sge0gtfsumgt.b 
 |-  ( ( ph /\ k e. A ) -> B e. ( 0 [,) +oo ) )
4 sge0gtfsumgt.c 
 |-  ( ph -> C e. RR )
5 sge0gtfsumgt.l 
 |-  ( ph -> C < ( sum^ ` ( k e. A |-> B ) ) )
6 nfcv 
 |-  F/_ k sum^
7 nfmpt1 
 |-  F/_ k ( k e. A |-> B )
8 6 7 nffv 
 |-  F/_ k ( sum^ ` ( k e. A |-> B ) )
9 nfcv 
 |-  F/_ k RR
10 8 9 nfel 
 |-  F/ k ( sum^ ` ( k e. A |-> B ) ) e. RR
11 1 10 nfan 
 |-  F/ k ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR )
12 2 adantr 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> A e. V )
13 icossicc 
 |-  ( 0 [,) +oo ) C_ ( 0 [,] +oo )
14 13 3 sselid 
 |-  ( ( ph /\ k e. A ) -> B e. ( 0 [,] +oo ) )
15 14 adantlr 
 |-  ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ k e. A ) -> B e. ( 0 [,] +oo ) )
16 5 adantr 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> C < ( sum^ ` ( k e. A |-> B ) ) )
17 4 adantr 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> C e. RR )
18 simpr 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> ( sum^ ` ( k e. A |-> B ) ) e. RR )
19 difrp 
 |-  ( ( C e. RR /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> ( C < ( sum^ ` ( k e. A |-> B ) ) <-> ( ( sum^ ` ( k e. A |-> B ) ) - C ) e. RR+ ) )
20 17 18 19 syl2anc 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> ( C < ( sum^ ` ( k e. A |-> B ) ) <-> ( ( sum^ ` ( k e. A |-> B ) ) - C ) e. RR+ ) )
21 16 20 mpbid 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> ( ( sum^ ` ( k e. A |-> B ) ) - C ) e. RR+ )
22 11 12 15 21 18 sge0ltfirpmpt2 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> E. y e. ( ~P A i^i Fin ) ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) )
23 simpr 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) )
24 nfv 
 |-  F/ k y e. ( ~P A i^i Fin )
25 1 24 nfan 
 |-  F/ k ( ph /\ y e. ( ~P A i^i Fin ) )
26 elinel2 
 |-  ( y e. ( ~P A i^i Fin ) -> y e. Fin )
27 26 adantl 
 |-  ( ( ph /\ y e. ( ~P A i^i Fin ) ) -> y e. Fin )
28 simpll 
 |-  ( ( ( ph /\ y e. ( ~P A i^i Fin ) ) /\ k e. y ) -> ph )
29 elpwinss 
 |-  ( y e. ( ~P A i^i Fin ) -> y C_ A )
30 29 adantr 
 |-  ( ( y e. ( ~P A i^i Fin ) /\ k e. y ) -> y C_ A )
31 simpr 
 |-  ( ( y e. ( ~P A i^i Fin ) /\ k e. y ) -> k e. y )
32 30 31 sseldd 
 |-  ( ( y e. ( ~P A i^i Fin ) /\ k e. y ) -> k e. A )
33 32 adantll 
 |-  ( ( ( ph /\ y e. ( ~P A i^i Fin ) ) /\ k e. y ) -> k e. A )
34 rge0ssre 
 |-  ( 0 [,) +oo ) C_ RR
35 34 3 sselid 
 |-  ( ( ph /\ k e. A ) -> B e. RR )
36 28 33 35 syl2anc 
 |-  ( ( ( ph /\ y e. ( ~P A i^i Fin ) ) /\ k e. y ) -> B e. RR )
37 25 27 36 fsumreclf 
 |-  ( ( ph /\ y e. ( ~P A i^i Fin ) ) -> sum_ k e. y B e. RR )
38 37 recnd 
 |-  ( ( ph /\ y e. ( ~P A i^i Fin ) ) -> sum_ k e. y B e. CC )
39 38 ad4ant13 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> sum_ k e. y B e. CC )
40 18 ad2antrr 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( sum^ ` ( k e. A |-> B ) ) e. RR )
41 40 recnd 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( sum^ ` ( k e. A |-> B ) ) e. CC )
42 17 ad2antrr 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> C e. RR )
43 42 recnd 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> C e. CC )
44 41 43 subcld 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( ( sum^ ` ( k e. A |-> B ) ) - C ) e. CC )
45 39 44 addcomd 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) = ( ( ( sum^ ` ( k e. A |-> B ) ) - C ) + sum_ k e. y B ) )
46 23 45 breqtrd 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( sum^ ` ( k e. A |-> B ) ) < ( ( ( sum^ ` ( k e. A |-> B ) ) - C ) + sum_ k e. y B ) )
47 40 42 resubcld 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( ( sum^ ` ( k e. A |-> B ) ) - C ) e. RR )
48 37 ad4ant13 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> sum_ k e. y B e. RR )
49 40 47 48 ltsubadd2d 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( ( ( sum^ ` ( k e. A |-> B ) ) - ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) < sum_ k e. y B <-> ( sum^ ` ( k e. A |-> B ) ) < ( ( ( sum^ ` ( k e. A |-> B ) ) - C ) + sum_ k e. y B ) ) )
50 46 49 mpbird 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( ( sum^ ` ( k e. A |-> B ) ) - ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) < sum_ k e. y B )
51 41 43 nncand 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( ( sum^ ` ( k e. A |-> B ) ) - ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) = C )
52 51 breq1d 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> ( ( ( sum^ ` ( k e. A |-> B ) ) - ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) < sum_ k e. y B <-> C < sum_ k e. y B ) )
53 50 52 mpbid 
 |-  ( ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) /\ ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) ) -> C < sum_ k e. y B )
54 53 ex 
 |-  ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) /\ y e. ( ~P A i^i Fin ) ) -> ( ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) -> C < sum_ k e. y B ) )
55 54 reximdva 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> ( E. y e. ( ~P A i^i Fin ) ( sum^ ` ( k e. A |-> B ) ) < ( sum_ k e. y B + ( ( sum^ ` ( k e. A |-> B ) ) - C ) ) -> E. y e. ( ~P A i^i Fin ) C < sum_ k e. y B ) )
56 22 55 mpd 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> E. y e. ( ~P A i^i Fin ) C < sum_ k e. y B )
57 simpl 
 |-  ( ( ph /\ -. ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> ph )
58 simpr 
 |-  ( ( ph /\ -. ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> -. ( sum^ ` ( k e. A |-> B ) ) e. RR )
59 eqid 
 |-  ( k e. A |-> B ) = ( k e. A |-> B )
60 1 3 59 fmptdf 
 |-  ( ph -> ( k e. A |-> B ) : A --> ( 0 [,) +oo ) )
61 13 a1i 
 |-  ( ph -> ( 0 [,) +oo ) C_ ( 0 [,] +oo ) )
62 60 61 fssd 
 |-  ( ph -> ( k e. A |-> B ) : A --> ( 0 [,] +oo ) )
63 2 62 sge0repnf 
 |-  ( ph -> ( ( sum^ ` ( k e. A |-> B ) ) e. RR <-> -. ( sum^ ` ( k e. A |-> B ) ) = +oo ) )
64 63 adantr 
 |-  ( ( ph /\ -. ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> ( ( sum^ ` ( k e. A |-> B ) ) e. RR <-> -. ( sum^ ` ( k e. A |-> B ) ) = +oo ) )
65 58 64 mtbid 
 |-  ( ( ph /\ -. ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> -. -. ( sum^ ` ( k e. A |-> B ) ) = +oo )
66 notnotb 
 |-  ( ( sum^ ` ( k e. A |-> B ) ) = +oo <-> -. -. ( sum^ ` ( k e. A |-> B ) ) = +oo )
67 65 66 sylibr 
 |-  ( ( ph /\ -. ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> ( sum^ ` ( k e. A |-> B ) ) = +oo )
68 8 nfeq1 
 |-  F/ k ( sum^ ` ( k e. A |-> B ) ) = +oo
69 1 68 nfan 
 |-  F/ k ( ph /\ ( sum^ ` ( k e. A |-> B ) ) = +oo )
70 2 adantr 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) = +oo ) -> A e. V )
71 3 adantlr 
 |-  ( ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) = +oo ) /\ k e. A ) -> B e. ( 0 [,) +oo ) )
72 simpr 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) = +oo ) -> ( sum^ ` ( k e. A |-> B ) ) = +oo )
73 4 adantr 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) = +oo ) -> C e. RR )
74 69 70 71 72 73 sge0pnffsumgt 
 |-  ( ( ph /\ ( sum^ ` ( k e. A |-> B ) ) = +oo ) -> E. y e. ( ~P A i^i Fin ) C < sum_ k e. y B )
75 57 67 74 syl2anc 
 |-  ( ( ph /\ -. ( sum^ ` ( k e. A |-> B ) ) e. RR ) -> E. y e. ( ~P A i^i Fin ) C < sum_ k e. y B )
76 56 75 pm2.61dan 
 |-  ( ph -> E. y e. ( ~P A i^i Fin ) C < sum_ k e. y B )