Metamath Proof Explorer

Theorem iblabsr

Description: A measurable function is integrable iff its absolute value is integrable. (See iblabs for the forward implication.) (Contributed by Mario Carneiro, 25-Aug-2014)

Ref Expression
Hypotheses iblabsr.1 
|- ( ( ph /\ x e. A ) -> B e. V )
iblabsr.2 
|- ( ph -> ( x e. A |-> B ) e. MblFn )
iblabsr.3 
|- ( ph -> ( x e. A |-> ( abs ` B ) ) e. L^1 )
Assertion iblabsr 
|- ( ph -> ( x e. A |-> B ) e. L^1 )

Proof

Step Hyp Ref Expression
1 iblabsr.1 
 |-  ( ( ph /\ x e. A ) -> B e. V )
2 iblabsr.2 
 |-  ( ph -> ( x e. A |-> B ) e. MblFn )
3 iblabsr.3 
 |-  ( ph -> ( x e. A |-> ( abs ` B ) ) e. L^1 )
4 ifan 
 |-  if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) = if ( x e. A , if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) , 0 )
5 2 1 mbfmptcl 
 |-  ( ( ph /\ x e. A ) -> B e. CC )
6 5 adantlr 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> B e. CC )
7 ax-icn 
 |-  _i e. CC
8 ine0 
 |-  _i =/= 0
9 elfzelz 
 |-  ( k e. ( 0 ... 3 ) -> k e. ZZ )
10 9 ad2antlr 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> k e. ZZ )
11 expclz 
 |-  ( ( _i e. CC /\ _i =/= 0 /\ k e. ZZ ) -> ( _i ^ k ) e. CC )
12 7 8 10 11 mp3an12i 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( _i ^ k ) e. CC )
13 expne0i 
 |-  ( ( _i e. CC /\ _i =/= 0 /\ k e. ZZ ) -> ( _i ^ k ) =/= 0 )
14 7 8 10 13 mp3an12i 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( _i ^ k ) =/= 0 )
15 6 12 14 divcld 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( B / ( _i ^ k ) ) e. CC )
16 15 recld 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( Re ` ( B / ( _i ^ k ) ) ) e. RR )
17 0re 
 |-  0 e. RR
18 ifcl 
 |-  ( ( ( Re ` ( B / ( _i ^ k ) ) ) e. RR /\ 0 e. RR ) -> if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) e. RR )
19 16 17 18 sylancl 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) e. RR )
20 19 rexrd 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) e. RR* )
21 max1 
 |-  ( ( 0 e. RR /\ ( Re ` ( B / ( _i ^ k ) ) ) e. RR ) -> 0 <_ if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) )
22 17 16 21 sylancr 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> 0 <_ if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) )
23 elxrge0 
 |-  ( if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) e. ( 0 [,] +oo ) <-> ( if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) e. RR* /\ 0 <_ if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) )
24 20 22 23 sylanbrc 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) e. ( 0 [,] +oo ) )
25 0e0iccpnf 
 |-  0 e. ( 0 [,] +oo )
26 25 a1i 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ -. x e. A ) -> 0 e. ( 0 [,] +oo ) )
27 24 26 ifclda 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> if ( x e. A , if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) , 0 ) e. ( 0 [,] +oo ) )
28 4 27 eqeltrid 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) e. ( 0 [,] +oo ) )
29 28 adantr 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. RR ) -> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) e. ( 0 [,] +oo ) )
30 29 fmpttd 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) : RR --> ( 0 [,] +oo ) )
31 5 abscld 
 |-  ( ( ph /\ x e. A ) -> ( abs ` B ) e. RR )
32 5 absge0d 
 |-  ( ( ph /\ x e. A ) -> 0 <_ ( abs ` B ) )
33 31 32 iblpos 
 |-  ( ph -> ( ( x e. A |-> ( abs ` B ) ) e. L^1 <-> ( ( x e. A |-> ( abs ` B ) ) e. MblFn /\ ( S.2 ` ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) ) e. RR ) ) )
34 3 33 mpbid 
 |-  ( ph -> ( ( x e. A |-> ( abs ` B ) ) e. MblFn /\ ( S.2 ` ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) ) e. RR ) )
35 34 simprd 
 |-  ( ph -> ( S.2 ` ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) ) e. RR )
36 35 adantr 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( S.2 ` ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) ) e. RR )
37 31 rexrd 
 |-  ( ( ph /\ x e. A ) -> ( abs ` B ) e. RR* )
38 elxrge0 
 |-  ( ( abs ` B ) e. ( 0 [,] +oo ) <-> ( ( abs ` B ) e. RR* /\ 0 <_ ( abs ` B ) ) )
39 37 32 38 sylanbrc 
 |-  ( ( ph /\ x e. A ) -> ( abs ` B ) e. ( 0 [,] +oo ) )
40 25 a1i 
 |-  ( ( ph /\ -. x e. A ) -> 0 e. ( 0 [,] +oo ) )
41 39 40 ifclda 
 |-  ( ph -> if ( x e. A , ( abs ` B ) , 0 ) e. ( 0 [,] +oo ) )
42 41 adantr 
 |-  ( ( ph /\ x e. RR ) -> if ( x e. A , ( abs ` B ) , 0 ) e. ( 0 [,] +oo ) )
43 42 fmpttd 
 |-  ( ph -> ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) : RR --> ( 0 [,] +oo ) )
44 43 adantr 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) : RR --> ( 0 [,] +oo ) )
45 15 releabsd 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( Re ` ( B / ( _i ^ k ) ) ) <_ ( abs ` ( B / ( _i ^ k ) ) ) )
46 6 12 14 absdivd 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( abs ` ( B / ( _i ^ k ) ) ) = ( ( abs ` B ) / ( abs ` ( _i ^ k ) ) ) )
47 elfznn0 
 |-  ( k e. ( 0 ... 3 ) -> k e. NN0 )
48 47 ad2antlr 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> k e. NN0 )
49 absexp 
 |-  ( ( _i e. CC /\ k e. NN0 ) -> ( abs ` ( _i ^ k ) ) = ( ( abs ` _i ) ^ k ) )
50 7 48 49 sylancr 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( abs ` ( _i ^ k ) ) = ( ( abs ` _i ) ^ k ) )
51 absi 
 |-  ( abs ` _i ) = 1
52 51 oveq1i 
 |-  ( ( abs ` _i ) ^ k ) = ( 1 ^ k )
53 1exp 
 |-  ( k e. ZZ -> ( 1 ^ k ) = 1 )
54 10 53 syl 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( 1 ^ k ) = 1 )
55 52 54 eqtrid 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( ( abs ` _i ) ^ k ) = 1 )
56 50 55 eqtrd 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( abs ` ( _i ^ k ) ) = 1 )
57 56 oveq2d 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( ( abs ` B ) / ( abs ` ( _i ^ k ) ) ) = ( ( abs ` B ) / 1 ) )
58 31 recnd 
 |-  ( ( ph /\ x e. A ) -> ( abs ` B ) e. CC )
59 58 adantlr 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( abs ` B ) e. CC )
60 59 div1d 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( ( abs ` B ) / 1 ) = ( abs ` B ) )
61 46 57 60 3eqtrd 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( abs ` ( B / ( _i ^ k ) ) ) = ( abs ` B ) )
62 45 61 breqtrd 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( Re ` ( B / ( _i ^ k ) ) ) <_ ( abs ` B ) )
63 6 absge0d 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> 0 <_ ( abs ` B ) )
64 breq1 
 |-  ( ( Re ` ( B / ( _i ^ k ) ) ) = if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) -> ( ( Re ` ( B / ( _i ^ k ) ) ) <_ ( abs ` B ) <-> if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) <_ ( abs ` B ) ) )
65 breq1 
 |-  ( 0 = if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) -> ( 0 <_ ( abs ` B ) <-> if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) <_ ( abs ` B ) ) )
66 64 65 ifboth 
 |-  ( ( ( Re ` ( B / ( _i ^ k ) ) ) <_ ( abs ` B ) /\ 0 <_ ( abs ` B ) ) -> if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) <_ ( abs ` B ) )
67 62 63 66 syl2anc 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) <_ ( abs ` B ) )
68 iftrue 
 |-  ( x e. A -> if ( x e. A , if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) , 0 ) = if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) )
69 68 adantl 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> if ( x e. A , if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) , 0 ) = if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) )
70 iftrue 
 |-  ( x e. A -> if ( x e. A , ( abs ` B ) , 0 ) = ( abs ` B ) )
71 70 adantl 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> if ( x e. A , ( abs ` B ) , 0 ) = ( abs ` B ) )
72 67 69 71 3brtr4d 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> if ( x e. A , if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) , 0 ) <_ if ( x e. A , ( abs ` B ) , 0 ) )
73 72 ex 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( x e. A -> if ( x e. A , if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) , 0 ) <_ if ( x e. A , ( abs ` B ) , 0 ) ) )
74 0le0 
 |-  0 <_ 0
75 74 a1i 
 |-  ( -. x e. A -> 0 <_ 0 )
76 iffalse 
 |-  ( -. x e. A -> if ( x e. A , if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) , 0 ) = 0 )
77 iffalse 
 |-  ( -. x e. A -> if ( x e. A , ( abs ` B ) , 0 ) = 0 )
78 75 76 77 3brtr4d 
 |-  ( -. x e. A -> if ( x e. A , if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) , 0 ) <_ if ( x e. A , ( abs ` B ) , 0 ) )
79 73 78 pm2.61d1 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> if ( x e. A , if ( 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) , 0 ) <_ if ( x e. A , ( abs ` B ) , 0 ) )
80 4 79 eqbrtrid 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) <_ if ( x e. A , ( abs ` B ) , 0 ) )
81 80 ralrimivw 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> A. x e. RR if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) <_ if ( x e. A , ( abs ` B ) , 0 ) )
82 reex 
 |-  RR e. _V
83 82 a1i 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> RR e. _V )
84 37 adantlr 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( abs ` B ) e. RR* )
85 84 63 38 sylanbrc 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. A ) -> ( abs ` B ) e. ( 0 [,] +oo ) )
86 85 26 ifclda 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> if ( x e. A , ( abs ` B ) , 0 ) e. ( 0 [,] +oo ) )
87 86 adantr 
 |-  ( ( ( ph /\ k e. ( 0 ... 3 ) ) /\ x e. RR ) -> if ( x e. A , ( abs ` B ) , 0 ) e. ( 0 [,] +oo ) )
88 eqidd 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) = ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) )
89 eqidd 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) = ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) )
90 83 29 87 88 89 ofrfval2 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) oR <_ ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) <-> A. x e. RR if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) <_ if ( x e. A , ( abs ` B ) , 0 ) ) )
91 81 90 mpbird 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) oR <_ ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) )
92 itg2le 
 |-  ( ( ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) : RR --> ( 0 [,] +oo ) /\ ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) : RR --> ( 0 [,] +oo ) /\ ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) oR <_ ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) ) -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) <_ ( S.2 ` ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) ) )
93 30 44 91 92 syl3anc 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) <_ ( S.2 ` ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) ) )
94 itg2lecl 
 |-  ( ( ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) : RR --> ( 0 [,] +oo ) /\ ( S.2 ` ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) ) e. RR /\ ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) <_ ( S.2 ` ( x e. RR |-> if ( x e. A , ( abs ` B ) , 0 ) ) ) ) -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR )
95 30 36 93 94 syl3anc 
 |-  ( ( ph /\ k e. ( 0 ... 3 ) ) -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR )
96 95 ralrimiva 
 |-  ( ph -> A. k e. ( 0 ... 3 ) ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR )
97 eqidd 
 |-  ( ph -> ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) = ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) )
98 eqidd 
 |-  ( ( ph /\ x e. A ) -> ( Re ` ( B / ( _i ^ k ) ) ) = ( Re ` ( B / ( _i ^ k ) ) ) )
99 97 98 1 isibl2 
 |-  ( ph -> ( ( x e. A |-> B ) e. L^1 <-> ( ( x e. A |-> B ) e. MblFn /\ A. k e. ( 0 ... 3 ) ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR ) ) )
100 2 96 99 mpbir2and 
 |-  ( ph -> ( x e. A |-> B ) e. L^1 )