This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem iblcnlem1

Description: Lemma for iblcnlem . (Contributed by Mario Carneiro, 6-Aug-2014) (Revised by Mario Carneiro, 23-Aug-2014)

Ref Expression
Hypotheses itgcnlem.r 
|- R = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` B ) ) , ( Re ` B ) , 0 ) ) )
itgcnlem.s 
|- S = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ -u ( Re ` B ) ) , -u ( Re ` B ) , 0 ) ) )
itgcnlem.t 
|- T = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Im ` B ) ) , ( Im ` B ) , 0 ) ) )
itgcnlem.u 
|- U = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ -u ( Im ` B ) ) , -u ( Im ` B ) , 0 ) ) )
itgcnlem1.v 
|- ( ( ph /\ x e. A ) -> B e. CC )
Assertion iblcnlem1 
|- ( ph -> ( ( x e. A |-> B ) e. L^1 <-> ( ( x e. A |-> B ) e. MblFn /\ ( R e. RR /\ S e. RR ) /\ ( T e. RR /\ U e. RR ) ) ) )

Proof

Step Hyp Ref Expression
1 itgcnlem.r 
 |-  R = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` B ) ) , ( Re ` B ) , 0 ) ) )
2 itgcnlem.s 
 |-  S = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ -u ( Re ` B ) ) , -u ( Re ` B ) , 0 ) ) )
3 itgcnlem.t 
 |-  T = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Im ` B ) ) , ( Im ` B ) , 0 ) ) )
4 itgcnlem.u 
 |-  U = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ -u ( Im ` B ) ) , -u ( Im ` B ) , 0 ) ) )
5 itgcnlem1.v 
 |-  ( ( ph /\ x e. A ) -> B e. CC )
6 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 ) ) )
7 eqidd 
 |-  ( ( ph /\ x e. A ) -> ( Re ` ( B / ( _i ^ k ) ) ) = ( Re ` ( B / ( _i ^ k ) ) ) )
8 6 7 5 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 ) ) )
9 c0ex 
 |-  0 e. _V
10 1ex 
 |-  1 e. _V
11 ax-icn 
 |-  _i e. CC
12 exp0 
 |-  ( _i e. CC -> ( _i ^ 0 ) = 1 )
13 11 12 ax-mp 
 |-  ( _i ^ 0 ) = 1
14 13 itgvallem 
 |-  ( k = 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 /\ 0 <_ ( Re ` ( B / 1 ) ) ) , ( Re ` ( B / 1 ) ) , 0 ) ) ) )
15 14 eleq1d 
 |-  ( k = 0 -> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR <-> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / 1 ) ) ) , ( Re ` ( B / 1 ) ) , 0 ) ) ) e. RR ) )
16 exp1 
 |-  ( _i e. CC -> ( _i ^ 1 ) = _i )
17 11 16 ax-mp 
 |-  ( _i ^ 1 ) = _i
18 17 itgvallem 
 |-  ( k = 1 -> ( 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 /\ 0 <_ ( Re ` ( B / _i ) ) ) , ( Re ` ( B / _i ) ) , 0 ) ) ) )
19 18 eleq1d 
 |-  ( k = 1 -> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR <-> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / _i ) ) ) , ( Re ` ( B / _i ) ) , 0 ) ) ) e. RR ) )
20 9 10 15 19 ralpr 
 |-  ( A. k e. { 0 , 1 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR <-> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / 1 ) ) ) , ( Re ` ( B / 1 ) ) , 0 ) ) ) e. RR /\ ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / _i ) ) ) , ( Re ` ( B / _i ) ) , 0 ) ) ) e. RR ) )
21 5 div1d 
 |-  ( ( ph /\ x e. A ) -> ( B / 1 ) = B )
22 21 fveq2d 
 |-  ( ( ph /\ x e. A ) -> ( Re ` ( B / 1 ) ) = ( Re ` B ) )
23 22 ibllem 
 |-  ( ph -> if ( ( x e. A /\ 0 <_ ( Re ` ( B / 1 ) ) ) , ( Re ` ( B / 1 ) ) , 0 ) = if ( ( x e. A /\ 0 <_ ( Re ` B ) ) , ( Re ` B ) , 0 ) )
24 23 mpteq2dv 
 |-  ( ph -> ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / 1 ) ) ) , ( Re ` ( B / 1 ) ) , 0 ) ) = ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` B ) ) , ( Re ` B ) , 0 ) ) )
25 24 fveq2d 
 |-  ( ph -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / 1 ) ) ) , ( Re ` ( B / 1 ) ) , 0 ) ) ) = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` B ) ) , ( Re ` B ) , 0 ) ) ) )
26 25 1 eqtr4di 
 |-  ( ph -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / 1 ) ) ) , ( Re ` ( B / 1 ) ) , 0 ) ) ) = R )
27 26 eleq1d 
 |-  ( ph -> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / 1 ) ) ) , ( Re ` ( B / 1 ) ) , 0 ) ) ) e. RR <-> R e. RR ) )
28 imval 
 |-  ( B e. CC -> ( Im ` B ) = ( Re ` ( B / _i ) ) )
29 5 28 syl 
 |-  ( ( ph /\ x e. A ) -> ( Im ` B ) = ( Re ` ( B / _i ) ) )
30 29 ibllem 
 |-  ( ph -> if ( ( x e. A /\ 0 <_ ( Im ` B ) ) , ( Im ` B ) , 0 ) = if ( ( x e. A /\ 0 <_ ( Re ` ( B / _i ) ) ) , ( Re ` ( B / _i ) ) , 0 ) )
31 30 mpteq2dv 
 |-  ( ph -> ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Im ` B ) ) , ( Im ` B ) , 0 ) ) = ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / _i ) ) ) , ( Re ` ( B / _i ) ) , 0 ) ) )
32 31 fveq2d 
 |-  ( ph -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Im ` B ) ) , ( Im ` B ) , 0 ) ) ) = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / _i ) ) ) , ( Re ` ( B / _i ) ) , 0 ) ) ) )
33 3 32 eqtr2id 
 |-  ( ph -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / _i ) ) ) , ( Re ` ( B / _i ) ) , 0 ) ) ) = T )
34 33 eleq1d 
 |-  ( ph -> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / _i ) ) ) , ( Re ` ( B / _i ) ) , 0 ) ) ) e. RR <-> T e. RR ) )
35 27 34 anbi12d 
 |-  ( ph -> ( ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / 1 ) ) ) , ( Re ` ( B / 1 ) ) , 0 ) ) ) e. RR /\ ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / _i ) ) ) , ( Re ` ( B / _i ) ) , 0 ) ) ) e. RR ) <-> ( R e. RR /\ T e. RR ) ) )
36 20 35 bitrid 
 |-  ( ph -> ( A. k e. { 0 , 1 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR <-> ( R e. RR /\ T e. RR ) ) )
37 2ex 
 |-  2 e. _V
38 3ex 
 |-  3 e. _V
39 i2 
 |-  ( _i ^ 2 ) = -u 1
40 39 itgvallem 
 |-  ( k = 2 -> ( 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 /\ 0 <_ ( Re ` ( B / -u 1 ) ) ) , ( Re ` ( B / -u 1 ) ) , 0 ) ) ) )
41 40 eleq1d 
 |-  ( k = 2 -> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR <-> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u 1 ) ) ) , ( Re ` ( B / -u 1 ) ) , 0 ) ) ) e. RR ) )
42 i3 
 |-  ( _i ^ 3 ) = -u _i
43 42 itgvallem 
 |-  ( k = 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 /\ 0 <_ ( Re ` ( B / -u _i ) ) ) , ( Re ` ( B / -u _i ) ) , 0 ) ) ) )
44 43 eleq1d 
 |-  ( k = 3 -> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR <-> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u _i ) ) ) , ( Re ` ( B / -u _i ) ) , 0 ) ) ) e. RR ) )
45 37 38 41 44 ralpr 
 |-  ( A. k e. { 2 , 3 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR <-> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u 1 ) ) ) , ( Re ` ( B / -u 1 ) ) , 0 ) ) ) e. RR /\ ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u _i ) ) ) , ( Re ` ( B / -u _i ) ) , 0 ) ) ) e. RR ) )
46 5 renegd 
 |-  ( ( ph /\ x e. A ) -> ( Re ` -u B ) = -u ( Re ` B ) )
47 ax-1cn 
 |-  1 e. CC
48 47 negnegi 
 |-  -u -u 1 = 1
49 48 oveq2i 
 |-  ( -u B / -u -u 1 ) = ( -u B / 1 )
50 5 negcld 
 |-  ( ( ph /\ x e. A ) -> -u B e. CC )
51 50 div1d 
 |-  ( ( ph /\ x e. A ) -> ( -u B / 1 ) = -u B )
52 49 51 eqtrid 
 |-  ( ( ph /\ x e. A ) -> ( -u B / -u -u 1 ) = -u B )
53 47 negcli 
 |-  -u 1 e. CC
54 neg1ne0 
 |-  -u 1 =/= 0
55 div2neg 
 |-  ( ( B e. CC /\ -u 1 e. CC /\ -u 1 =/= 0 ) -> ( -u B / -u -u 1 ) = ( B / -u 1 ) )
56 53 54 55 mp3an23 
 |-  ( B e. CC -> ( -u B / -u -u 1 ) = ( B / -u 1 ) )
57 5 56 syl 
 |-  ( ( ph /\ x e. A ) -> ( -u B / -u -u 1 ) = ( B / -u 1 ) )
58 52 57 eqtr3d 
 |-  ( ( ph /\ x e. A ) -> -u B = ( B / -u 1 ) )
59 58 fveq2d 
 |-  ( ( ph /\ x e. A ) -> ( Re ` -u B ) = ( Re ` ( B / -u 1 ) ) )
60 46 59 eqtr3d 
 |-  ( ( ph /\ x e. A ) -> -u ( Re ` B ) = ( Re ` ( B / -u 1 ) ) )
61 60 ibllem 
 |-  ( ph -> if ( ( x e. A /\ 0 <_ -u ( Re ` B ) ) , -u ( Re ` B ) , 0 ) = if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u 1 ) ) ) , ( Re ` ( B / -u 1 ) ) , 0 ) )
62 61 mpteq2dv 
 |-  ( ph -> ( x e. RR |-> if ( ( x e. A /\ 0 <_ -u ( Re ` B ) ) , -u ( Re ` B ) , 0 ) ) = ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u 1 ) ) ) , ( Re ` ( B / -u 1 ) ) , 0 ) ) )
63 62 fveq2d 
 |-  ( ph -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ -u ( Re ` B ) ) , -u ( Re ` B ) , 0 ) ) ) = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u 1 ) ) ) , ( Re ` ( B / -u 1 ) ) , 0 ) ) ) )
64 2 63 eqtr2id 
 |-  ( ph -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u 1 ) ) ) , ( Re ` ( B / -u 1 ) ) , 0 ) ) ) = S )
65 64 eleq1d 
 |-  ( ph -> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u 1 ) ) ) , ( Re ` ( B / -u 1 ) ) , 0 ) ) ) e. RR <-> S e. RR ) )
66 imval 
 |-  ( -u B e. CC -> ( Im ` -u B ) = ( Re ` ( -u B / _i ) ) )
67 50 66 syl 
 |-  ( ( ph /\ x e. A ) -> ( Im ` -u B ) = ( Re ` ( -u B / _i ) ) )
68 5 imnegd 
 |-  ( ( ph /\ x e. A ) -> ( Im ` -u B ) = -u ( Im ` B ) )
69 11 negnegi 
 |-  -u -u _i = _i
70 69 eqcomi 
 |-  _i = -u -u _i
71 70 oveq2i 
 |-  ( -u B / _i ) = ( -u B / -u -u _i )
72 11 negcli 
 |-  -u _i e. CC
73 ine0 
 |-  _i =/= 0
74 11 73 negne0i 
 |-  -u _i =/= 0
75 div2neg 
 |-  ( ( B e. CC /\ -u _i e. CC /\ -u _i =/= 0 ) -> ( -u B / -u -u _i ) = ( B / -u _i ) )
76 72 74 75 mp3an23 
 |-  ( B e. CC -> ( -u B / -u -u _i ) = ( B / -u _i ) )
77 5 76 syl 
 |-  ( ( ph /\ x e. A ) -> ( -u B / -u -u _i ) = ( B / -u _i ) )
78 71 77 eqtrid 
 |-  ( ( ph /\ x e. A ) -> ( -u B / _i ) = ( B / -u _i ) )
79 78 fveq2d 
 |-  ( ( ph /\ x e. A ) -> ( Re ` ( -u B / _i ) ) = ( Re ` ( B / -u _i ) ) )
80 67 68 79 3eqtr3d 
 |-  ( ( ph /\ x e. A ) -> -u ( Im ` B ) = ( Re ` ( B / -u _i ) ) )
81 80 ibllem 
 |-  ( ph -> if ( ( x e. A /\ 0 <_ -u ( Im ` B ) ) , -u ( Im ` B ) , 0 ) = if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u _i ) ) ) , ( Re ` ( B / -u _i ) ) , 0 ) )
82 81 mpteq2dv 
 |-  ( ph -> ( x e. RR |-> if ( ( x e. A /\ 0 <_ -u ( Im ` B ) ) , -u ( Im ` B ) , 0 ) ) = ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u _i ) ) ) , ( Re ` ( B / -u _i ) ) , 0 ) ) )
83 82 fveq2d 
 |-  ( ph -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ -u ( Im ` B ) ) , -u ( Im ` B ) , 0 ) ) ) = ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u _i ) ) ) , ( Re ` ( B / -u _i ) ) , 0 ) ) ) )
84 4 83 eqtr2id 
 |-  ( ph -> ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u _i ) ) ) , ( Re ` ( B / -u _i ) ) , 0 ) ) ) = U )
85 84 eleq1d 
 |-  ( ph -> ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u _i ) ) ) , ( Re ` ( B / -u _i ) ) , 0 ) ) ) e. RR <-> U e. RR ) )
86 65 85 anbi12d 
 |-  ( ph -> ( ( ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u 1 ) ) ) , ( Re ` ( B / -u 1 ) ) , 0 ) ) ) e. RR /\ ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / -u _i ) ) ) , ( Re ` ( B / -u _i ) ) , 0 ) ) ) e. RR ) <-> ( S e. RR /\ U e. RR ) ) )
87 45 86 bitrid 
 |-  ( ph -> ( A. k e. { 2 , 3 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR <-> ( S e. RR /\ U e. RR ) ) )
88 36 87 anbi12d 
 |-  ( ph -> ( ( A. k e. { 0 , 1 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR /\ A. k e. { 2 , 3 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR ) <-> ( ( R e. RR /\ T e. RR ) /\ ( S e. RR /\ U e. RR ) ) ) )
89 fz0to3un2pr 
 |-  ( 0 ... 3 ) = ( { 0 , 1 } u. { 2 , 3 } )
90 89 raleqi 
 |-  ( 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 <-> A. k e. ( { 0 , 1 } u. { 2 , 3 } ) ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR )
91 ralunb 
 |-  ( A. k e. ( { 0 , 1 } u. { 2 , 3 } ) ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR <-> ( A. k e. { 0 , 1 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR /\ A. k e. { 2 , 3 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR ) )
92 90 91 bitri 
 |-  ( 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 <-> ( A. k e. { 0 , 1 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR /\ A. k e. { 2 , 3 } ( S.2 ` ( x e. RR |-> if ( ( x e. A /\ 0 <_ ( Re ` ( B / ( _i ^ k ) ) ) ) , ( Re ` ( B / ( _i ^ k ) ) ) , 0 ) ) ) e. RR ) )
93 an4 
 |-  ( ( ( R e. RR /\ S e. RR ) /\ ( T e. RR /\ U e. RR ) ) <-> ( ( R e. RR /\ T e. RR ) /\ ( S e. RR /\ U e. RR ) ) )
94 88 92 93 3bitr4g 
 |-  ( 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 <-> ( ( R e. RR /\ S e. RR ) /\ ( T e. RR /\ U e. RR ) ) ) )
95 94 anbi2d 
 |-  ( ph -> ( ( ( 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 ) <-> ( ( x e. A |-> B ) e. MblFn /\ ( ( R e. RR /\ S e. RR ) /\ ( T e. RR /\ U e. RR ) ) ) ) )
96 3anass 
 |-  ( ( ( x e. A |-> B ) e. MblFn /\ ( R e. RR /\ S e. RR ) /\ ( T e. RR /\ U e. RR ) ) <-> ( ( x e. A |-> B ) e. MblFn /\ ( ( R e. RR /\ S e. RR ) /\ ( T e. RR /\ U e. RR ) ) ) )
97 95 96 bitr4di 
 |-  ( ph -> ( ( ( 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 ) <-> ( ( x e. A |-> B ) e. MblFn /\ ( R e. RR /\ S e. RR ) /\ ( T e. RR /\ U e. RR ) ) ) )
98 8 97 bitrd 
 |-  ( ph -> ( ( x e. A |-> B ) e. L^1 <-> ( ( x e. A |-> B ) e. MblFn /\ ( R e. RR /\ S e. RR ) /\ ( T e. RR /\ U e. RR ) ) ) )