MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  fsumabs Structured version   Unicode version

Theorem fsumabs 13247
Description: Generalized triangle inequality: the absolute value of a finite sum is less than or equal to the sum of absolute values. (Contributed by NM, 9-Nov-2005.) (Revised by Mario Carneiro, 24-Apr-2014.)
Hypotheses
Ref Expression
fsumabs.1  |-  ( ph  ->  A  e.  Fin )
fsumabs.2  |-  ( (
ph  /\  k  e.  A )  ->  B  e.  CC )
Assertion
Ref Expression
fsumabs  |-  ( ph  ->  ( abs `  sum_ k  e.  A  B
)  <_  sum_ k  e.  A  ( abs `  B
) )
Distinct variable groups:    A, k    ph, k
Allowed substitution hint:    B( k)

Proof of Theorem fsumabs
Dummy variables  w  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ssid 3363 . 2  |-  A  C_  A
2 fsumabs.1 . . 3  |-  ( ph  ->  A  e.  Fin )
3 sseq1 3365 . . . . . 6  |-  ( w  =  (/)  ->  ( w 
C_  A  <->  (/)  C_  A
) )
4 sumeq1 13150 . . . . . . . 8  |-  ( w  =  (/)  ->  sum_ k  e.  w  B  =  sum_ k  e.  (/)  B )
54fveq2d 5683 . . . . . . 7  |-  ( w  =  (/)  ->  ( abs `  sum_ k  e.  w  B )  =  ( abs `  sum_ k  e.  (/)  B ) )
6 sumeq1 13150 . . . . . . 7  |-  ( w  =  (/)  ->  sum_ k  e.  w  ( abs `  B )  =  sum_ k  e.  (/)  ( abs `  B ) )
75, 6breq12d 4293 . . . . . 6  |-  ( w  =  (/)  ->  ( ( abs `  sum_ k  e.  w  B )  <_ 
sum_ k  e.  w  ( abs `  B )  <-> 
( abs `  sum_ k  e.  (/)  B )  <_  sum_ k  e.  (/)  ( abs `  B ) ) )
83, 7imbi12d 320 . . . . 5  |-  ( w  =  (/)  ->  ( ( w  C_  A  ->  ( abs `  sum_ k  e.  w  B )  <_ 
sum_ k  e.  w  ( abs `  B ) )  <->  ( (/)  C_  A  ->  ( abs `  sum_ k  e.  (/)  B )  <_  sum_ k  e.  (/)  ( abs `  B ) ) ) )
98imbi2d 316 . . . 4  |-  ( w  =  (/)  ->  ( (
ph  ->  ( w  C_  A  ->  ( abs `  sum_ k  e.  w  B
)  <_  sum_ k  e.  w  ( abs `  B
) ) )  <->  ( ph  ->  ( (/)  C_  A  -> 
( abs `  sum_ k  e.  (/)  B )  <_  sum_ k  e.  (/)  ( abs `  B ) ) ) ) )
10 sseq1 3365 . . . . . 6  |-  ( w  =  x  ->  (
w  C_  A  <->  x  C_  A
) )
11 sumeq1 13150 . . . . . . . 8  |-  ( w  =  x  ->  sum_ k  e.  w  B  =  sum_ k  e.  x  B )
1211fveq2d 5683 . . . . . . 7  |-  ( w  =  x  ->  ( abs `  sum_ k  e.  w  B )  =  ( abs `  sum_ k  e.  x  B )
)
13 sumeq1 13150 . . . . . . 7  |-  ( w  =  x  ->  sum_ k  e.  w  ( abs `  B )  =  sum_ k  e.  x  ( abs `  B ) )
1412, 13breq12d 4293 . . . . . 6  |-  ( w  =  x  ->  (
( abs `  sum_ k  e.  w  B
)  <_  sum_ k  e.  w  ( abs `  B
)  <->  ( abs `  sum_ k  e.  x  B
)  <_  sum_ k  e.  x  ( abs `  B
) ) )
1510, 14imbi12d 320 . . . . 5  |-  ( w  =  x  ->  (
( w  C_  A  ->  ( abs `  sum_ k  e.  w  B
)  <_  sum_ k  e.  w  ( abs `  B
) )  <->  ( x  C_  A  ->  ( abs ` 
sum_ k  e.  x  B )  <_  sum_ k  e.  x  ( abs `  B ) ) ) )
1615imbi2d 316 . . . 4  |-  ( w  =  x  ->  (
( ph  ->  ( w 
C_  A  ->  ( abs `  sum_ k  e.  w  B )  <_  sum_ k  e.  w  ( abs `  B ) ) )  <-> 
( ph  ->  ( x 
C_  A  ->  ( abs `  sum_ k  e.  x  B )  <_  sum_ k  e.  x  ( abs `  B ) ) ) ) )
17 sseq1 3365 . . . . . 6  |-  ( w  =  ( x  u. 
{ y } )  ->  ( w  C_  A 
<->  ( x  u.  {
y } )  C_  A ) )
18 sumeq1 13150 . . . . . . . 8  |-  ( w  =  ( x  u. 
{ y } )  ->  sum_ k  e.  w  B  =  sum_ k  e.  ( x  u.  {
y } ) B )
1918fveq2d 5683 . . . . . . 7  |-  ( w  =  ( x  u. 
{ y } )  ->  ( abs `  sum_ k  e.  w  B
)  =  ( abs `  sum_ k  e.  ( x  u.  { y } ) B ) )
20 sumeq1 13150 . . . . . . 7  |-  ( w  =  ( x  u. 
{ y } )  ->  sum_ k  e.  w  ( abs `  B )  =  sum_ k  e.  ( x  u.  { y } ) ( abs `  B ) )
2119, 20breq12d 4293 . . . . . 6  |-  ( w  =  ( x  u. 
{ y } )  ->  ( ( abs `  sum_ k  e.  w  B )  <_  sum_ k  e.  w  ( abs `  B )  <->  ( abs ` 
sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B ) ) )
2217, 21imbi12d 320 . . . . 5  |-  ( w  =  ( x  u. 
{ y } )  ->  ( ( w 
C_  A  ->  ( abs `  sum_ k  e.  w  B )  <_  sum_ k  e.  w  ( abs `  B ) )  <->  ( (
x  u.  { y } )  C_  A  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B ) ) ) )
2322imbi2d 316 . . . 4  |-  ( w  =  ( x  u. 
{ y } )  ->  ( ( ph  ->  ( w  C_  A  ->  ( abs `  sum_ k  e.  w  B
)  <_  sum_ k  e.  w  ( abs `  B
) ) )  <->  ( ph  ->  ( ( x  u. 
{ y } ) 
C_  A  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B ) ) ) ) )
24 sseq1 3365 . . . . . 6  |-  ( w  =  A  ->  (
w  C_  A  <->  A  C_  A
) )
25 sumeq1 13150 . . . . . . . 8  |-  ( w  =  A  ->  sum_ k  e.  w  B  =  sum_ k  e.  A  B
)
2625fveq2d 5683 . . . . . . 7  |-  ( w  =  A  ->  ( abs `  sum_ k  e.  w  B )  =  ( abs `  sum_ k  e.  A  B )
)
27 sumeq1 13150 . . . . . . 7  |-  ( w  =  A  ->  sum_ k  e.  w  ( abs `  B )  =  sum_ k  e.  A  ( abs `  B ) )
2826, 27breq12d 4293 . . . . . 6  |-  ( w  =  A  ->  (
( abs `  sum_ k  e.  w  B
)  <_  sum_ k  e.  w  ( abs `  B
)  <->  ( abs `  sum_ k  e.  A  B
)  <_  sum_ k  e.  A  ( abs `  B
) ) )
2924, 28imbi12d 320 . . . . 5  |-  ( w  =  A  ->  (
( w  C_  A  ->  ( abs `  sum_ k  e.  w  B
)  <_  sum_ k  e.  w  ( abs `  B
) )  <->  ( A  C_  A  ->  ( abs ` 
sum_ k  e.  A  B )  <_  sum_ k  e.  A  ( abs `  B ) ) ) )
3029imbi2d 316 . . . 4  |-  ( w  =  A  ->  (
( ph  ->  ( w 
C_  A  ->  ( abs `  sum_ k  e.  w  B )  <_  sum_ k  e.  w  ( abs `  B ) ) )  <-> 
( ph  ->  ( A 
C_  A  ->  ( abs `  sum_ k  e.  A  B )  <_  sum_ k  e.  A  ( abs `  B ) ) ) ) )
31 0le0 10399 . . . . . 6  |-  0  <_  0
32 sum0 13182 . . . . . . . 8  |-  sum_ k  e.  (/)  B  =  0
3332fveq2i 5682 . . . . . . 7  |-  ( abs `  sum_ k  e.  (/)  B )  =  ( abs `  0 )
34 abs0 12758 . . . . . . 7  |-  ( abs `  0 )  =  0
3533, 34eqtri 2453 . . . . . 6  |-  ( abs `  sum_ k  e.  (/)  B )  =  0
36 sum0 13182 . . . . . 6  |-  sum_ k  e.  (/)  ( abs `  B
)  =  0
3731, 35, 363brtr4i 4308 . . . . 5  |-  ( abs `  sum_ k  e.  (/)  B )  <_  sum_ k  e.  (/)  ( abs `  B
)
3837a1ii 27 . . . 4  |-  ( ph  ->  ( (/)  C_  A  -> 
( abs `  sum_ k  e.  (/)  B )  <_  sum_ k  e.  (/)  ( abs `  B ) ) )
39 ssun1 3507 . . . . . . . . . 10  |-  x  C_  ( x  u.  { y } )
40 sstr 3352 . . . . . . . . . 10  |-  ( ( x  C_  ( x  u.  { y } )  /\  ( x  u. 
{ y } ) 
C_  A )  ->  x  C_  A )
4139, 40mpan 663 . . . . . . . . 9  |-  ( ( x  u.  { y } )  C_  A  ->  x  C_  A )
4241imim1i 58 . . . . . . . 8  |-  ( ( x  C_  A  ->  ( abs `  sum_ k  e.  x  B )  <_ 
sum_ k  e.  x  ( abs `  B ) )  ->  ( (
x  u.  { y } )  C_  A  ->  ( abs `  sum_ k  e.  x  B
)  <_  sum_ k  e.  x  ( abs `  B
) ) )
43 simpll 746 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ph )
4443, 2syl 16 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  A  e.  Fin )
45 simpr 458 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
x  u.  { y } )  C_  A
)
4645unssad 3521 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  x  C_  A )
47 ssfi 7521 . . . . . . . . . . . . . . . 16  |-  ( ( A  e.  Fin  /\  x  C_  A )  ->  x  e.  Fin )
4844, 46, 47syl2anc 654 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  x  e.  Fin )
4946sselda 3344 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  -.  y  e.  x
)  /\  ( x  u.  { y } ) 
C_  A )  /\  k  e.  x )  ->  k  e.  A )
50 fsumabs.2 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  A )  ->  B  e.  CC )
5143, 50sylan 468 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  -.  y  e.  x
)  /\  ( x  u.  { y } ) 
C_  A )  /\  k  e.  A )  ->  B  e.  CC )
5249, 51syldan 467 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  -.  y  e.  x
)  /\  ( x  u.  { y } ) 
C_  A )  /\  k  e.  x )  ->  B  e.  CC )
5348, 52fsumcl 13194 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  x  B  e.  CC )
5453abscld 12906 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ( abs `  sum_ k  e.  x  B )  e.  RR )
5552abscld 12906 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  -.  y  e.  x
)  /\  ( x  u.  { y } ) 
C_  A )  /\  k  e.  x )  ->  ( abs `  B
)  e.  RR )
5648, 55fsumrecl 13195 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  x  ( abs `  B )  e.  RR )
5745unssbd 3522 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  { y }  C_  A )
58 vex 2965 . . . . . . . . . . . . . . . . 17  |-  y  e. 
_V
5958snss 3987 . . . . . . . . . . . . . . . 16  |-  ( y  e.  A  <->  { y }  C_  A )
6057, 59sylibr 212 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  y  e.  A )
6150ralrimiva 2789 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  A. k  e.  A  B  e.  CC )
6243, 61syl 16 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  A. k  e.  A  B  e.  CC )
63 nfcsb1v 3292 . . . . . . . . . . . . . . . . 17  |-  F/_ k [_ y  /  k ]_ B
6463nfel1 2579 . . . . . . . . . . . . . . . 16  |-  F/ k
[_ y  /  k ]_ B  e.  CC
65 csbeq1a 3285 . . . . . . . . . . . . . . . . 17  |-  ( k  =  y  ->  B  =  [_ y  /  k ]_ B )
6665eleq1d 2499 . . . . . . . . . . . . . . . 16  |-  ( k  =  y  ->  ( B  e.  CC  <->  [_ y  / 
k ]_ B  e.  CC ) )
6764, 66rspc 3056 . . . . . . . . . . . . . . 15  |-  ( y  e.  A  ->  ( A. k  e.  A  B  e.  CC  ->  [_ y  /  k ]_ B  e.  CC )
)
6860, 62, 67sylc 60 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  [_ y  /  k ]_ B  e.  CC )
6968abscld 12906 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ( abs `  [_ y  / 
k ]_ B )  e.  RR )
7054, 56, 69leadd1d 9921 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
( abs `  sum_ k  e.  x  B
)  <_  sum_ k  e.  x  ( abs `  B
)  <->  ( ( abs `  sum_ k  e.  x  B )  +  ( abs `  [_ y  /  k ]_ B
) )  <_  ( sum_ k  e.  x  ( abs `  B )  +  ( abs `  [_ y  /  k ]_ B
) ) ) )
71 simplr 747 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  -.  y  e.  x )
72 disjsn 3924 . . . . . . . . . . . . . . . 16  |-  ( ( x  i^i  { y } )  =  (/)  <->  -.  y  e.  x )
7371, 72sylibr 212 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
x  i^i  { y } )  =  (/) )
74 eqidd 2434 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
x  u.  { y } )  =  ( x  u.  { y } ) )
75 ssfi 7521 . . . . . . . . . . . . . . . 16  |-  ( ( A  e.  Fin  /\  ( x  u.  { y } )  C_  A
)  ->  ( x  u.  { y } )  e.  Fin )
7644, 45, 75syl2anc 654 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
x  u.  { y } )  e.  Fin )
7745sselda 3344 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  -.  y  e.  x
)  /\  ( x  u.  { y } ) 
C_  A )  /\  k  e.  ( x  u.  { y } ) )  ->  k  e.  A )
7877, 51syldan 467 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  -.  y  e.  x
)  /\  ( x  u.  { y } ) 
C_  A )  /\  k  e.  ( x  u.  { y } ) )  ->  B  e.  CC )
7978abscld 12906 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  -.  y  e.  x
)  /\  ( x  u.  { y } ) 
C_  A )  /\  k  e.  ( x  u.  { y } ) )  ->  ( abs `  B )  e.  RR )
8079recnd 9400 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  -.  y  e.  x
)  /\  ( x  u.  { y } ) 
C_  A )  /\  k  e.  ( x  u.  { y } ) )  ->  ( abs `  B )  e.  CC )
8173, 74, 76, 80fsumsplit 13200 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B )  =  ( sum_ k  e.  x  ( abs `  B )  +  sum_ k  e.  { y }  ( abs `  B
) ) )
82 csbfv2g 5715 . . . . . . . . . . . . . . . . . . 19  |-  ( y  e.  _V  ->  [_ y  /  k ]_ ( abs `  B )  =  ( abs `  [_ y  /  k ]_ B
) )
8358, 82ax-mp 5 . . . . . . . . . . . . . . . . . 18  |-  [_ y  /  k ]_ ( abs `  B )  =  ( abs `  [_ y  /  k ]_ B
)
8469recnd 9400 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ( abs `  [_ y  / 
k ]_ B )  e.  CC )
8583, 84syl5eqel 2517 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  [_ y  /  k ]_ ( abs `  B )  e.  CC )
86 sumsns 13203 . . . . . . . . . . . . . . . . 17  |-  ( ( y  e.  _V  /\  [_ y  /  k ]_ ( abs `  B )  e.  CC )  ->  sum_ k  e.  { y }  ( abs `  B
)  =  [_ y  /  k ]_ ( abs `  B ) )
8758, 85, 86sylancr 656 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  { y }  ( abs `  B )  = 
[_ y  /  k ]_ ( abs `  B
) )
8887, 83syl6eq 2481 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  { y }  ( abs `  B )  =  ( abs `  [_ y  /  k ]_ B
) )
8988oveq2d 6096 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ( sum_ k  e.  x  ( abs `  B )  +  sum_ k  e.  {
y }  ( abs `  B ) )  =  ( sum_ k  e.  x  ( abs `  B )  +  ( abs `  [_ y  /  k ]_ B
) ) )
9081, 89eqtrd 2465 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B )  =  ( sum_ k  e.  x  ( abs `  B )  +  ( abs `  [_ y  /  k ]_ B
) ) )
9190breq2d 4292 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
( ( abs `  sum_ k  e.  x  B
)  +  ( abs `  [_ y  /  k ]_ B ) )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B
)  <->  ( ( abs `  sum_ k  e.  x  B )  +  ( abs `  [_ y  /  k ]_ B
) )  <_  ( sum_ k  e.  x  ( abs `  B )  +  ( abs `  [_ y  /  k ]_ B
) ) ) )
9270, 91bitr4d 256 . . . . . . . . . . 11  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
( abs `  sum_ k  e.  x  B
)  <_  sum_ k  e.  x  ( abs `  B
)  <->  ( ( abs `  sum_ k  e.  x  B )  +  ( abs `  [_ y  /  k ]_ B
) )  <_  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B ) ) )
9373, 74, 76, 78fsumsplit 13200 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  ( x  u.  {
y } ) B  =  ( sum_ k  e.  x  B  +  sum_ k  e.  { y } B ) )
94 sumsns 13203 . . . . . . . . . . . . . . . . 17  |-  ( ( y  e.  A  /\  [_ y  /  k ]_ B  e.  CC )  -> 
sum_ k  e.  {
y } B  = 
[_ y  /  k ]_ B )
9560, 68, 94syl2anc 654 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  { y } B  =  [_ y  /  k ]_ B )
9695oveq2d 6096 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ( sum_ k  e.  x  B  +  sum_ k  e.  {
y } B )  =  ( sum_ k  e.  x  B  +  [_ y  /  k ]_ B ) )
9793, 96eqtrd 2465 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  ( x  u.  {
y } ) B  =  ( sum_ k  e.  x  B  +  [_ y  /  k ]_ B ) )
9897fveq2d 5683 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  =  ( abs `  ( sum_ k  e.  x  B  +  [_ y  / 
k ]_ B ) ) )
9953, 68abstrid 12926 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ( abs `  ( sum_ k  e.  x  B  +  [_ y  /  k ]_ B ) )  <_ 
( ( abs `  sum_ k  e.  x  B
)  +  ( abs `  [_ y  /  k ]_ B ) ) )
10098, 99eqbrtrd 4300 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  ( ( abs `  sum_ k  e.  x  B )  +  ( abs `  [_ y  /  k ]_ B
) ) )
10176, 78fsumcl 13194 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  ( x  u.  {
y } ) B  e.  CC )
102101abscld 12906 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  e.  RR )
10354, 69readdcld 9401 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
( abs `  sum_ k  e.  x  B
)  +  ( abs `  [_ y  /  k ]_ B ) )  e.  RR )
10476, 79fsumrecl 13195 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B )  e.  RR )
105 letr 9456 . . . . . . . . . . . . 13  |-  ( ( ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  e.  RR  /\  ( ( abs `  sum_ k  e.  x  B
)  +  ( abs `  [_ y  /  k ]_ B ) )  e.  RR  /\  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B )  e.  RR )  -> 
( ( ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  ( ( abs `  sum_ k  e.  x  B )  +  ( abs `  [_ y  /  k ]_ B
) )  /\  (
( abs `  sum_ k  e.  x  B
)  +  ( abs `  [_ y  /  k ]_ B ) )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B
) )  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B ) ) )
106102, 103, 104, 105syl3anc 1211 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
( ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  (
( abs `  sum_ k  e.  x  B
)  +  ( abs `  [_ y  /  k ]_ B ) )  /\  ( ( abs `  sum_ k  e.  x  B
)  +  ( abs `  [_ y  /  k ]_ B ) )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B
) )  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B ) ) )
107100, 106mpand 668 . . . . . . . . . . 11  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
( ( abs `  sum_ k  e.  x  B
)  +  ( abs `  [_ y  /  k ]_ B ) )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B
)  ->  ( abs ` 
sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B ) ) )
10892, 107sylbid 215 . . . . . . . . . 10  |-  ( ( ( ph  /\  -.  y  e.  x )  /\  ( x  u.  {
y } )  C_  A )  ->  (
( abs `  sum_ k  e.  x  B
)  <_  sum_ k  e.  x  ( abs `  B
)  ->  ( abs ` 
sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B ) ) )
109108ex 434 . . . . . . . . 9  |-  ( (
ph  /\  -.  y  e.  x )  ->  (
( x  u.  {
y } )  C_  A  ->  ( ( abs `  sum_ k  e.  x  B )  <_  sum_ k  e.  x  ( abs `  B )  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B ) ) ) )
110109a2d 26 . . . . . . . 8  |-  ( (
ph  /\  -.  y  e.  x )  ->  (
( ( x  u. 
{ y } ) 
C_  A  ->  ( abs `  sum_ k  e.  x  B )  <_  sum_ k  e.  x  ( abs `  B ) )  -> 
( ( x  u. 
{ y } ) 
C_  A  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  { y } ) ( abs `  B ) ) ) )
11142, 110syl5 32 . . . . . . 7  |-  ( (
ph  /\  -.  y  e.  x )  ->  (
( x  C_  A  ->  ( abs `  sum_ k  e.  x  B
)  <_  sum_ k  e.  x  ( abs `  B
) )  ->  (
( x  u.  {
y } )  C_  A  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B ) ) ) )
112111expcom 435 . . . . . 6  |-  ( -.  y  e.  x  -> 
( ph  ->  ( ( x  C_  A  ->  ( abs `  sum_ k  e.  x  B )  <_ 
sum_ k  e.  x  ( abs `  B ) )  ->  ( (
x  u.  { y } )  C_  A  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B ) ) ) ) )
113112a2d 26 . . . . 5  |-  ( -.  y  e.  x  -> 
( ( ph  ->  ( x  C_  A  ->  ( abs `  sum_ k  e.  x  B )  <_ 
sum_ k  e.  x  ( abs `  B ) ) )  ->  ( ph  ->  ( ( x  u.  { y } )  C_  A  ->  ( abs `  sum_ k  e.  ( x  u.  {
y } ) B )  <_  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B ) ) ) ) )
114113adantl 463 . . . 4  |-  ( ( x  e.  Fin  /\  -.  y  e.  x
)  ->  ( ( ph  ->  ( x  C_  A  ->  ( abs `  sum_ k  e.  x  B
)  <_  sum_ k  e.  x  ( abs `  B
) ) )  -> 
( ph  ->  ( ( x  u.  { y } )  C_  A  ->  ( abs `  sum_ k  e.  ( x  u.  { y } ) B )  <_  sum_ k  e.  ( x  u.  {
y } ) ( abs `  B ) ) ) ) )
1159, 16, 23, 30, 38, 114findcard2s 7541 . . 3  |-  ( A  e.  Fin  ->  ( ph  ->  ( A  C_  A  ->  ( abs `  sum_ k  e.  A  B
)  <_  sum_ k  e.  A  ( abs `  B
) ) ) )
1162, 115mpcom 36 . 2  |-  ( ph  ->  ( A  C_  A  ->  ( abs `  sum_ k  e.  A  B
)  <_  sum_ k  e.  A  ( abs `  B
) ) )
1171, 116mpi 17 1  |-  ( ph  ->  ( abs `  sum_ k  e.  A  B
)  <_  sum_ k  e.  A  ( abs `  B
) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 369    = wceq 1362    e. wcel 1755   A.wral 2705   _Vcvv 2962   [_csb 3276    u. cun 3314    i^i cin 3315    C_ wss 3316   (/)c0 3625   {csn 3865   class class class wbr 4280   ` cfv 5406  (class class class)co 6080   Fincfn 7298   CCcc 9268   RRcr 9269   0cc0 9270    + caddc 9273    <_ cle 9407   abscabs 12707   sum_csu 13147
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1594  ax-4 1605  ax-5 1669  ax-6 1707  ax-7 1727  ax-8 1757  ax-9 1759  ax-10 1774  ax-11 1779  ax-12 1791  ax-13 1942  ax-ext 2414  ax-rep 4391  ax-sep 4401  ax-nul 4409  ax-pow 4458  ax-pr 4519  ax-un 6361  ax-inf2 7835  ax-cnex 9326  ax-resscn 9327  ax-1cn 9328  ax-icn 9329  ax-addcl 9330  ax-addrcl 9331  ax-mulcl 9332  ax-mulrcl 9333  ax-mulcom 9334  ax-addass 9335  ax-mulass 9336  ax-distr 9337  ax-i2m1 9338  ax-1ne0 9339  ax-1rid 9340  ax-rnegex 9341  ax-rrecex 9342  ax-cnre 9343  ax-pre-lttri 9344  ax-pre-lttrn 9345  ax-pre-ltadd 9346  ax-pre-mulgt0 9347  ax-pre-sup 9348
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 959  df-3an 960  df-tru 1365  df-fal 1368  df-ex 1590  df-nf 1593  df-sb 1700  df-eu 2258  df-mo 2259  df-clab 2420  df-cleq 2426  df-clel 2429  df-nfc 2558  df-ne 2598  df-nel 2599  df-ral 2710  df-rex 2711  df-reu 2712  df-rmo 2713  df-rab 2714  df-v 2964  df-sbc 3176  df-csb 3277  df-dif 3319  df-un 3321  df-in 3323  df-ss 3330  df-pss 3332  df-nul 3626  df-if 3780  df-pw 3850  df-sn 3866  df-pr 3868  df-tp 3870  df-op 3872  df-uni 4080  df-int 4117  df-iun 4161  df-br 4281  df-opab 4339  df-mpt 4340  df-tr 4374  df-eprel 4619  df-id 4623  df-po 4628  df-so 4629  df-fr 4666  df-se 4667  df-we 4668  df-ord 4709  df-on 4710  df-lim 4711  df-suc 4712  df-xp 4833  df-rel 4834  df-cnv 4835  df-co 4836  df-dm 4837  df-rn 4838  df-res 4839  df-ima 4840  df-iota 5369  df-fun 5408  df-fn 5409  df-f 5410  df-f1 5411  df-fo 5412  df-f1o 5413  df-fv 5414  df-isom 5415  df-riota 6039  df-ov 6083  df-oprab 6084  df-mpt2 6085  df-om 6466  df-1st 6566  df-2nd 6567  df-recs 6818  df-rdg 6852  df-1o 6908  df-oadd 6912  df-er 7089  df-en 7299  df-dom 7300  df-sdom 7301  df-fin 7302  df-sup 7679  df-oi 7712  df-card 8097  df-pnf 9408  df-mnf 9409  df-xr 9410  df-ltxr 9411  df-le 9412  df-sub 9585  df-neg 9586  df-div 9982  df-nn 10311  df-2 10368  df-3 10369  df-n0 10568  df-z 10635  df-uz 10850  df-rp 10980  df-fz 11425  df-fzo 11533  df-seq 11791  df-exp 11850  df-hash 12088  df-cj 12572  df-re 12573  df-im 12574  df-sqr 12708  df-abs 12709  df-clim 12950  df-sum 13148
This theorem is referenced by:  o1fsum  13259  seqabs  13260  cvgcmpce  13264  mertenslem1  13327  dvfsumabs  21337  mtest  21754  mtestbdd  21755  abelthlem7  21788  fsumharmonic  22290  ftalem1  22295  ftalem5  22299  dchrisumlem2  22624  dchrmusum2  22628  dchrvmasumlem3  22633  dchrvmasumiflem1  22635  dchrisum0lem1  22650  dchrisum0lem2a  22651  mudivsum  22664  mulogsumlem  22665  2vmadivsumlem  22674  selberglem2  22680  selberg3lem1  22691  selberg4lem1  22694  pntrsumbnd  22700  pntrlog2bndlem1  22711  pntrlog2bndlem3  22713
  Copyright terms: Public domain W3C validator