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
|
sseldi |
|- ( ( 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
|
sseldi |
|- ( ( 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 ) |