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

Theorem iblss 21285
Description: A subset of an integrable function is integrable. (Contributed by Mario Carneiro, 12-Aug-2014.)
Hypotheses
Ref Expression
iblss.1  |-  ( ph  ->  A  C_  B )
iblss.2  |-  ( ph  ->  A  e.  dom  vol )
iblss.3  |-  ( (
ph  /\  x  e.  B )  ->  C  e.  V )
iblss.4  |-  ( ph  ->  ( x  e.  B  |->  C )  e.  L^1 )
Assertion
Ref Expression
iblss  |-  ( ph  ->  ( x  e.  A  |->  C )  e.  L^1 )
Distinct variable groups:    x, A    x, B    ph, x    x, V
Allowed substitution hint:    C( x)

Proof of Theorem iblss
Dummy variable  k is distinct from all other variables.
StepHypRef Expression
1 iblss.1 . . . 4  |-  ( ph  ->  A  C_  B )
2 resmpt 5159 . . . 4  |-  ( A 
C_  B  ->  (
( x  e.  B  |->  C )  |`  A )  =  ( x  e.  A  |->  C ) )
31, 2syl 16 . . 3  |-  ( ph  ->  ( ( x  e.  B  |->  C )  |`  A )  =  ( x  e.  A  |->  C ) )
4 iblss.4 . . . . 5  |-  ( ph  ->  ( x  e.  B  |->  C )  e.  L^1 )
5 iblmbf 21248 . . . . 5  |-  ( ( x  e.  B  |->  C )  e.  L^1 
->  ( x  e.  B  |->  C )  e. MblFn )
64, 5syl 16 . . . 4  |-  ( ph  ->  ( x  e.  B  |->  C )  e. MblFn )
7 iblss.2 . . . 4  |-  ( ph  ->  A  e.  dom  vol )
8 mbfres 21125 . . . 4  |-  ( ( ( x  e.  B  |->  C )  e. MblFn  /\  A  e.  dom  vol )  -> 
( ( x  e.  B  |->  C )  |`  A )  e. MblFn )
96, 7, 8syl2anc 661 . . 3  |-  ( ph  ->  ( ( x  e.  B  |->  C )  |`  A )  e. MblFn )
103, 9eqeltrrd 2518 . 2  |-  ( ph  ->  ( x  e.  A  |->  C )  e. MblFn )
11 ifan 3838 . . . . . 6  |-  if ( ( x  e.  A  /\  0  <_  ( Re
`  ( C  / 
( _i ^ k
) ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 )  =  if ( x  e.  A ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )
12 simpll 753 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  ( 0 ... 3
) )  /\  x  e.  RR )  ->  ph )
131sselda 3359 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  A )  ->  x  e.  B )
1412, 13sylan 471 . . . . . . . 8  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  A
)  ->  x  e.  B )
15 iblss.3 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  x  e.  B )  ->  C  e.  V )
166, 15mbfmptcl 21118 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  B )  ->  C  e.  CC )
1712, 16sylan 471 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  C  e.  CC )
18 elfzelz 11456 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 0 ... 3 )  ->  k  e.  ZZ )
1918ad3antlr 730 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  k  e.  ZZ )
20 ax-icn 9344 . . . . . . . . . . . . . . 15  |-  _i  e.  CC
21 ine0 9783 . . . . . . . . . . . . . . 15  |-  _i  =/=  0
22 expclz 11893 . . . . . . . . . . . . . . 15  |-  ( ( _i  e.  CC  /\  _i  =/=  0  /\  k  e.  ZZ )  ->  (
_i ^ k )  e.  CC )
2320, 21, 22mp3an12 1304 . . . . . . . . . . . . . 14  |-  ( k  e.  ZZ  ->  (
_i ^ k )  e.  CC )
2419, 23syl 16 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  ( _i ^ k )  e.  CC )
25 expne0i 11899 . . . . . . . . . . . . . . 15  |-  ( ( _i  e.  CC  /\  _i  =/=  0  /\  k  e.  ZZ )  ->  (
_i ^ k )  =/=  0 )
2620, 21, 25mp3an12 1304 . . . . . . . . . . . . . 14  |-  ( k  e.  ZZ  ->  (
_i ^ k )  =/=  0 )
2719, 26syl 16 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  ( _i ^ k )  =/=  0 )
2817, 24, 27divcld 10110 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  ( C  /  ( _i ^
k ) )  e.  CC )
2928recld 12686 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  ( Re `  ( C  /  (
_i ^ k ) ) )  e.  RR )
30 0re 9389 . . . . . . . . . . 11  |-  0  e.  RR
31 ifcl 3834 . . . . . . . . . . 11  |-  ( ( ( Re `  ( C  /  ( _i ^
k ) ) )  e.  RR  /\  0  e.  RR )  ->  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 )  e.  RR )
3229, 30, 31sylancl 662 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  if (
0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 )  e.  RR )
3332rexrd 9436 . . . . . . . . 9  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  if (
0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 )  e. 
RR* )
34 max1 11160 . . . . . . . . . 10  |-  ( ( 0  e.  RR  /\  ( Re `  ( C  /  ( _i ^
k ) ) )  e.  RR )  -> 
0  <_  if (
0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) )
3530, 29, 34sylancr 663 . . . . . . . . 9  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  0  <_  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) )
36 elxrge0 11397 . . . . . . . . 9  |-  ( if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 )  e.  ( 0 [,] +oo )  <->  ( if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 )  e.  RR*  /\  0  <_  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ) )
3733, 35, 36sylanbrc 664 . . . . . . . 8  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  if (
0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 )  e.  ( 0 [,] +oo ) )
3814, 37syldan 470 . . . . . . 7  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  A
)  ->  if (
0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 )  e.  ( 0 [,] +oo ) )
39 0e0iccpnf 11399 . . . . . . . 8  |-  0  e.  ( 0 [,] +oo )
4039a1i 11 . . . . . . 7  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  -.  x  e.  A )  ->  0  e.  ( 0 [,] +oo ) )
4138, 40ifclda 3824 . . . . . 6  |-  ( ( ( ph  /\  k  e.  ( 0 ... 3
) )  /\  x  e.  RR )  ->  if ( x  e.  A ,  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  e.  ( 0 [,] +oo ) )
4211, 41syl5eqel 2527 . . . . 5  |-  ( ( ( ph  /\  k  e.  ( 0 ... 3
) )  /\  x  e.  RR )  ->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 )  e.  ( 0 [,] +oo )
)
43 eqid 2443 . . . . 5  |-  ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_  ( Re
`  ( C  / 
( _i ^ k
) ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) )  =  ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )
4442, 43fmptd 5870 . . . 4  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  (
x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) : RR --> ( 0 [,] +oo ) )
45 eqidd 2444 . . . . . 6  |-  ( ph  ->  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )  =  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )
46 eqidd 2444 . . . . . 6  |-  ( (
ph  /\  x  e.  B )  ->  (
Re `  ( C  /  ( _i ^
k ) ) )  =  ( Re `  ( C  /  (
_i ^ k ) ) ) )
4745, 46, 4, 15iblitg 21249 . . . . 5  |-  ( (
ph  /\  k  e.  ZZ )  ->  ( S.2 `  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )  e.  RR )
4818, 47sylan2 474 . . . 4  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  ( S.2 `  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) ) )  e.  RR )
49 ifan 3838 . . . . . . 7  |-  if ( ( x  e.  B  /\  0  <_  ( Re
`  ( C  / 
( _i ^ k
) ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 )  =  if ( x  e.  B ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )
5039a1i 11 . . . . . . . 8  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  -.  x  e.  B )  ->  0  e.  ( 0 [,] +oo ) )
5137, 50ifclda 3824 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  ( 0 ... 3
) )  /\  x  e.  RR )  ->  if ( x  e.  B ,  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  e.  ( 0 [,] +oo ) )
5249, 51syl5eqel 2527 . . . . . 6  |-  ( ( ( ph  /\  k  e.  ( 0 ... 3
) )  /\  x  e.  RR )  ->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 )  e.  ( 0 [,] +oo )
)
53 eqid 2443 . . . . . 6  |-  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_  ( Re
`  ( C  / 
( _i ^ k
) ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) )  =  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )
5452, 53fmptd 5870 . . . . 5  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  (
x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) : RR --> ( 0 [,] +oo ) )
5532leidd 9909 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  if (
0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 )  <_  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) )
56 breq1 4298 . . . . . . . . . . . 12  |-  ( if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 )  =  if ( x  e.  A ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  ->  ( if ( 0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 )  <_  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 )  <->  if ( x  e.  A ,  if ( 0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) ,  0 )  <_  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ) )
57 breq1 4298 . . . . . . . . . . . 12  |-  ( 0  =  if ( x  e.  A ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  ->  ( 0  <_  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 )  <->  if ( x  e.  A ,  if ( 0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) ,  0 )  <_  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ) )
5856, 57ifboth 3828 . . . . . . . . . . 11  |-  ( ( if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 )  <_  if (
0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 )  /\  0  <_  if ( 0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) )  ->  if ( x  e.  A ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  <_  if ( 0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) )
5955, 35, 58syl2anc 661 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  if (
x  e.  A ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  <_  if ( 0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) )
60 iftrue 3800 . . . . . . . . . . 11  |-  ( x  e.  B  ->  if ( x  e.  B ,  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  =  if ( 0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) )
6160adantl 466 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  if (
x  e.  B ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  =  if ( 0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) )
6259, 61breqtrrd 4321 . . . . . . . . 9  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  x  e.  B
)  ->  if (
x  e.  A ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  <_  if ( x  e.  B ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 ) )
63 0le0 10414 . . . . . . . . . . 11  |-  0  <_  0
6463a1i 11 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  -.  x  e.  B )  ->  0  <_  0 )
6514ex 434 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  ( 0 ... 3
) )  /\  x  e.  RR )  ->  (
x  e.  A  ->  x  e.  B )
)
6665con3dimp 441 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  -.  x  e.  B )  ->  -.  x  e.  A )
67 iffalse 3802 . . . . . . . . . . 11  |-  ( -.  x  e.  A  ->  if ( x  e.  A ,  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  =  0 )
6866, 67syl 16 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  -.  x  e.  B )  ->  if ( x  e.  A ,  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  =  0 )
69 iffalse 3802 . . . . . . . . . . 11  |-  ( -.  x  e.  B  ->  if ( x  e.  B ,  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  =  0 )
7069adantl 466 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  -.  x  e.  B )  ->  if ( x  e.  B ,  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  =  0 )
7164, 68, 703brtr4d 4325 . . . . . . . . 9  |-  ( ( ( ( ph  /\  k  e.  ( 0 ... 3 ) )  /\  x  e.  RR )  /\  -.  x  e.  B )  ->  if ( x  e.  A ,  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  <_  if ( x  e.  B ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 ) )
7262, 71pm2.61dan 789 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  ( 0 ... 3
) )  /\  x  e.  RR )  ->  if ( x  e.  A ,  if ( 0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 )  <_  if ( x  e.  B ,  if ( 0  <_  (
Re `  ( C  /  ( _i ^
k ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ,  0 ) )
7372, 11, 493brtr4g 4327 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  ( 0 ... 3
) )  /\  x  e.  RR )  ->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 )  <_  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )
7473ralrimiva 2802 . . . . . 6  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  A. x  e.  RR  if ( ( x  e.  A  /\  0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 )  <_  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )
75 reex 9376 . . . . . . . 8  |-  RR  e.  _V
7675a1i 11 . . . . . . 7  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  RR  e.  _V )
77 eqidd 2444 . . . . . . 7  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  (
x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )  =  ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )
78 eqidd 2444 . . . . . . 7  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  (
x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )  =  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )
7976, 42, 52, 77, 78ofrfval2 6340 . . . . . 6  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  (
( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )  oR  <_  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) )  <->  A. x  e.  RR  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 )  <_  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )
8074, 79mpbird 232 . . . . 5  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  (
x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )  oR  <_  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) ) )
81 itg2le 21220 . . . . 5  |-  ( ( ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) : RR --> ( 0 [,] +oo )  /\  (
x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) : RR --> ( 0 [,] +oo )  /\  (
x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )  oR  <_  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) ) )  ->  ( S.2 `  ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )  <_  ( S.2 `  (
x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) ) )
8244, 54, 80, 81syl3anc 1218 . . . 4  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  ( S.2 `  ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) ) )  <_  ( S.2 `  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) ) )
83 itg2lecl 21219 . . . 4  |-  ( ( ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) : RR --> ( 0 [,] +oo )  /\  ( S.2 `  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) ) )  e.  RR  /\  ( S.2 `  ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_  ( Re
`  ( C  / 
( _i ^ k
) ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ) )  <_ 
( S.2 `  ( x  e.  RR  |->  if ( ( x  e.  B  /\  0  <_  ( Re
`  ( C  / 
( _i ^ k
) ) ) ) ,  ( Re `  ( C  /  (
_i ^ k ) ) ) ,  0 ) ) ) )  ->  ( S.2 `  (
x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )  e.  RR )
8444, 48, 82, 83syl3anc 1218 . . 3  |-  ( (
ph  /\  k  e.  ( 0 ... 3
) )  ->  ( S.2 `  ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_  ( Re `  ( C  /  (
_i ^ k ) ) ) ) ,  ( Re `  ( C  /  ( _i ^
k ) ) ) ,  0 ) ) )  e.  RR )
8584ralrimiva 2802 . 2  |-  ( ph  ->  A. k  e.  ( 0 ... 3 ) ( S.2 `  (
x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )  e.  RR )
86 eqidd 2444 . . 3  |-  ( ph  ->  ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) )  =  ( x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )
87 eqidd 2444 . . 3  |-  ( (
ph  /\  x  e.  A )  ->  (
Re `  ( C  /  ( _i ^
k ) ) )  =  ( Re `  ( C  /  (
_i ^ k ) ) ) )
8813, 16syldan 470 . . 3  |-  ( (
ph  /\  x  e.  A )  ->  C  e.  CC )
8986, 87, 88isibl2 21247 . 2  |-  ( ph  ->  ( ( x  e.  A  |->  C )  e.  L^1  <->  ( (
x  e.  A  |->  C )  e. MblFn  /\  A. k  e.  ( 0 ... 3
) ( S.2 `  (
x  e.  RR  |->  if ( ( x  e.  A  /\  0  <_ 
( Re `  ( C  /  ( _i ^
k ) ) ) ) ,  ( Re
`  ( C  / 
( _i ^ k
) ) ) ,  0 ) ) )  e.  RR ) ) )
9010, 85, 89mpbir2and 913 1  |-  ( ph  ->  ( x  e.  A  |->  C )  e.  L^1 )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 369    = wceq 1369    e. wcel 1756    =/= wne 2609   A.wral 2718   _Vcvv 2975    C_ wss 3331   ifcif 3794   class class class wbr 4295    e. cmpt 4353   dom cdm 4843    |` cres 4845   -->wf 5417   ` cfv 5421  (class class class)co 6094    oRcofr 6322   CCcc 9283   RRcr 9284   0cc0 9285   _ici 9287   +oocpnf 9418   RR*cxr 9420    <_ cle 9422    / cdiv 9996   3c3 10375   ZZcz 10649   [,]cicc 11306   ...cfz 11440   ^cexp 11868   Recre 12589   volcvol 20950  MblFncmbf 21097   S.2citg2 21099   L^1cibl 21100
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2423  ax-rep 4406  ax-sep 4416  ax-nul 4424  ax-pow 4473  ax-pr 4534  ax-un 6375  ax-inf2 7850  ax-cnex 9341  ax-resscn 9342  ax-1cn 9343  ax-icn 9344  ax-addcl 9345  ax-addrcl 9346  ax-mulcl 9347  ax-mulrcl 9348  ax-mulcom 9349  ax-addass 9350  ax-mulass 9351  ax-distr 9352  ax-i2m1 9353  ax-1ne0 9354  ax-1rid 9355  ax-rnegex 9356  ax-rrecex 9357  ax-cnre 9358  ax-pre-lttri 9359  ax-pre-lttrn 9360  ax-pre-ltadd 9361  ax-pre-mulgt0 9362  ax-pre-sup 9363
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-fal 1375  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2257  df-mo 2258  df-clab 2430  df-cleq 2436  df-clel 2439  df-nfc 2571  df-ne 2611  df-nel 2612  df-ral 2723  df-rex 2724  df-reu 2725  df-rmo 2726  df-rab 2727  df-v 2977  df-sbc 3190  df-csb 3292  df-dif 3334  df-un 3336  df-in 3338  df-ss 3345  df-pss 3347  df-nul 3641  df-if 3795  df-pw 3865  df-sn 3881  df-pr 3883  df-tp 3885  df-op 3887  df-uni 4095  df-int 4132  df-iun 4176  df-br 4296  df-opab 4354  df-mpt 4355  df-tr 4389  df-eprel 4635  df-id 4639  df-po 4644  df-so 4645  df-fr 4682  df-se 4683  df-we 4684  df-ord 4725  df-on 4726  df-lim 4727  df-suc 4728  df-xp 4849  df-rel 4850  df-cnv 4851  df-co 4852  df-dm 4853  df-rn 4854  df-res 4855  df-ima 4856  df-iota 5384  df-fun 5423  df-fn 5424  df-f 5425  df-f1 5426  df-fo 5427  df-f1o 5428  df-fv 5429  df-isom 5430  df-riota 6055  df-ov 6097  df-oprab 6098  df-mpt2 6099  df-of 6323  df-ofr 6324  df-om 6480  df-1st 6580  df-2nd 6581  df-recs 6835  df-rdg 6869  df-1o 6923  df-2o 6924  df-oadd 6927  df-er 7104  df-map 7219  df-pm 7220  df-en 7314  df-dom 7315  df-sdom 7316  df-fin 7317  df-sup 7694  df-oi 7727  df-card 8112  df-cda 8340  df-pnf 9423  df-mnf 9424  df-xr 9425  df-ltxr 9426  df-le 9427  df-sub 9600  df-neg 9601  df-div 9997  df-nn 10326  df-2 10383  df-3 10384  df-4 10385  df-n0 10583  df-z 10650  df-uz 10865  df-q 10957  df-rp 10995  df-xadd 11093  df-ioo 11307  df-ico 11309  df-icc 11310  df-fz 11441  df-fzo 11552  df-fl 11645  df-mod 11712  df-seq 11810  df-exp 11869  df-hash 12107  df-cj 12591  df-re 12592  df-im 12593  df-sqr 12727  df-abs 12728  df-clim 12969  df-sum 13167  df-xmet 17813  df-met 17814  df-ovol 20951  df-vol 20952  df-mbf 21102  df-itg1 21103  df-itg2 21104  df-ibl 21105
This theorem is referenced by:  itgss3  21295  itgless  21297  bddmulibl  21319  itgcn  21323  ditgcl  21336  ditgswap  21337  ditgsplitlem  21338  ftc1lem1  21510  ftc1lem2  21511  ftc1a  21512  ftc1lem4  21514  ftc2  21519  ftc2ditglem  21520  itgsubstlem  21523  ftc1cnnclem  28468  ftc1anc  28478  ftc2nc  28479  areacirc  28492  itgpowd  29593  lhe4.4ex1a  29606  itgsin0pilem1  29793  iblioosinexp  29796  itgsinexplem1  29797  itgsinexp  29798
  Copyright terms: Public domain W3C validator