Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  hoidmvlelem3 Structured version   Visualization version   Unicode version

Theorem hoidmvlelem3 40811
Description: This is the contradiction proven in step (d) in the proof of Lemma 115B of [Fremlin1] p. 29. (Contributed by Glauco Siliprandi, 21-Nov-2020.)
Hypotheses
Ref Expression
hoidmvlelem3.l  |-  L  =  ( x  e.  Fin  |->  ( a  e.  ( RR  ^m  x ) ,  b  e.  ( RR  ^m  x ) 
|->  if ( x  =  (/) ,  0 ,  prod_ k  e.  x  ( vol `  ( ( a `  k ) [,) (
b `  k )
) ) ) ) )
hoidmvlelem3.x  |-  ( ph  ->  X  e.  Fin )
hoidmvlelem3.y  |-  ( ph  ->  Y  C_  X )
hoidmvlelem3.z  |-  ( ph  ->  Z  e.  ( X 
\  Y ) )
hoidmvlelem3.w  |-  W  =  ( Y  u.  { Z } )
hoidmvlelem3.a  |-  ( ph  ->  A : W --> RR )
hoidmvlelem3.b  |-  ( ph  ->  B : W --> RR )
hoidmvlelem3.lt  |-  ( (
ph  /\  k  e.  W )  ->  ( A `  k )  <  ( B `  k
) )
hoidmvlelem3.f  |-  F  =  ( y  e.  Y  |->  0 )
hoidmvlelem3.c  |-  ( ph  ->  C : NN --> ( RR 
^m  W ) )
hoidmvlelem3.j  |-  J  =  ( j  e.  NN  |->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
) )
hoidmvlelem3.d  |-  ( ph  ->  D : NN --> ( RR 
^m  W ) )
hoidmvlelem3.k  |-  K  =  ( j  e.  NN  |->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
) )
hoidmvlelem3.r  |-  ( ph  ->  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( D `  j ) ) ) )  e.  RR )
hoidmvlelem3.h  |-  H  =  ( x  e.  RR  |->  ( c  e.  ( RR  ^m  W ) 
|->  ( j  e.  W  |->  if ( j  e.  Y ,  ( c `
 j ) ,  if ( ( c `
 j )  <_  x ,  ( c `  j ) ,  x
) ) ) ) )
hoidmvlelem3.g  |-  G  =  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)
hoidmvlelem3.e  |-  ( ph  ->  E  e.  RR+ )
hoidmvlelem3.u  |-  U  =  { z  e.  ( ( A `  Z
) [,] ( B `
 Z ) )  |  ( G  x.  ( z  -  ( A `  Z )
) )  <_  (
( 1  +  E
)  x.  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( ( H `  z
) `  ( D `  j ) ) ) ) ) ) }
hoidmvlelem3.s  |-  ( ph  ->  S  e.  U )
hoidmvlelem3.sb  |-  ( ph  ->  S  <  ( B `
 Z ) )
hoidmvlelem3.p  |-  P  =  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) )
hoidmvlelem3.i  |-  ( ph  ->  A. e  e.  ( RR  ^m  Y ) A. f  e.  ( RR  ^m  Y ) A. g  e.  ( ( RR  ^m  Y
)  ^m  NN ) A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( e `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( e
( L `  Y
) f )  <_ 
(Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )
hoidmvlelem3.i2  |-  ( ph  -> 
X_ k  e.  W  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  W  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
) )
hoidmvlelem3.o  |-  O  =  ( x  e.  X_ k  e.  Y  (
( A `  k
) [,) ( B `
 k ) ) 
|->  ( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) ) )
Assertion
Ref Expression
hoidmvlelem3  |-  ( ph  ->  E. u  e.  U  S  <  u )
Distinct variable groups:    x, k    A, a, b, h, j, k, x    A, e, f, g, h, j, k    z, A, h, j    B, a, b, h, j, k, x, y    B, c, h, j, k, x    B, f, g    u, B, h, j    z, B    C, a, b, h, j, k, x, y    C, c    u, C    z, C    D, a, b, h, j, k, x, y    D, c    u, D    z, D    E, a, b, h, k, x, y    E, c   
z, E    j, F    G, a, b, h, k, x, y    G, c   
z, G    H, a,
b, j, k    z, H    J, a, b, h, j, k, x    g, J    K, a, b, h, j, k, x    L, a, b, h, j, k, x    e, L, f, g    z, L    j, O, k    P, a, b, h, j, k, x, y    P, c    S, a, b, h, j, k, x, y    S, c   
u, S    z, S    u, U    W, a, b, j, k, x    W, c   
z, W    Y, a,
b, h, j, k, x, y    Y, c   
e, Y, f, g    Z, a, b, h, j, k, x, y    Z, c    u, Z    z, Z    ph, a, b, h, j, k, x, y    ph, c
Allowed substitution hints:    ph( z, u, e, f, g)    A( y, u, c)    B( e)    C( e, f, g)    D( e, f, g)    P( z, u, e, f, g)    S( e, f, g)    U( x, y, z, e, f, g, h, j, k, a, b, c)    E( u, e, f, g, j)    F( x, y, z, u, e, f, g, h, k, a, b, c)    G( u, e, f, g, j)    H( x, y, u, e, f, g, h, c)    J( y, z, u, e, f, c)    K( y, z, u, e, f, g, c)    L( y, u, c)    O( x, y, z, u, e, f, g, h, a, b, c)    W( y, u, e, f, g, h)    X( x, y, z, u, e, f, g, h, j, k, a, b, c)    Y( z, u)    Z( e, f, g)

Proof of Theorem hoidmvlelem3
Dummy variables  i  m are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 1nn 11031 . . . . 5  |-  1  e.  NN
21a1i 11 . . . 4  |-  ( (
ph  /\  Y  =  (/) )  ->  1  e.  NN )
3 0le0 11110 . . . . . 6  |-  0  <_  0
43a1i 11 . . . . 5  |-  ( (
ph  /\  Y  =  (/) )  ->  0  <_  0 )
5 hoidmvlelem3.g . . . . . . . 8  |-  G  =  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)
65a1i 11 . . . . . . 7  |-  ( (
ph  /\  Y  =  (/) )  ->  G  =  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
) )
7 fveq2 6191 . . . . . . . . 9  |-  ( Y  =  (/)  ->  ( L `
 Y )  =  ( L `  (/) ) )
8 reseq2 5391 . . . . . . . . . 10  |-  ( Y  =  (/)  ->  ( A  |`  Y )  =  ( A  |`  (/) ) )
9 res0 5400 . . . . . . . . . . 11  |-  ( A  |`  (/) )  =  (/)
109a1i 11 . . . . . . . . . 10  |-  ( Y  =  (/)  ->  ( A  |`  (/) )  =  (/) )
118, 10eqtrd 2656 . . . . . . . . 9  |-  ( Y  =  (/)  ->  ( A  |`  Y )  =  (/) )
12 reseq2 5391 . . . . . . . . . 10  |-  ( Y  =  (/)  ->  ( B  |`  Y )  =  ( B  |`  (/) ) )
13 res0 5400 . . . . . . . . . . 11  |-  ( B  |`  (/) )  =  (/)
1413a1i 11 . . . . . . . . . 10  |-  ( Y  =  (/)  ->  ( B  |`  (/) )  =  (/) )
1512, 14eqtrd 2656 . . . . . . . . 9  |-  ( Y  =  (/)  ->  ( B  |`  Y )  =  (/) )
167, 11, 15oveq123d 6671 . . . . . . . 8  |-  ( Y  =  (/)  ->  ( ( A  |`  Y )
( L `  Y
) ( B  |`  Y ) )  =  ( (/) ( L `  (/) ) (/) ) )
1716adantl 482 . . . . . . 7  |-  ( (
ph  /\  Y  =  (/) )  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  =  ( (/) ( L `  (/) ) (/) ) )
18 hoidmvlelem3.l . . . . . . . 8  |-  L  =  ( x  e.  Fin  |->  ( a  e.  ( RR  ^m  x ) ,  b  e.  ( RR  ^m  x ) 
|->  if ( x  =  (/) ,  0 ,  prod_ k  e.  x  ( vol `  ( ( a `  k ) [,) (
b `  k )
) ) ) ) )
19 f0 6086 . . . . . . . . 9  |-  (/) : (/) --> RR
2019a1i 11 . . . . . . . 8  |-  ( (
ph  /\  Y  =  (/) )  ->  (/) : (/) --> RR )
2118, 20, 20hoidmv0val 40797 . . . . . . 7  |-  ( (
ph  /\  Y  =  (/) )  ->  ( (/) ( L `
 (/) ) (/) )  =  0 )
226, 17, 213eqtrd 2660 . . . . . 6  |-  ( (
ph  /\  Y  =  (/) )  ->  G  = 
0 )
23 nfcvd 2765 . . . . . . . . . . 11  |-  ( ph  -> 
F/_ j ( P `
 1 ) )
24 nfv 1843 . . . . . . . . . . 11  |-  F/ j
ph
25 simpr 477 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  = 
1 )  ->  j  =  1 )
2625fveq2d 6195 . . . . . . . . . . 11  |-  ( (
ph  /\  j  = 
1 )  ->  ( P `  j )  =  ( P ` 
1 ) )
27 1red 10055 . . . . . . . . . . 11  |-  ( ph  ->  1  e.  RR )
28 rge0ssre 12280 . . . . . . . . . . . . 13  |-  ( 0 [,) +oo )  C_  RR
29 id 22 . . . . . . . . . . . . . 14  |-  ( ph  ->  ph )
301a1i 11 . . . . . . . . . . . . . 14  |-  ( ph  ->  1  e.  NN )
311elexi 3213 . . . . . . . . . . . . . . 15  |-  1  e.  _V
32 eleq1 2689 . . . . . . . . . . . . . . . . 17  |-  ( j  =  1  ->  (
j  e.  NN  <->  1  e.  NN ) )
3332anbi2d 740 . . . . . . . . . . . . . . . 16  |-  ( j  =  1  ->  (
( ph  /\  j  e.  NN )  <->  ( ph  /\  1  e.  NN ) ) )
34 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( j  =  1  ->  ( P `  j )  =  ( P ` 
1 ) )
3534eleq1d 2686 . . . . . . . . . . . . . . . 16  |-  ( j  =  1  ->  (
( P `  j
)  e.  ( 0 [,) +oo )  <->  ( P `  1 )  e.  ( 0 [,) +oo ) ) )
3633, 35imbi12d 334 . . . . . . . . . . . . . . 15  |-  ( j  =  1  ->  (
( ( ph  /\  j  e.  NN )  ->  ( P `  j
)  e.  ( 0 [,) +oo ) )  <-> 
( ( ph  /\  1  e.  NN )  ->  ( P `  1
)  e.  ( 0 [,) +oo ) ) ) )
37 id 22 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  NN  ->  j  e.  NN )
38 ovexd 6680 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  NN  ->  (
( J `  j
) ( L `  Y ) ( K `
 j ) )  e.  _V )
39 hoidmvlelem3.p . . . . . . . . . . . . . . . . . . 19  |-  P  =  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) )
4039fvmpt2 6291 . . . . . . . . . . . . . . . . . 18  |-  ( ( j  e.  NN  /\  ( ( J `  j ) ( L `
 Y ) ( K `  j ) )  e.  _V )  ->  ( P `  j
)  =  ( ( J `  j ) ( L `  Y
) ( K `  j ) ) )
4137, 38, 40syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  NN  ->  ( P `  j )  =  ( ( J `
 j ) ( L `  Y ) ( K `  j
) ) )
4241adantl 482 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  j  e.  NN )  ->  ( P `
 j )  =  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) )
43 hoidmvlelem3.x . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  X  e.  Fin )
44 hoidmvlelem3.w . . . . . . . . . . . . . . . . . . . . . 22  |-  W  =  ( Y  u.  { Z } )
4544a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  W  =  ( Y  u.  { Z }
) )
46 hoidmvlelem3.y . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  Y  C_  X )
47 hoidmvlelem3.z . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  Z  e.  ( X 
\  Y ) )
4847eldifad 3586 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  Z  e.  X )
49 snssi 4339 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( Z  e.  X  ->  { Z }  C_  X )
5048, 49syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  { Z }  C_  X )
5146, 50unssd 3789 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( Y  u.  { Z } )  C_  X
)
5245, 51eqsstrd 3639 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  W  C_  X )
5343, 52ssfid 8183 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  W  e.  Fin )
54 ssun1 3776 . . . . . . . . . . . . . . . . . . . . 21  |-  Y  C_  ( Y  u.  { Z } )
5544eqcomi 2631 . . . . . . . . . . . . . . . . . . . . 21  |-  ( Y  u.  { Z }
)  =  W
5654, 55sseqtri 3637 . . . . . . . . . . . . . . . . . . . 20  |-  Y  C_  W
5756a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  Y  C_  W )
5853, 57ssfid 8183 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  Y  e.  Fin )
5958adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  j  e.  NN )  ->  Y  e. 
Fin )
60 iftrue 4092 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( S  e.  ( ( ( C `  j ) `
 Z ) [,) ( ( D `  j ) `  Z
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  =  ( ( C `  j )  |`  Y ) )
6160adantl 482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  =  ( ( C `  j )  |`  Y ) )
62 hoidmvlelem3.c . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  C : NN --> ( RR 
^m  W ) )
6362ffvelrnda 6359 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  j  e.  NN )  ->  ( C `
 j )  e.  ( RR  ^m  W
) )
64 elmapi 7879 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( C `  j )  e.  ( RR  ^m  W )  ->  ( C `  j ) : W --> RR )
6563, 64syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  j  e.  NN )  ->  ( C `
 j ) : W --> RR )
6654, 44sseqtr4i 3638 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  Y  C_  W
6766a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  j  e.  NN )  ->  Y  C_  W )
6865, 67fssresd 6071 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  j  e.  NN )  ->  ( ( C `  j )  |`  Y ) : Y --> RR )
69 reex 10027 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  RR  e.  _V
7069a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  j  e.  NN )  ->  RR  e.  _V )
7153, 57ssexd 4805 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  ->  Y  e.  _V )
7271adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  j  e.  NN )  ->  Y  e. 
_V )
7370, 72elmapd 7871 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  j  e.  NN )  ->  ( ( ( C `  j
)  |`  Y )  e.  ( RR  ^m  Y
)  <->  ( ( C `
 j )  |`  Y ) : Y --> RR ) )
7468, 73mpbird 247 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  j  e.  NN )  ->  ( ( C `  j )  |`  Y )  e.  ( RR  ^m  Y ) )
7574adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  (
( C `  j
)  |`  Y )  e.  ( RR  ^m  Y
) )
7661, 75eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  e.  ( RR 
^m  Y ) )
77 iffalse 4095 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( -.  S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  =  F )
7877adantl 482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  ->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  =  F )
79 0red 10041 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  y  e.  Y )  ->  0  e.  RR )
80 hoidmvlelem3.f . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F  =  ( y  e.  Y  |->  0 )
8179, 80fmptd 6385 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  F : Y --> RR )
8269a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  RR  e.  _V )
8382, 58elmapd 7871 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ( F  e.  ( RR  ^m  Y )  <-> 
F : Y --> RR ) )
8481, 83mpbird 247 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  F  e.  ( RR 
^m  Y ) )
8584ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  ->  F  e.  ( RR  ^m  Y ) )
8678, 85eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  ->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  e.  ( RR 
^m  Y ) )
8776, 86pm2.61dan 832 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  j  e.  NN )  ->  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( C `  j
)  |`  Y ) ,  F )  e.  ( RR  ^m  Y ) )
88 hoidmvlelem3.j . . . . . . . . . . . . . . . . . . . 20  |-  J  =  ( j  e.  NN  |->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
) )
8987, 88fmptd 6385 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  J : NN --> ( RR 
^m  Y ) )
9089ffvelrnda 6359 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  j  e.  NN )  ->  ( J `
 j )  e.  ( RR  ^m  Y
) )
91 elmapi 7879 . . . . . . . . . . . . . . . . . 18  |-  ( ( J `  j )  e.  ( RR  ^m  Y )  ->  ( J `  j ) : Y --> RR )
9290, 91syl 17 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  j  e.  NN )  ->  ( J `
 j ) : Y --> RR )
93 iftrue 4092 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( S  e.  ( ( ( C `  j ) `
 Z ) [,) ( ( D `  j ) `  Z
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
)  =  ( ( D `  j )  |`  Y ) )
9493adantl 482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
)  =  ( ( D `  j )  |`  Y ) )
95 hoidmvlelem3.d . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  D : NN --> ( RR 
^m  W ) )
9695ffvelrnda 6359 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  j  e.  NN )  ->  ( D `
 j )  e.  ( RR  ^m  W
) )
97 elmapi 7879 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( D `  j )  e.  ( RR  ^m  W )  ->  ( D `  j ) : W --> RR )
9896, 97syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  j  e.  NN )  ->  ( D `
 j ) : W --> RR )
9998, 67fssresd 6071 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  j  e.  NN )  ->  ( ( D `  j )  |`  Y ) : Y --> RR )
10070, 72elmapd 7871 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  j  e.  NN )  ->  ( ( ( D `  j
)  |`  Y )  e.  ( RR  ^m  Y
)  <->  ( ( D `
 j )  |`  Y ) : Y --> RR ) )
10199, 100mpbird 247 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  j  e.  NN )  ->  ( ( D `  j )  |`  Y )  e.  ( RR  ^m  Y ) )
102101adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  (
( D `  j
)  |`  Y )  e.  ( RR  ^m  Y
) )
10394, 102eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
)  e.  ( RR 
^m  Y ) )
104 iffalse 4095 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( -.  S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
)  =  F )
105104adantl 482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  ->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
)  =  F )
106105, 85eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  ->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
)  e.  ( RR 
^m  Y ) )
107103, 106pm2.61dan 832 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  j  e.  NN )  ->  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( D `  j
)  |`  Y ) ,  F )  e.  ( RR  ^m  Y ) )
108 hoidmvlelem3.k . . . . . . . . . . . . . . . . . . . 20  |-  K  =  ( j  e.  NN  |->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
) )
109107, 108fmptd 6385 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  K : NN --> ( RR 
^m  Y ) )
110109ffvelrnda 6359 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  j  e.  NN )  ->  ( K `
 j )  e.  ( RR  ^m  Y
) )
111 elmapi 7879 . . . . . . . . . . . . . . . . . 18  |-  ( ( K `  j )  e.  ( RR  ^m  Y )  ->  ( K `  j ) : Y --> RR )
112110, 111syl 17 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  j  e.  NN )  ->  ( K `
 j ) : Y --> RR )
11318, 59, 92, 112hoidmvcl 40796 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  j  e.  NN )  ->  ( ( J `  j ) ( L `  Y
) ( K `  j ) )  e.  ( 0 [,) +oo ) )
11442, 113eqeltrd 2701 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  j  e.  NN )  ->  ( P `
 j )  e.  ( 0 [,) +oo ) )
11531, 36, 114vtocl 3259 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  1  e.  NN )  ->  ( P `
 1 )  e.  ( 0 [,) +oo ) )
11629, 30, 115syl2anc 693 . . . . . . . . . . . . 13  |-  ( ph  ->  ( P `  1
)  e.  ( 0 [,) +oo ) )
11728, 116sseldi 3601 . . . . . . . . . . . 12  |-  ( ph  ->  ( P `  1
)  e.  RR )
118117recnd 10068 . . . . . . . . . . 11  |-  ( ph  ->  ( P `  1
)  e.  CC )
11923, 24, 26, 27, 118sumsnd 39185 . . . . . . . . . 10  |-  ( ph  -> 
sum_ j  e.  {
1 }  ( P `
 j )  =  ( P `  1
) )
120119adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  Y  =  (/) )  ->  sum_ j  e. 
{ 1 }  ( P `  j )  =  ( P ` 
1 ) )
121 fveq2 6191 . . . . . . . . . . . . 13  |-  ( j  =  1  ->  ( J `  j )  =  ( J ` 
1 ) )
122 fveq2 6191 . . . . . . . . . . . . 13  |-  ( j  =  1  ->  ( K `  j )  =  ( K ` 
1 ) )
123121, 122oveq12d 6668 . . . . . . . . . . . 12  |-  ( j  =  1  ->  (
( J `  j
) ( L `  Y ) ( K `
 j ) )  =  ( ( J `
 1 ) ( L `  Y ) ( K `  1
) ) )
124 ovex 6678 . . . . . . . . . . . 12  |-  ( ( J `  1 ) ( L `  Y
) ( K ` 
1 ) )  e. 
_V
125123, 39, 124fvmpt 6282 . . . . . . . . . . 11  |-  ( 1  e.  NN  ->  ( P `  1 )  =  ( ( J `
 1 ) ( L `  Y ) ( K `  1
) ) )
1261, 125ax-mp 5 . . . . . . . . . 10  |-  ( P `
 1 )  =  ( ( J ` 
1 ) ( L `
 Y ) ( K `  1 ) )
127126a1i 11 . . . . . . . . 9  |-  ( (
ph  /\  Y  =  (/) )  ->  ( P `  1 )  =  ( ( J ` 
1 ) ( L `
 Y ) ( K `  1 ) ) )
1287oveqd 6667 . . . . . . . . . . 11  |-  ( Y  =  (/)  ->  ( ( J `  1 ) ( L `  Y
) ( K ` 
1 ) )  =  ( ( J ` 
1 ) ( L `
 (/) ) ( K `
 1 ) ) )
129128adantl 482 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =  (/) )  ->  ( ( J `  1 )
( L `  Y
) ( K ` 
1 ) )  =  ( ( J ` 
1 ) ( L `
 (/) ) ( K `
 1 ) ) )
130121feq1d 6030 . . . . . . . . . . . . . . . 16  |-  ( j  =  1  ->  (
( J `  j
) : Y --> RR  <->  ( J `  1 ) : Y --> RR ) )
13133, 130imbi12d 334 . . . . . . . . . . . . . . 15  |-  ( j  =  1  ->  (
( ( ph  /\  j  e.  NN )  ->  ( J `  j
) : Y --> RR )  <-> 
( ( ph  /\  1  e.  NN )  ->  ( J `  1
) : Y --> RR ) ) )
13268adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  (
( C `  j
)  |`  Y ) : Y --> RR )
13361feq1d 6030 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  ( if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
) : Y --> RR  <->  ( ( C `  j )  |`  Y ) : Y --> RR ) )
134132, 133mpbird 247 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
) : Y --> RR )
13581ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  ->  F : Y --> RR )
13678feq1d 6030 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  -> 
( if ( S  e.  ( ( ( C `  j ) `
 Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( C `  j
)  |`  Y ) ,  F ) : Y --> RR 
<->  F : Y --> RR ) )
137135, 136mpbird 247 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  ->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
) : Y --> RR )
138134, 137pm2.61dan 832 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  j  e.  NN )  ->  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( C `  j
)  |`  Y ) ,  F ) : Y --> RR )
139 simpr 477 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  j  e.  NN )  ->  j  e.  NN )
140 fvex 6201 . . . . . . . . . . . . . . . . . . . . 21  |-  ( C `
 j )  e. 
_V
141140resex 5443 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( C `  j )  |`  Y )  e.  _V
14261, 141syl6eqel 2709 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  j  e.  NN )  /\  S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  e.  _V )
14384elexd 3214 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  F  e.  _V )
144143adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  j  e.  NN )  ->  F  e. 
_V )
145144adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  ->  F  e.  _V )
14678, 145eqeltrd 2701 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  j  e.  NN )  /\  -.  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )  ->  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  e.  _V )
147142, 146pm2.61dan 832 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  j  e.  NN )  ->  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( C `  j
)  |`  Y ) ,  F )  e.  _V )
14888fvmpt2 6291 . . . . . . . . . . . . . . . . . 18  |-  ( ( j  e.  NN  /\  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  e.  _V )  ->  ( J `  j
)  =  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( C `  j
)  |`  Y ) ,  F ) )
149139, 147, 148syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  j  e.  NN )  ->  ( J `
 j )  =  if ( S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) ,  ( ( C `  j )  |`  Y ) ,  F
) )
150149feq1d 6030 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  j  e.  NN )  ->  ( ( J `  j ) : Y --> RR  <->  if ( S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( C `  j
)  |`  Y ) ,  F ) : Y --> RR ) )
151138, 150mpbird 247 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  j  e.  NN )  ->  ( J `
 j ) : Y --> RR )
15231, 131, 151vtocl 3259 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  1  e.  NN )  ->  ( J `
 1 ) : Y --> RR )
15329, 30, 152syl2anc 693 . . . . . . . . . . . . 13  |-  ( ph  ->  ( J `  1
) : Y --> RR )
154153adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =  (/) )  ->  ( J `  1 ) : Y --> RR )
155 id 22 . . . . . . . . . . . . . . 15  |-  ( Y  =  (/)  ->  Y  =  (/) )
156155eqcomd 2628 . . . . . . . . . . . . . 14  |-  ( Y  =  (/)  ->  (/)  =  Y )
157156feq2d 6031 . . . . . . . . . . . . 13  |-  ( Y  =  (/)  ->  ( ( J `  1 ) : (/) --> RR  <->  ( J `  1 ) : Y --> RR ) )
158157adantl 482 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =  (/) )  ->  ( ( J `  1 ) : (/) --> RR  <->  ( J `  1 ) : Y --> RR ) )
159154, 158mpbird 247 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =  (/) )  ->  ( J `  1 ) :
(/) --> RR )
160122feq1d 6030 . . . . . . . . . . . . . . . 16  |-  ( j  =  1  ->  (
( K `  j
) : Y --> RR  <->  ( K `  1 ) : Y --> RR ) )
16133, 160imbi12d 334 . . . . . . . . . . . . . . 15  |-  ( j  =  1  ->  (
( ( ph  /\  j  e.  NN )  ->  ( K `  j
) : Y --> RR )  <-> 
( ( ph  /\  1  e.  NN )  ->  ( K `  1
) : Y --> RR ) ) )
16231, 161, 112vtocl 3259 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  1  e.  NN )  ->  ( K `
 1 ) : Y --> RR )
16329, 30, 162syl2anc 693 . . . . . . . . . . . . 13  |-  ( ph  ->  ( K `  1
) : Y --> RR )
164163adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =  (/) )  ->  ( K `  1 ) : Y --> RR )
165156feq2d 6031 . . . . . . . . . . . . 13  |-  ( Y  =  (/)  ->  ( ( K `  1 ) : (/) --> RR  <->  ( K `  1 ) : Y --> RR ) )
166165adantl 482 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =  (/) )  ->  ( ( K `  1 ) : (/) --> RR  <->  ( K `  1 ) : Y --> RR ) )
167164, 166mpbird 247 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =  (/) )  ->  ( K `  1 ) :
(/) --> RR )
16818, 159, 167hoidmv0val 40797 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =  (/) )  ->  ( ( J `  1 )
( L `  (/) ) ( K `  1 ) )  =  0 )
169129, 168eqtrd 2656 . . . . . . . . 9  |-  ( (
ph  /\  Y  =  (/) )  ->  ( ( J `  1 )
( L `  Y
) ( K ` 
1 ) )  =  0 )
170120, 127, 1693eqtrd 2660 . . . . . . . 8  |-  ( (
ph  /\  Y  =  (/) )  ->  sum_ j  e. 
{ 1 }  ( P `  j )  =  0 )
171170oveq2d 6666 . . . . . . 7  |-  ( (
ph  /\  Y  =  (/) )  ->  ( (
1  +  E )  x.  sum_ j  e.  {
1 }  ( P `
 j ) )  =  ( ( 1  +  E )  x.  0 ) )
172 hoidmvlelem3.e . . . . . . . . . . . 12  |-  ( ph  ->  E  e.  RR+ )
173172rpred 11872 . . . . . . . . . . 11  |-  ( ph  ->  E  e.  RR )
17427, 173readdcld 10069 . . . . . . . . . 10  |-  ( ph  ->  ( 1  +  E
)  e.  RR )
175174recnd 10068 . . . . . . . . 9  |-  ( ph  ->  ( 1  +  E
)  e.  CC )
176175mul01d 10235 . . . . . . . 8  |-  ( ph  ->  ( ( 1  +  E )  x.  0 )  =  0 )
177176adantr 481 . . . . . . 7  |-  ( (
ph  /\  Y  =  (/) )  ->  ( (
1  +  E )  x.  0 )  =  0 )
178 eqidd 2623 . . . . . . 7  |-  ( (
ph  /\  Y  =  (/) )  ->  0  = 
0 )
179171, 177, 1783eqtrd 2660 . . . . . 6  |-  ( (
ph  /\  Y  =  (/) )  ->  ( (
1  +  E )  x.  sum_ j  e.  {
1 }  ( P `
 j ) )  =  0 )
18022, 179breq12d 4666 . . . . 5  |-  ( (
ph  /\  Y  =  (/) )  ->  ( G  <_  ( ( 1  +  E )  x.  sum_ j  e.  { 1 }  ( P `  j ) )  <->  0  <_  0 ) )
1814, 180mpbird 247 . . . 4  |-  ( (
ph  /\  Y  =  (/) )  ->  G  <_  ( ( 1  +  E
)  x.  sum_ j  e.  { 1 }  ( P `  j )
) )
182 oveq2 6658 . . . . . . . . 9  |-  ( m  =  1  ->  (
1 ... m )  =  ( 1 ... 1
) )
1831nnzi 11401 . . . . . . . . . . 11  |-  1  e.  ZZ
184 fzsn 12383 . . . . . . . . . . 11  |-  ( 1  e.  ZZ  ->  (
1 ... 1 )  =  { 1 } )
185183, 184ax-mp 5 . . . . . . . . . 10  |-  ( 1 ... 1 )  =  { 1 }
186185a1i 11 . . . . . . . . 9  |-  ( m  =  1  ->  (
1 ... 1 )  =  { 1 } )
187182, 186eqtrd 2656 . . . . . . . 8  |-  ( m  =  1  ->  (
1 ... m )  =  { 1 } )
188187sumeq1d 14431 . . . . . . 7  |-  ( m  =  1  ->  sum_ j  e.  ( 1 ... m
) ( P `  j )  =  sum_ j  e.  { 1 }  ( P `  j ) )
189188oveq2d 6666 . . . . . 6  |-  ( m  =  1  ->  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) )  =  ( ( 1  +  E )  x.  sum_ j  e.  { 1 }  ( P `  j ) ) )
190189breq2d 4665 . . . . 5  |-  ( m  =  1  ->  ( G  <_  ( ( 1  +  E )  x. 
sum_ j  e.  ( 1 ... m ) ( P `  j
) )  <->  G  <_  ( ( 1  +  E
)  x.  sum_ j  e.  { 1 }  ( P `  j )
) ) )
191190rspcev 3309 . . . 4  |-  ( ( 1  e.  NN  /\  G  <_  ( ( 1  +  E )  x. 
sum_ j  e.  {
1 }  ( P `
 j ) ) )  ->  E. m  e.  NN  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )
1922, 181, 191syl2anc 693 . . 3  |-  ( (
ph  /\  Y  =  (/) )  ->  E. m  e.  NN  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )
193 simpl 473 . . . 4  |-  ( (
ph  /\  -.  Y  =  (/) )  ->  ph )
194 neqne 2802 . . . . 5  |-  ( -.  Y  =  (/)  ->  Y  =/=  (/) )
195194adantl 482 . . . 4  |-  ( (
ph  /\  -.  Y  =  (/) )  ->  Y  =/=  (/) )
196 nfv 1843 . . . . . 6  |-  F/ j ( ph  /\  Y  =/=  (/) )
197183a1i 11 . . . . . 6  |-  ( (
ph  /\  Y  =/=  (/) )  ->  1  e.  ZZ )
198 nnuz 11723 . . . . . 6  |-  NN  =  ( ZZ>= `  1 )
199114adantlr 751 . . . . . 6  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  j  e.  NN )  ->  ( P `  j )  e.  ( 0 [,) +oo ) )
200 hoidmvlelem3.a . . . . . . . . . . . 12  |-  ( ph  ->  A : W --> RR )
20166a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  Y  C_  W )
202200, 201fssresd 6071 . . . . . . . . . . 11  |-  ( ph  ->  ( A  |`  Y ) : Y --> RR )
203 hoidmvlelem3.b . . . . . . . . . . . 12  |-  ( ph  ->  B : W --> RR )
204203, 201fssresd 6071 . . . . . . . . . . 11  |-  ( ph  ->  ( B  |`  Y ) : Y --> RR )
20518, 58, 202, 204hoidmvcl 40796 . . . . . . . . . 10  |-  ( ph  ->  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  e.  ( 0 [,) +oo ) )
20628, 205sseldi 3601 . . . . . . . . 9  |-  ( ph  ->  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  e.  RR )
2075, 206syl5eqel 2705 . . . . . . . 8  |-  ( ph  ->  G  e.  RR )
208 0red 10041 . . . . . . . . 9  |-  ( ph  ->  0  e.  RR )
209 1rp 11836 . . . . . . . . . . . . 13  |-  1  e.  RR+
210209a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  1  e.  RR+ )
211210, 172jca 554 . . . . . . . . . . 11  |-  ( ph  ->  ( 1  e.  RR+  /\  E  e.  RR+ )
)
212 rpaddcl 11854 . . . . . . . . . . 11  |-  ( ( 1  e.  RR+  /\  E  e.  RR+ )  ->  (
1  +  E )  e.  RR+ )
213211, 212syl 17 . . . . . . . . . 10  |-  ( ph  ->  ( 1  +  E
)  e.  RR+ )
214 rpgt0 11844 . . . . . . . . . 10  |-  ( ( 1  +  E )  e.  RR+  ->  0  < 
( 1  +  E
) )
215213, 214syl 17 . . . . . . . . 9  |-  ( ph  ->  0  <  ( 1  +  E ) )
216208, 215gtned 10172 . . . . . . . 8  |-  ( ph  ->  ( 1  +  E
)  =/=  0 )
217207, 174, 216redivcld 10853 . . . . . . 7  |-  ( ph  ->  ( G  /  (
1  +  E ) )  e.  RR )
218217adantr 481 . . . . . 6  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( G  /  ( 1  +  E ) )  e.  RR )
219217ltpnfd 11955 . . . . . . . . . 10  |-  ( ph  ->  ( G  /  (
1  +  E ) )  < +oo )
220219adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  ( G  / 
( 1  +  E
) )  < +oo )
221 id 22 . . . . . . . . . . 11  |-  ( (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  = +oo  ->  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  = +oo )
222221eqcomd 2628 . . . . . . . . . 10  |-  ( (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  = +oo  -> +oo  =  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) ) )
223222adantl 482 . . . . . . . . 9  |-  ( (
ph  /\  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  = +oo )  -> +oo  =  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) ) )
224220, 223breqtrd 4679 . . . . . . . 8  |-  ( (
ph  /\  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  ( G  / 
( 1  +  E
) )  <  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) ) )
225224adantlr 751 . . . . . . 7  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  ( G  / 
( 1  +  E
) )  <  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) ) )
226 simpl 473 . . . . . . . 8  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  -.  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  ( ph  /\  Y  =/=  (/) ) )
227 simpr 477 . . . . . . . . . 10  |-  ( (
ph  /\  -.  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  -.  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  = +oo )
228 nnex 11026 . . . . . . . . . . . 12  |-  NN  e.  _V
229228a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  -.  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  NN  e.  _V )
230 icossicc 12260 . . . . . . . . . . . . . 14  |-  ( 0 [,) +oo )  C_  ( 0 [,] +oo )
231230, 114sseldi 3601 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  NN )  ->  ( P `
 j )  e.  ( 0 [,] +oo ) )
232 eqid 2622 . . . . . . . . . . . . 13  |-  ( j  e.  NN  |->  ( P `
 j ) )  =  ( j  e.  NN  |->  ( P `  j ) )
233231, 232fmptd 6385 . . . . . . . . . . . 12  |-  ( ph  ->  ( j  e.  NN  |->  ( P `  j ) ) : NN --> ( 0 [,] +oo ) )
234233adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  -.  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  ( j  e.  NN  |->  ( P `  j ) ) : NN --> ( 0 [,] +oo ) )
235229, 234sge0repnf 40603 . . . . . . . . . 10  |-  ( (
ph  /\  -.  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  ( (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  e.  RR  <->  -.  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  = +oo ) )
236227, 235mpbird 247 . . . . . . . . 9  |-  ( (
ph  /\  -.  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  e.  RR )
237236adantlr 751 . . . . . . . 8  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  -.  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  e.  RR )
238218adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  e.  RR )  ->  ( G  / 
( 1  +  E
) )  e.  RR )
239207adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  e.  RR )  ->  G  e.  RR )
240239adantlr 751 . . . . . . . . 9  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  e.  RR )  ->  G  e.  RR )
241 simpr 477 . . . . . . . . 9  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  e.  RR )  ->  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  e.  RR )
24227, 172ltaddrpd 11905 . . . . . . . . . . . 12  |-  ( ph  ->  1  <  ( 1  +  E ) )
243242adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  (/) )  ->  1  <  ( 1  +  E ) )
24458adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  (/) )  ->  Y  e.  Fin )
245 simpr 477 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  (/) )  ->  Y  =/=  (/) )
246202adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( A  |`  Y ) : Y --> RR )
247204adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( B  |`  Y ) : Y --> RR )
24818, 244, 245, 246, 247hoidmvn0val 40798 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  =  prod_ k  e.  Y  ( vol `  ( ( ( A  |`  Y ) `  k
) [,) ( ( B  |`  Y ) `  k ) ) ) )
2495a1i 11 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  (/) )  ->  G  =  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
) )
250 fvres 6207 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  Y  ->  (
( A  |`  Y ) `
 k )  =  ( A `  k
) )
251 fvres 6207 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  Y  ->  (
( B  |`  Y ) `
 k )  =  ( B `  k
) )
252250, 251oveq12d 6668 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  Y  ->  (
( ( A  |`  Y ) `  k
) [,) ( ( B  |`  Y ) `  k ) )  =  ( ( A `  k ) [,) ( B `  k )
) )
253252fveq2d 6195 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  Y  ->  ( vol `  ( ( ( A  |`  Y ) `  k ) [,) (
( B  |`  Y ) `
 k ) ) )  =  ( vol `  ( ( A `  k ) [,) ( B `  k )
) ) )
254253adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  Y )  ->  ( vol `  ( ( ( A  |`  Y ) `  k ) [,) (
( B  |`  Y ) `
 k ) ) )  =  ( vol `  ( ( A `  k ) [,) ( B `  k )
) ) )
255200adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  Y )  ->  A : W --> RR )
256 elun1 3780 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  Y  ->  k  e.  ( Y  u.  { Z } ) )
257256, 44syl6eleqr 2712 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  Y  ->  k  e.  W )
258257adantl 482 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  Y )  ->  k  e.  W )
259255, 258ffvelrnd 6360 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  k  e.  Y )  ->  ( A `  k )  e.  RR )
260203adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  Y )  ->  B : W --> RR )
261260, 258ffvelrnd 6360 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  k  e.  Y )  ->  ( B `  k )  e.  RR )
262 volico 40200 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( A `  k
)  e.  RR  /\  ( B `  k )  e.  RR )  -> 
( vol `  (
( A `  k
) [,) ( B `
 k ) ) )  =  if ( ( A `  k
)  <  ( B `  k ) ,  ( ( B `  k
)  -  ( A `
 k ) ) ,  0 ) )
263259, 261, 262syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  Y )  ->  ( vol `  ( ( A `
 k ) [,) ( B `  k
) ) )  =  if ( ( A `
 k )  < 
( B `  k
) ,  ( ( B `  k )  -  ( A `  k ) ) ,  0 ) )
264 hoidmvlelem3.lt . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  W )  ->  ( A `  k )  <  ( B `  k
) )
265258, 264syldan 487 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  k  e.  Y )  ->  ( A `  k )  <  ( B `  k
) )
266265iftrued 4094 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  Y )  ->  if ( ( A `  k )  <  ( B `  k ) ,  ( ( B `
 k )  -  ( A `  k ) ) ,  0 )  =  ( ( B `
 k )  -  ( A `  k ) ) )
267254, 263, 2663eqtrd 2660 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  Y )  ->  ( vol `  ( ( ( A  |`  Y ) `  k ) [,) (
( B  |`  Y ) `
 k ) ) )  =  ( ( B `  k )  -  ( A `  k ) ) )
268267prodeq2dv 14653 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  prod_ k  e.  Y  ( vol `  ( ( ( A  |`  Y ) `
 k ) [,) ( ( B  |`  Y ) `  k
) ) )  = 
prod_ k  e.  Y  ( ( B `  k )  -  ( A `  k )
) )
269268eqcomd 2628 . . . . . . . . . . . . . . 15  |-  ( ph  ->  prod_ k  e.  Y  ( ( B `  k )  -  ( A `  k )
)  =  prod_ k  e.  Y  ( vol `  ( ( ( A  |`  Y ) `  k
) [,) ( ( B  |`  Y ) `  k ) ) ) )
270269adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  (/) )  ->  prod_ k  e.  Y  ( ( B `
 k )  -  ( A `  k ) )  =  prod_ k  e.  Y  ( vol `  ( ( ( A  |`  Y ) `  k
) [,) ( ( B  |`  Y ) `  k ) ) ) )
271248, 249, 2703eqtr4d 2666 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  (/) )  ->  G  =  prod_ k  e.  Y  ( ( B `  k
)  -  ( A `
 k ) ) )
272 difrp 11868 . . . . . . . . . . . . . . . . 17  |-  ( ( ( A `  k
)  e.  RR  /\  ( B `  k )  e.  RR )  -> 
( ( A `  k )  <  ( B `  k )  <->  ( ( B `  k
)  -  ( A `
 k ) )  e.  RR+ ) )
273259, 261, 272syl2anc 693 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  k  e.  Y )  ->  (
( A `  k
)  <  ( B `  k )  <->  ( ( B `  k )  -  ( A `  k ) )  e.  RR+ ) )
274265, 273mpbid 222 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  k  e.  Y )  ->  (
( B `  k
)  -  ( A `
 k ) )  e.  RR+ )
27558, 274fprodrpcl 14686 . . . . . . . . . . . . . 14  |-  ( ph  ->  prod_ k  e.  Y  ( ( B `  k )  -  ( A `  k )
)  e.  RR+ )
276275adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  (/) )  ->  prod_ k  e.  Y  ( ( B `
 k )  -  ( A `  k ) )  e.  RR+ )
277271, 276eqeltrd 2701 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  (/) )  ->  G  e.  RR+ )
278213adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( 1  +  E )  e.  RR+ )
279277, 278ltdivgt1 39572 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( 1  <  ( 1  +  E )  <->  ( G  /  ( 1  +  E ) )  < 
G ) )
280243, 279mpbid 222 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( G  /  ( 1  +  E ) )  < 
G )
281280adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  e.  RR )  ->  ( G  / 
( 1  +  E
) )  <  G
)
282 hoidmvlelem3.i2 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  -> 
X_ k  e.  W  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  W  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
) )
283282adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  X_ k  e.  W  ( ( A `
 k ) [,) ( B `  k
) )  C_  U_ j  e.  NN  X_ k  e.  W  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
) )
284 fvexd 6203 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( x `  k
)  e.  _V )
285 hoidmvlelem3.s . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  S  e.  U )
286285elexd 3214 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  S  e.  _V )
287284, 286ifcld 4131 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  ->  if ( k  e.  Y ,  ( x `
 k ) ,  S )  e.  _V )
288287ralrimivw 2967 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  A. k  e.  W  if ( k  e.  Y ,  ( x `  k ) ,  S
)  e.  _V )
289288adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  A. k  e.  W  if (
k  e.  Y , 
( x `  k
) ,  S )  e.  _V )
290 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( k  e.  W  |->  if ( k  e.  Y , 
( x `  k
) ,  S ) )  =  ( k  e.  W  |->  if ( k  e.  Y , 
( x `  k
) ,  S ) )
291290fnmpt 6020 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( A. k  e.  W  if ( k  e.  Y ,  ( x `  k ) ,  S
)  e.  _V  ->  ( k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S
) )  Fn  W
)
292289, 291syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( k  e.  W  |->  if ( k  e.  Y , 
( x `  k
) ,  S ) )  Fn  W )
293 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )
294 mptexg 6484 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( W  e.  Fin  ->  (
k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S
) )  e.  _V )
29553, 294syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  ->  ( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) )  e. 
_V )
296295adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( k  e.  W  |->  if ( k  e.  Y , 
( x `  k
) ,  S ) )  e.  _V )
297 hoidmvlelem3.o . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  O  =  ( x  e.  X_ k  e.  Y  (
( A `  k
) [,) ( B `
 k ) ) 
|->  ( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) ) )
298297fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) )  /\  (
k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S
) )  e.  _V )  ->  ( O `  x )  =  ( k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S
) ) )
299293, 296, 298syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( O `  x )  =  ( k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S
) ) )
300299fneq1d 5981 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( ( O `  x )  Fn  W  <->  ( k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S ) )  Fn  W ) )
301292, 300mpbird 247 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( O `  x )  Fn  W
)
302 nfv 1843 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/ k
ph
303 nfcv 2764 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F/_ k
x
304 nfixp1 7928 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F/_ k X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) )
305303, 304nfel 2777 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/ k  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) )
306302, 305nfan 1828 . . . . . . . . . . . . . . . . . . . . . . 23  |-  F/ k ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
) )
307299fveq1d 6193 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( ( O `  x ) `  k )  =  ( ( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) ) `  k ) )
308307adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
) )  /\  k  e.  W )  ->  (
( O `  x
) `  k )  =  ( ( k  e.  W  |->  if ( k  e.  Y , 
( x `  k
) ,  S ) ) `  k ) )
309 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  k  e.  W )  ->  k  e.  W )
310287adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  k  e.  W )  ->  if ( k  e.  Y ,  ( x `  k ) ,  S
)  e.  _V )
311290fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( k  e.  W  /\  if ( k  e.  Y ,  ( x `  k ) ,  S
)  e.  _V )  ->  ( ( k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S ) ) `
 k )  =  if ( k  e.  Y ,  ( x `
 k ) ,  S ) )
312309, 310, 311syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
ph  /\  k  e.  W )  ->  (
( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) ) `  k )  =  if ( k  e.  Y ,  ( x `  k ) ,  S
) )
313312adantlr 751 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
) )  /\  k  e.  W )  ->  (
( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) ) `  k )  =  if ( k  e.  Y ,  ( x `  k ) ,  S
) )
314308, 313eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
) )  /\  k  e.  W )  ->  (
( O `  x
) `  k )  =  if ( k  e.  Y ,  ( x `
 k ) ,  S ) )
315 iftrue 4092 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( k  e.  Y  ->  if ( k  e.  Y ,  ( x `  k ) ,  S
)  =  ( x `
 k ) )
316315adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  k  e.  W )  /\  k  e.  Y
)  ->  if (
k  e.  Y , 
( x `  k
) ,  S )  =  ( x `  k ) )
317 vex 3203 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  x  e. 
_V
318317elixp 7915 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  <->  ( x  Fn  Y  /\  A. k  e.  Y  ( x `  k )  e.  ( ( A `  k
) [,) ( B `
 k ) ) ) )
319318simprbi 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  ->  A. k  e.  Y  ( x `  k )  e.  ( ( A `  k
) [,) ( B `
 k ) ) )
320319adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) )  /\  k  e.  Y )  ->  A. k  e.  Y  ( x `  k )  e.  ( ( A `  k
) [,) ( B `
 k ) ) )
321 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) )  /\  k  e.  Y )  ->  k  e.  Y )
322 rspa 2930 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( A. k  e.  Y  ( x `  k
)  e.  ( ( A `  k ) [,) ( B `  k ) )  /\  k  e.  Y )  ->  ( x `  k
)  e.  ( ( A `  k ) [,) ( B `  k ) ) )
323320, 321, 322syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) )  /\  k  e.  Y )  ->  (
x `  k )  e.  ( ( A `  k ) [,) ( B `  k )
) )
324323ad4ant24 1298 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  k  e.  W )  /\  k  e.  Y
)  ->  ( x `  k )  e.  ( ( A `  k
) [,) ( B `
 k ) ) )
325316, 324eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  k  e.  W )  /\  k  e.  Y
)  ->  if (
k  e.  Y , 
( x `  k
) ,  S )  e.  ( ( A `
 k ) [,) ( B `  k
) ) )
326 snidg 4206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( Z  e.  ( X  \  Y )  ->  Z  e.  { Z } )
32747, 326syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ph  ->  Z  e.  { Z } )
328 elun2 3781 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( Z  e.  { Z }  ->  Z  e.  ( Y  u.  { Z }
) )
329327, 328syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ph  ->  Z  e.  ( Y  u.  { Z }
) )
33055a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ph  ->  ( Y  u.  { Z } )  =  W )
331329, 330eleqtrd 2703 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ph  ->  Z  e.  W )
332200, 331ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ph  ->  ( A `  Z
)  e.  RR )
333332rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( A `  Z
)  e.  RR* )
334203, 331ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ph  ->  ( B `  Z
)  e.  RR )
335334rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( B `  Z
)  e.  RR* )
336 iccssxr 12256 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( A `  Z ) [,] ( B `  Z ) )  C_  RR*
337 hoidmvlelem3.u . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  U  =  { z  e.  ( ( A `  Z
) [,] ( B `
 Z ) )  |  ( G  x.  ( z  -  ( A `  Z )
) )  <_  (
( 1  +  E
)  x.  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( ( H `  z
) `  ( D `  j ) ) ) ) ) ) }
338 ssrab2 3687 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  { z  e.  ( ( A `
 Z ) [,] ( B `  Z
) )  |  ( G  x.  ( z  -  ( A `  Z ) ) )  <_  ( ( 1  +  E )  x.  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( ( H `  z
) `  ( D `  j ) ) ) ) ) ) } 
C_  ( ( A `
 Z ) [,] ( B `  Z
) )
339337, 338eqsstri 3635 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  U  C_  ( ( A `  Z ) [,] ( B `  Z )
)
340339, 285sseldi 3601 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ph  ->  S  e.  ( ( A `  Z ) [,] ( B `  Z ) ) )
341336, 340sseldi 3601 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  S  e.  RR* )
342 iccgelb 12230 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( A `  Z
)  e.  RR*  /\  ( B `  Z )  e.  RR*  /\  S  e.  ( ( A `  Z ) [,] ( B `  Z )
) )  ->  ( A `  Z )  <_  S )
343333, 335, 340, 342syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( A `  Z
)  <_  S )
344 hoidmvlelem3.sb . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  S  <  ( B `
 Z ) )
345333, 335, 341, 343, 344elicod 12224 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  S  e.  ( ( A `  Z ) [,) ( B `  Z ) ) )
346345ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  k  e.  W )  /\  -.  k  e.  Y )  ->  S  e.  ( ( A `  Z ) [,) ( B `  Z ) ) )
347 iffalse 4095 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( -.  k  e.  Y  ->  if ( k  e.  Y ,  ( x `  k ) ,  S
)  =  S )
348347adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  k  e.  W )  /\  -.  k  e.  Y )  ->  if ( k  e.  Y ,  ( x `
 k ) ,  S )  =  S )
34944eleq2i 2693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( k  e.  W  <->  k  e.  ( Y  u.  { Z } ) )
350349biimpi 206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( k  e.  W  ->  k  e.  ( Y  u.  { Z } ) )
351350adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( k  e.  W  /\  -.  k  e.  Y
)  ->  k  e.  ( Y  u.  { Z } ) )
352 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( k  e.  W  /\  -.  k  e.  Y
)  ->  -.  k  e.  Y )
353 elunnel1 3754 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( k  e.  ( Y  u.  { Z }
)  /\  -.  k  e.  Y )  ->  k  e.  { Z } )
354351, 352, 353syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( k  e.  W  /\  -.  k  e.  Y
)  ->  k  e.  { Z } )
355 elsni 4194 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( k  e.  { Z }  ->  k  =  Z )
356354, 355syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( k  e.  W  /\  -.  k  e.  Y
)  ->  k  =  Z )
357 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( k  =  Z  ->  ( A `  k )  =  ( A `  Z ) )
358 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( k  =  Z  ->  ( B `  k )  =  ( B `  Z ) )
359357, 358oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( k  =  Z  ->  (
( A `  k
) [,) ( B `
 k ) )  =  ( ( A `
 Z ) [,) ( B `  Z
) ) )
360356, 359syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( k  e.  W  /\  -.  k  e.  Y
)  ->  ( ( A `  k ) [,) ( B `  k
) )  =  ( ( A `  Z
) [,) ( B `
 Z ) ) )
361360adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  k  e.  W )  /\  -.  k  e.  Y )  ->  ( ( A `  k ) [,) ( B `  k )
)  =  ( ( A `  Z ) [,) ( B `  Z ) ) )
362348, 361eleq12d 2695 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  k  e.  W )  /\  -.  k  e.  Y )  ->  ( if ( k  e.  Y ,  ( x `  k ) ,  S )  e.  ( ( A `  k ) [,) ( B `  k )
)  <->  S  e.  (
( A `  Z
) [,) ( B `
 Z ) ) ) )
363346, 362mpbird 247 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  k  e.  W )  /\  -.  k  e.  Y )  ->  if ( k  e.  Y ,  ( x `
 k ) ,  S )  e.  ( ( A `  k
) [,) ( B `
 k ) ) )
364363adantllr 755 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  k  e.  W )  /\  -.  k  e.  Y
)  ->  if (
k  e.  Y , 
( x `  k
) ,  S )  e.  ( ( A `
 k ) [,) ( B `  k
) ) )
365325, 364pm2.61dan 832 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
) )  /\  k  e.  W )  ->  if ( k  e.  Y ,  ( x `  k ) ,  S
)  e.  ( ( A `  k ) [,) ( B `  k ) ) )
366314, 365eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
) )  /\  k  e.  W )  ->  (
( O `  x
) `  k )  e.  ( ( A `  k ) [,) ( B `  k )
) )
367366ex 450 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( k  e.  W  ->  ( ( O `  x ) `
 k )  e.  ( ( A `  k ) [,) ( B `  k )
) ) )
368306, 367ralrimi 2957 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  A. k  e.  W  ( ( O `  x ) `  k )  e.  ( ( A `  k
) [,) ( B `
 k ) ) )
369301, 368jca 554 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( ( O `  x )  Fn  W  /\  A. k  e.  W  ( ( O `  x ) `  k )  e.  ( ( A `  k
) [,) ( B `
 k ) ) ) )
370 fvex 6201 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( O `
 x )  e. 
_V
371370elixp 7915 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( O `  x )  e.  X_ k  e.  W  ( ( A `  k ) [,) ( B `  k )
)  <->  ( ( O `
 x )  Fn  W  /\  A. k  e.  W  ( ( O `  x ) `  k )  e.  ( ( A `  k
) [,) ( B `
 k ) ) ) )
372369, 371sylibr 224 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( O `  x )  e.  X_ k  e.  W  (
( A `  k
) [,) ( B `
 k ) ) )
373283, 372sseldd 3604 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( O `  x )  e.  U_ j  e.  NN  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )
374 eliun 4524 . . . . . . . . . . . . . . . . . . 19  |-  ( ( O `  x )  e.  U_ j  e.  NN  X_ k  e.  W  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
)  <->  E. j  e.  NN  ( O `  x )  e.  X_ k  e.  W  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
) )
375373, 374sylib 208 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  E. j  e.  NN  ( O `  x )  e.  X_ k  e.  W  (
( ( C `  j ) `  k
) [,) ( ( D `  j ) `
 k ) ) )
376 ixpfn 7914 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  ->  x  Fn  Y )
377376adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  x  Fn  Y )
378377ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  ->  x  Fn  Y )
379 nfv 1843 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F/ k  j  e.  NN
380306, 379nfan 1828 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/ k ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )
381 nfcv 2764 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F/_ k
( O `  x
)
382 nfixp1 7928 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F/_ k X_ k  e.  W  ( ( ( C `  j ) `  k
) [,) ( ( D `  j ) `
 k ) )
383381, 382nfel 2777 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/ k ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) )
384380, 383nfan 1828 . . . . . . . . . . . . . . . . . . . . . . 23  |-  F/ k ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )
3853073adant3 1081 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) )  /\  k  e.  Y
)  ->  ( ( O `  x ) `  k )  =  ( ( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) ) `  k ) )
386287adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  k  e.  Y )  ->  if ( k  e.  Y ,  ( x `  k ) ,  S
)  e.  _V )
387258, 386, 311syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( (
ph  /\  k  e.  Y )  ->  (
( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) ) `  k )  =  if ( k  e.  Y ,  ( x `  k ) ,  S
) )
3883873adant2 1080 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) )  /\  k  e.  Y
)  ->  ( (
k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S
) ) `  k
)  =  if ( k  e.  Y , 
( x `  k
) ,  S ) )
3893153ad2ant3 1084 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) )  /\  k  e.  Y
)  ->  if (
k  e.  Y , 
( x `  k
) ,  S )  =  ( x `  k ) )
390385, 388, 3893eqtrrd 2661 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) )  /\  k  e.  Y
)  ->  ( x `  k )  =  ( ( O `  x
) `  k )
)
391390ad5ant125 1312 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( x `  k
)  =  ( ( O `  x ) `
 k ) )
392 simpl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) )  /\  k  e.  Y )  ->  ( O `  x )  e.  X_ k  e.  W  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
) )
393370elixp 7915 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( O `  x )  e.  X_ k  e.  W  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
)  <->  ( ( O `
 x )  Fn  W  /\  A. k  e.  W  ( ( O `  x ) `  k )  e.  ( ( ( C `  j ) `  k
) [,) ( ( D `  j ) `
 k ) ) ) )
394392, 393sylib 208 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) )  /\  k  e.  Y )  ->  (
( O `  x
)  Fn  W  /\  A. k  e.  W  ( ( O `  x
) `  k )  e.  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
) ) )
395394simprd 479 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) )  /\  k  e.  Y )  ->  A. k  e.  W  ( ( O `  x ) `  k )  e.  ( ( ( C `  j ) `  k
) [,) ( ( D `  j ) `
 k ) ) )
396257adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) )  /\  k  e.  Y )  ->  k  e.  W )
397 rspa 2930 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( A. k  e.  W  ( ( O `  x ) `  k
)  e.  ( ( ( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) )  /\  k  e.  W )  ->  (
( O `  x
) `  k )  e.  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
) )
398395, 396, 397syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) )  /\  k  e.  Y )  ->  (
( O `  x
) `  k )  e.  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
) )
399398adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( ( O `  x ) `  k
)  e.  ( ( ( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )
400391, 399eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( x `  k
)  e.  ( ( ( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )
40129ad3antrrr 766 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  ->  ph )
40237ad2antlr 763 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  -> 
j  e.  NN )
403299fveq1d 6193 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( ( O `  x ) `  Z )  =  ( ( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) ) `  Z ) )
404 eqidd 2623 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ph  ->  ( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) )  =  ( k  e.  W  |->  if ( k  e.  Y ,  ( x `
 k ) ,  S ) ) )
405 eleq1 2689 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37  |-  ( k  =  Z  ->  (
k  e.  Y  <->  Z  e.  Y ) )
406 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37  |-  ( k  =  Z  ->  (
x `  k )  =  ( x `  Z ) )
407405, 406ifbieq1d 4109 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( k  =  Z  ->  if ( k  e.  Y ,  ( x `  k ) ,  S
)  =  if ( Z  e.  Y , 
( x `  Z
) ,  S ) )
408407adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( (
ph  /\  k  =  Z )  ->  if ( k  e.  Y ,  ( x `  k ) ,  S
)  =  if ( Z  e.  Y , 
( x `  Z
) ,  S ) )
409 fvexd 6203 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ph  ->  ( x `  Z
)  e.  _V )
410409, 286ifcld 4131 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ph  ->  if ( Z  e.  Y ,  ( x `
 Z ) ,  S )  e.  _V )
411404, 408, 331, 410fvmptd 6288 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ph  ->  ( ( k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S ) ) `
 Z )  =  if ( Z  e.  Y ,  ( x `
 Z ) ,  S ) )
412411adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( (
k  e.  W  |->  if ( k  e.  Y ,  ( x `  k ) ,  S
) ) `  Z
)  =  if ( Z  e.  Y , 
( x `  Z
) ,  S ) )
41347eldifbd 3587 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ph  ->  -.  Z  e.  Y
)
414413iffalsed 4097 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ph  ->  if ( Z  e.  Y ,  ( x `
 Z ) ,  S )  =  S )
415414adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  if ( Z  e.  Y , 
( x `  Z
) ,  S )  =  S )
416403, 412, 4153eqtrrd 2661 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  S  =  ( ( O `  x ) `  Z
) )
417416ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  ->  S  =  ( ( O `  x ) `  Z ) )
418401, 331syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  ->  Z  e.  W )
419393simprbi 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( O `  x )  e.  X_ k  e.  W  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
)  ->  A. k  e.  W  ( ( O `  x ) `  k )  e.  ( ( ( C `  j ) `  k
) [,) ( ( D `  j ) `
 k ) ) )
420419adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  ->  A. k  e.  W  ( ( O `  x ) `  k
)  e.  ( ( ( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )
421 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( k  =  Z  ->  (
( O `  x
) `  k )  =  ( ( O `
 x ) `  Z ) )
422 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( k  =  Z  ->  (
( C `  j
) `  k )  =  ( ( C `
 j ) `  Z ) )
423 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( k  =  Z  ->  (
( D `  j
) `  k )  =  ( ( D `
 j ) `  Z ) )
424422, 423oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( k  =  Z  ->  (
( ( C `  j ) `  k
) [,) ( ( D `  j ) `
 k ) )  =  ( ( ( C `  j ) `
 Z ) [,) ( ( D `  j ) `  Z
) ) )
425421, 424eleq12d 2695 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( k  =  Z  ->  (
( ( O `  x ) `  k
)  e.  ( ( ( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) )  <->  ( ( O `  x ) `  Z )  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ) )
426425rspcva 3307 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( Z  e.  W  /\  A. k  e.  W  ( ( O `  x
) `  k )  e.  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
) )  ->  (
( O `  x
) `  Z )  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) )
427418, 420, 426syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  -> 
( ( O `  x ) `  Z
)  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )
428417, 427eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  ->  S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) )
4291493adant3 1081 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  j  e.  NN  /\  S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) )  ->  ( J `  j )  =  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
) )
430603ad2ant3 1084 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  j  e.  NN  /\  S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) )  ->  if ( S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( C `  j
)  |`  Y ) ,  F )  =  ( ( C `  j
)  |`  Y ) )
431429, 430eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  j  e.  NN  /\  S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) )  ->  ( J `  j )  =  ( ( C `  j
)  |`  Y ) )
432431fveq1d 6193 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  j  e.  NN  /\  S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) )  ->  ( ( J `  j ) `  k )  =  ( ( ( C `  j )  |`  Y ) `
 k ) )
433401, 402, 428, 432syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  -> 
( ( J `  j ) `  k
)  =  ( ( ( C `  j
)  |`  Y ) `  k ) )
434433adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( ( J `  j ) `  k
)  =  ( ( ( C `  j
)  |`  Y ) `  k ) )
435 fvres 6207 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( k  e.  Y  ->  (
( ( C `  j )  |`  Y ) `
 k )  =  ( ( C `  j ) `  k
) )
436435adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( ( ( C `
 j )  |`  Y ) `  k
)  =  ( ( C `  j ) `
 k ) )
437434, 436eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( ( J `  j ) `  k
)  =  ( ( C `  j ) `
 k ) )
438107elexd 3214 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( (
ph  /\  j  e.  NN )  ->  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( D `  j
)  |`  Y ) ,  F )  e.  _V )
439108fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( j  e.  NN  /\  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
)  e.  _V )  ->  ( K `  j
)  =  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( D `  j
)  |`  Y ) ,  F ) )
440139, 438, 439syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( (
ph  /\  j  e.  NN )  ->  ( K `
 j )  =  if ( S  e.  ( ( ( C `
 j ) `  Z ) [,) (
( D `  j
) `  Z )
) ,  ( ( D `  j )  |`  Y ) ,  F
) )
4414403adant3 1081 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  j  e.  NN  /\  S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) )  ->  ( K `  j )  =  if ( S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
) )
442933ad2ant3 1084 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  j  e.  NN  /\  S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) )  ->  if ( S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( D `  j
)  |`  Y ) ,  F )  =  ( ( D `  j
)  |`  Y ) )
443441, 442eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  j  e.  NN  /\  S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) )  ->  ( K `  j )  =  ( ( D `  j
)  |`  Y ) )
444443fveq1d 6193 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  j  e.  NN  /\  S  e.  ( ( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) )  ->  ( ( K `  j ) `  k )  =  ( ( ( D `  j )  |`  Y ) `
 k ) )
445401, 402, 428, 444syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  -> 
( ( K `  j ) `  k
)  =  ( ( ( D `  j
)  |`  Y ) `  k ) )
446445adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( ( K `  j ) `  k
)  =  ( ( ( D `  j
)  |`  Y ) `  k ) )
447 fvres 6207 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( k  e.  Y  ->  (
( ( D `  j )  |`  Y ) `
 k )  =  ( ( D `  j ) `  k
) )
448447adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( ( ( D `
 j )  |`  Y ) `  k
)  =  ( ( D `  j ) `
 k ) )
449446, 448eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( ( K `  j ) `  k
)  =  ( ( D `  j ) `
 k ) )
450437, 449oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
)  =  ( ( ( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )
451450eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
)  =  ( ( ( J `  j
) `  k ) [,) ( ( K `  j ) `  k
) ) )
452400, 451eleqtrd 2703 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  /\  k  e.  Y )  ->  ( x `  k
)  e.  ( ( ( J `  j
) `  k ) [,) ( ( K `  j ) `  k
) ) )
453452ex 450 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  -> 
( k  e.  Y  ->  ( x `  k
)  e.  ( ( ( J `  j
) `  k ) [,) ( ( K `  j ) `  k
) ) ) )
454384, 453ralrimi 2957 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  ->  A. k  e.  Y  ( x `  k
)  e.  ( ( ( J `  j
) `  k ) [,) ( ( K `  j ) `  k
) ) )
455378, 454jca 554 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  -> 
( x  Fn  Y  /\  A. k  e.  Y  ( x `  k
)  e.  ( ( ( J `  j
) `  k ) [,) ( ( K `  j ) `  k
) ) ) )
456317elixp 7915 . . . . . . . . . . . . . . . . . . . . 21  |-  ( x  e.  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
)  <->  ( x  Fn  Y  /\  A. k  e.  Y  ( x `  k )  e.  ( ( ( J `  j ) `  k
) [,) ( ( K `  j ) `
 k ) ) ) )
457455, 456sylibr 224 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) ) )  /\  j  e.  NN )  /\  ( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) ) )  ->  x  e.  X_ k  e.  Y  ( ( ( J `  j ) `
 k ) [,) ( ( K `  j ) `  k
) ) )
458457ex 450 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
) )  /\  j  e.  NN )  ->  (
( O `  x
)  e.  X_ k  e.  W  ( (
( C `  j
) `  k ) [,) ( ( D `  j ) `  k
) )  ->  x  e.  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
) ) )
459458reximdva 3017 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  ( E. j  e.  NN  ( O `  x )  e.  X_ k  e.  W  ( ( ( C `
 j ) `  k ) [,) (
( D `  j
) `  k )
)  ->  E. j  e.  NN  x  e.  X_ k  e.  Y  (
( ( J `  j ) `  k
) [,) ( ( K `  j ) `
 k ) ) ) )
460375, 459mpd 15 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  E. j  e.  NN  x  e.  X_ k  e.  Y  (
( ( J `  j ) `  k
) [,) ( ( K `  j ) `
 k ) ) )
461 eliun 4524 . . . . . . . . . . . . . . . . 17  |-  ( x  e.  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
)  <->  E. j  e.  NN  x  e.  X_ k  e.  Y  ( ( ( J `  j ) `
 k ) [,) ( ( K `  j ) `  k
) ) )
462460, 461sylibr 224 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  x  e.  X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) )  ->  x  e.  U_ j  e.  NN  X_ k  e.  Y  (
( ( J `  j ) `  k
) [,) ( ( K `  j ) `
 k ) ) )
463462ralrimiva 2966 . . . . . . . . . . . . . . 15  |-  ( ph  ->  A. x  e.  X_  k  e.  Y  (
( A `  k
) [,) ( B `
 k ) ) x  e.  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
) )
464 dfss3 3592 . . . . . . . . . . . . . . 15  |-  ( X_ k  e.  Y  (
( A `  k
) [,) ( B `
 k ) ) 
C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `  j ) `  k
) [,) ( ( K `  j ) `
 k ) )  <->  A. x  e.  X_  k  e.  Y  ( ( A `  k ) [,) ( B `  k
) ) x  e. 
U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `  j ) `  k
) [,) ( ( K `  j ) `
 k ) ) )
465463, 464sylibr 224 . . . . . . . . . . . . . 14  |-  ( ph  -> 
X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
) )
466 ovexd 6680 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( RR  ^m  Y
)  e.  _V )
467228a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  NN  e.  _V )
468466, 467elmapd 7871 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( K  e.  ( ( RR  ^m  Y
)  ^m  NN )  <->  K : NN --> ( RR 
^m  Y ) ) )
469109, 468mpbird 247 . . . . . . . . . . . . . . 15  |-  ( ph  ->  K  e.  ( ( RR  ^m  Y )  ^m  NN ) )
470466, 467elmapd 7871 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( J  e.  ( ( RR  ^m  Y
)  ^m  NN )  <->  J : NN --> ( RR 
^m  Y ) ) )
47189, 470mpbird 247 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  J  e.  ( ( RR  ^m  Y )  ^m  NN ) )
47282, 71elmapd 7871 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( B  |`  Y )  e.  ( RR  ^m  Y )  <-> 
( B  |`  Y ) : Y --> RR ) )
473204, 472mpbird 247 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( B  |`  Y )  e.  ( RR  ^m  Y ) )
47482, 71elmapd 7871 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( A  |`  Y )  e.  ( RR  ^m  Y )  <-> 
( A  |`  Y ) : Y --> RR ) )
475202, 474mpbird 247 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( A  |`  Y )  e.  ( RR  ^m  Y ) )
476 hoidmvlelem3.i . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  A. e  e.  ( RR  ^m  Y ) A. f  e.  ( RR  ^m  Y ) A. g  e.  ( ( RR  ^m  Y
)  ^m  NN ) A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( e `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( e
( L `  Y
) f )  <_ 
(Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )
477 fveq1 6190 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( e  =  ( A  |`  Y )  ->  (
e `  k )  =  ( ( A  |`  Y ) `  k
) )
478477adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( e  =  ( A  |`  Y )  /\  k  e.  Y )  ->  (
e `  k )  =  ( ( A  |`  Y ) `  k
) )
479250adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( e  =  ( A  |`  Y )  /\  k  e.  Y )  ->  (
( A  |`  Y ) `
 k )  =  ( A `  k
) )
480478, 479eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( e  =  ( A  |`  Y )  /\  k  e.  Y )  ->  (
e `  k )  =  ( A `  k ) )
481480oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( e  =  ( A  |`  Y )  /\  k  e.  Y )  ->  (
( e `  k
) [,) ( f `
 k ) )  =  ( ( A `
 k ) [,) ( f `  k
) ) )
482481ixpeq2dva 7923 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( e  =  ( A  |`  Y )  ->  X_ k  e.  Y  ( (
e `  k ) [,) ( f `  k
) )  =  X_ k  e.  Y  (
( A `  k
) [,) ( f `
 k ) ) )
483482sseq1d 3632 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( e  =  ( A  |`  Y )  ->  ( X_ k  e.  Y  ( ( e `  k
) [,) ( f `
 k ) ) 
C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `  j ) `  k
) [,) ( ( h `  j ) `
 k ) )  <->  X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
) ) )
484 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( e  =  ( A  |`  Y )  ->  (
e ( L `  Y ) f )  =  ( ( A  |`  Y ) ( L `
 Y ) f ) )
485484breq1d 4663 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( e  =  ( A  |`  Y )  ->  (
( e ( L `
 Y ) f )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) )  <->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) ) )
486483, 485imbi12d 334 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( e  =  ( A  |`  Y )  ->  (
( X_ k  e.  Y  ( ( e `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( e
( L `  Y
) f )  <_ 
(Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) )  <-> 
( X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) ) ) )
487486ralbidv 2986 . . . . . . . . . . . . . . . . . . . . 21  |-  ( e  =  ( A  |`  Y )  ->  ( A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( e `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( e
( L `  Y
) f )  <_ 
(Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) )  <->  A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) ) ) )
488487ralbidv 2986 . . . . . . . . . . . . . . . . . . . 20  |-  ( e  =  ( A  |`  Y )  ->  ( A. g  e.  (
( RR  ^m  Y
)  ^m  NN ) A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( e `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( e
( L `  Y
) f )  <_ 
(Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) )  <->  A. g  e.  (
( RR  ^m  Y
)  ^m  NN ) A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) ) ) )
489488ralbidv 2986 . . . . . . . . . . . . . . . . . . 19  |-  ( e  =  ( A  |`  Y )  ->  ( A. f  e.  ( RR  ^m  Y ) A. g  e.  ( ( RR  ^m  Y )  ^m  NN ) A. h  e.  ( ( RR  ^m  Y )  ^m  NN ) ( X_ k  e.  Y  ( (
e `  k ) [,) ( f `  k
) )  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( e
( L `  Y
) f )  <_ 
(Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) )  <->  A. f  e.  ( RR  ^m  Y ) A. g  e.  ( ( RR  ^m  Y )  ^m  NN ) A. h  e.  ( ( RR  ^m  Y )  ^m  NN ) ( X_ k  e.  Y  ( ( A `  k ) [,) ( f `  k
) )  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) ) ) )
490489rspcva 3307 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( A  |`  Y )  e.  ( RR  ^m  Y )  /\  A. e  e.  ( RR  ^m  Y ) A. f  e.  ( RR  ^m  Y
) A. g  e.  ( ( RR  ^m  Y )  ^m  NN ) A. h  e.  ( ( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( e `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( e
( L `  Y
) f )  <_ 
(Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )  ->  A. f  e.  ( RR  ^m  Y
) A. g  e.  ( ( RR  ^m  Y )  ^m  NN ) A. h  e.  ( ( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) ) )
491475, 476, 490syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  A. f  e.  ( RR  ^m  Y ) A. g  e.  ( ( RR  ^m  Y
)  ^m  NN ) A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) ) )
492 fveq1 6190 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( f  =  ( B  |`  Y )  ->  (
f `  k )  =  ( ( B  |`  Y ) `  k
) )
493492adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( f  =  ( B  |`  Y )  /\  k  e.  Y )  ->  (
f `  k )  =  ( ( B  |`  Y ) `  k
) )
494251adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( f  =  ( B  |`  Y )  /\  k  e.  Y )  ->  (
( B  |`  Y ) `
 k )  =  ( B `  k
) )
495493, 494eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( f  =  ( B  |`  Y )  /\  k  e.  Y )  ->  (
f `  k )  =  ( B `  k ) )
496495oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( f  =  ( B  |`  Y )  /\  k  e.  Y )  ->  (
( A `  k
) [,) ( f `
 k ) )  =  ( ( A `
 k ) [,) ( B `  k
) ) )
497496ixpeq2dva 7923 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( f  =  ( B  |`  Y )  ->  X_ k  e.  Y  ( ( A `  k ) [,) ( f `  k
) )  =  X_ k  e.  Y  (
( A `  k
) [,) ( B `
 k ) ) )
498497sseq1d 3632 . . . . . . . . . . . . . . . . . . . . 21  |-  ( f  =  ( B  |`  Y )  ->  ( X_ k  e.  Y  ( ( A `  k
) [,) ( f `
 k ) ) 
C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `  j ) `  k
) [,) ( ( h `  j ) `
 k ) )  <->  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
) ) )
499 oveq2 6658 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( f  =  ( B  |`  Y )  ->  (
( A  |`  Y ) ( L `  Y
) f )  =  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
) )
500499breq1d 4663 . . . . . . . . . . . . . . . . . . . . 21  |-  ( f  =  ( B  |`  Y )  ->  (
( ( A  |`  Y ) ( L `
 Y ) f )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) )  <->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )
501498, 500imbi12d 334 . . . . . . . . . . . . . . . . . . . 20  |-  ( f  =  ( B  |`  Y )  ->  (
( X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) )  <->  ( X_ k  e.  Y  (
( A `  k
) [,) ( B `
 k ) ) 
C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `  j ) `  k
) [,) ( ( h `  j ) `
 k ) )  ->  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) ) )
502501ralbidv 2986 . . . . . . . . . . . . . . . . . . 19  |-  ( f  =  ( B  |`  Y )  ->  ( A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) )  <->  A. h  e.  ( ( RR  ^m  Y )  ^m  NN ) ( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) )  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) ) )
503502ralbidv 2986 . . . . . . . . . . . . . . . . . 18  |-  ( f  =  ( B  |`  Y )  ->  ( A. g  e.  (
( RR  ^m  Y
)  ^m  NN ) A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) )  <->  A. g  e.  ( ( RR  ^m  Y )  ^m  NN ) A. h  e.  ( ( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) ) )
504503rspcva 3307 . . . . . . . . . . . . . . . . 17  |-  ( ( ( B  |`  Y )  e.  ( RR  ^m  Y )  /\  A. f  e.  ( RR  ^m  Y ) A. g  e.  ( ( RR  ^m  Y )  ^m  NN ) A. h  e.  ( ( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) (
f `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) f )  <_  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) ) ) )  ->  A. g  e.  ( ( RR  ^m  Y
)  ^m  NN ) A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )
505473, 491, 504syl2anc 693 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  A. g  e.  ( ( RR  ^m  Y
)  ^m  NN ) A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )
506 fveq1 6190 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( g  =  J  ->  (
g `  j )  =  ( J `  j ) )
507506fveq1d 6193 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( g  =  J  ->  (
( g `  j
) `  k )  =  ( ( J `
 j ) `  k ) )
508507oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( g  =  J  ->  (
( ( g `  j ) `  k
) [,) ( ( h `  j ) `
 k ) )  =  ( ( ( J `  j ) `
 k ) [,) ( ( h `  j ) `  k
) ) )
509508ixpeq2dv 7924 . . . . . . . . . . . . . . . . . . . . 21  |-  ( g  =  J  ->  X_ k  e.  Y  ( (
( g `  j
) `  k ) [,) ( ( h `  j ) `  k
) )  =  X_ k  e.  Y  (
( ( J `  j ) `  k
) [,) ( ( h `  j ) `
 k ) ) )
510509iuneq2d 4547 . . . . . . . . . . . . . . . . . . . 20  |-  ( g  =  J  ->  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  =  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( h `  j
) `  k )
) )
511510sseq2d 3633 . . . . . . . . . . . . . . . . . . 19  |-  ( g  =  J  ->  ( X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) 
C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `  j ) `  k
) [,) ( ( h `  j ) `
 k ) )  <->  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( h `  j
) `  k )
) ) )
512506oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( g  =  J  ->  (
( g `  j
) ( L `  Y ) ( h `
 j ) )  =  ( ( J `
 j ) ( L `  Y ) ( h `  j
) ) )
513512mpteq2dv 4745 . . . . . . . . . . . . . . . . . . . . 21  |-  ( g  =  J  ->  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) )  =  ( j  e.  NN  |->  ( ( J `  j ) ( L `  Y
) ( h `  j ) ) ) )
514513fveq2d 6195 . . . . . . . . . . . . . . . . . . . 20  |-  ( g  =  J  ->  (Σ^ `  (
j  e.  NN  |->  ( ( g `  j
) ( L `  Y ) ( h `
 j ) ) ) )  =  (Σ^ `  (
j  e.  NN  |->  ( ( J `  j
) ( L `  Y ) ( h `
 j ) ) ) ) )
515514breq2d 4665 . . . . . . . . . . . . . . . . . . 19  |-  ( g  =  J  ->  (
( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) )  <->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )
516511, 515imbi12d 334 . . . . . . . . . . . . . . . . . 18  |-  ( g  =  J  ->  (
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) )  <-> 
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) ) )
517516ralbidv 2986 . . . . . . . . . . . . . . . . 17  |-  ( g  =  J  ->  ( A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) )  <->  A. h  e.  (
( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) ) )
518517rspcva 3307 . . . . . . . . . . . . . . . 16  |-  ( ( J  e.  ( ( RR  ^m  Y )  ^m  NN )  /\  A. g  e.  ( ( RR  ^m  Y )  ^m  NN ) A. h  e.  ( ( RR  ^m  Y )  ^m  NN ) ( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) )  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( g `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( g `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )  ->  A. h  e.  ( ( RR  ^m  Y )  ^m  NN ) ( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k
) )  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )
519471, 505, 518syl2anc 693 . . . . . . . . . . . . . . 15  |-  ( ph  ->  A. h  e.  ( ( RR  ^m  Y
)  ^m  NN )
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )
520 fveq1 6190 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( h  =  K  ->  (
h `  j )  =  ( K `  j ) )
521520fveq1d 6193 . . . . . . . . . . . . . . . . . . . . 21  |-  ( h  =  K  ->  (
( h `  j
) `  k )  =  ( ( K `
 j ) `  k ) )
522521oveq2d 6666 . . . . . . . . . . . . . . . . . . . 20  |-  ( h  =  K  ->  (
( ( J `  j ) `  k
) [,) ( ( h `  j ) `
 k ) )  =  ( ( ( J `  j ) `
 k ) [,) ( ( K `  j ) `  k
) ) )
523522ixpeq2dv 7924 . . . . . . . . . . . . . . . . . . 19  |-  ( h  =  K  ->  X_ k  e.  Y  ( (
( J `  j
) `  k ) [,) ( ( h `  j ) `  k
) )  =  X_ k  e.  Y  (
( ( J `  j ) `  k
) [,) ( ( K `  j ) `
 k ) ) )
524523iuneq2d 4547 . . . . . . . . . . . . . . . . . 18  |-  ( h  =  K  ->  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  =  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
) )
525524sseq2d 3633 . . . . . . . . . . . . . . . . 17  |-  ( h  =  K  ->  ( X_ k  e.  Y  ( ( A `  k
) [,) ( B `
 k ) ) 
C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `  j ) `  k
) [,) ( ( h `  j ) `
 k ) )  <->  X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
) ) )
526520oveq2d 6666 . . . . . . . . . . . . . . . . . . . 20  |-  ( h  =  K  ->  (
( J `  j
) ( L `  Y ) ( h `
 j ) )  =  ( ( J `
 j ) ( L `  Y ) ( K `  j
) ) )
527526mpteq2dv 4745 . . . . . . . . . . . . . . . . . . 19  |-  ( h  =  K  ->  (
j  e.  NN  |->  ( ( J `  j
) ( L `  Y ) ( h `
 j ) ) )  =  ( j  e.  NN  |->  ( ( J `  j ) ( L `  Y
) ( K `  j ) ) ) )
528527fveq2d 6195 . . . . . . . . . . . . . . . . . 18  |-  ( h  =  K  ->  (Σ^ `  (
j  e.  NN  |->  ( ( J `  j
) ( L `  Y ) ( h `
 j ) ) ) )  =  (Σ^ `  (
j  e.  NN  |->  ( ( J `  j
) ( L `  Y ) ( K `
 j ) ) ) ) )
529528breq2d 4665 . . . . . . . . . . . . . . . . 17  |-  ( h  =  K  ->  (
( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( h `  j ) ) ) )  <->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) ) ) )
530525, 529imbi12d 334 . . . . . . . . . . . . . . . 16  |-  ( h  =  K  ->  (
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( h `  j ) ) ) ) )  <-> 
( X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) ) ) ) )
531530rspcva 3307 . . . . . . . . . . . . . . 15  |-  ( ( K  e.  ( ( RR  ^m  Y )  ^m  NN )  /\  A. h  e.  ( ( RR  ^m  Y )  ^m  NN ) (
X_ k  e.  Y  ( ( A `  k ) [,) ( B `  k )
)  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( h `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( h `  j ) ) ) ) ) )  ->  ( X_ k  e.  Y  (
( A `  k
) [,) ( B `
 k ) ) 
C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `  j ) `  k
) [,) ( ( K `  j ) `
 k ) )  ->  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) ) ) )
532469, 519, 531syl2anc 693 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( X_ k  e.  Y  ( ( A `
 k ) [,) ( B `  k
) )  C_  U_ j  e.  NN  X_ k  e.  Y  ( ( ( J `
 j ) `  k ) [,) (
( K `  j
) `  k )
)  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) ) ) )
533465, 532mpd 15 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) ) )
534 idd 24 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) )  -> 
( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) ) ) )
535533, 534mpd 15 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( A  |`  Y ) ( L `
 Y ) ( B  |`  Y )
)  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) ) )
536535adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) ) )
53741adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  j  e.  NN )  ->  ( P `  j )  =  ( ( J `
 j ) ( L `  Y ) ( K `  j
) ) )
538537mpteq2dva 4744 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( j  e.  NN  |->  ( P `  j ) )  =  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) )
539538fveq2d 6195 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  (/) )  ->  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  =  (Σ^ `  (
j  e.  NN  |->  ( ( J `  j
) ( L `  Y ) ( K `
 j ) ) ) ) )
540249, 539breq12d 4666 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( G  <_  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  <->  ( ( A  |`  Y ) ( L `  Y ) ( B  |`  Y ) )  <_  (Σ^ `  ( j  e.  NN  |->  ( ( J `  j ) ( L `
 Y ) ( K `  j ) ) ) ) ) )
541536, 540mpbird 247 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =/=  (/) )  ->  G  <_  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) ) )
542541adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  e.  RR )  ->  G  <_  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) ) )
543238, 240, 241, 281, 542ltletrd 10197 . . . . . . . 8  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) )  e.  RR )  ->  ( G  / 
( 1  +  E
) )  <  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) ) )
544226, 237, 543syl2anc 693 . . . . . . 7  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  -.  (Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) )  = +oo )  ->  ( G  / 
( 1  +  E
) )  <  (Σ^ `  (
j  e.  NN  |->  ( P `  j ) ) ) )
545225, 544pm2.61dan 832 . . . . . 6  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( G  /  ( 1  +  E ) )  < 
(Σ^ `  ( j  e.  NN  |->  ( P `  j ) ) ) )
546196, 197, 198, 199, 218, 545sge0uzfsumgt 40661 . . . . 5  |-  ( (
ph  /\  Y  =/=  (/) )  ->  E. m  e.  NN  ( G  / 
( 1  +  E
) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )
547217adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )  ->  ( G  /  ( 1  +  E ) )  e.  RR )
548 fzfid 12772 . . . . . . . . . . . . 13  |-  ( ph  ->  ( 1 ... m
)  e.  Fin )
549 simpl 473 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  ( 1 ... m
) )  ->  ph )
550 elfznn 12370 . . . . . . . . . . . . . . 15  |-  ( j  e.  ( 1 ... m )  ->  j  e.  NN )
551550adantl 482 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  ( 1 ... m
) )  ->  j  e.  NN )
55228, 114sseldi 3601 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  NN )  ->  ( P `
 j )  e.  RR )
553549, 551, 552syl2anc 693 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 1 ... m
) )  ->  ( P `  j )  e.  RR )
554548, 553fsumrecl 14465 . . . . . . . . . . . 12  |-  ( ph  -> 
sum_ j  e.  ( 1 ... m ) ( P `  j
)  e.  RR )
555554adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )  ->  sum_ j  e.  ( 1 ... m
) ( P `  j )  e.  RR )
556 simpr 477 . . . . . . . . . . 11  |-  ( (
ph  /\  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )  ->  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )
557547, 555, 556ltled 10185 . . . . . . . . . 10  |-  ( (
ph  /\  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )  ->  ( G  /  ( 1  +  E ) )  <_  sum_ j  e.  ( 1 ... m ) ( P `  j ) )
558207adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )  ->  G  e.  RR )
559213adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )  ->  ( 1  +  E )  e.  RR+ )
560558, 555, 559ledivmuld 11925 . . . . . . . . . 10  |-  ( (
ph  /\  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )  ->  ( ( G  /  ( 1  +  E ) )  <_  sum_ j  e.  ( 1 ... m ) ( P `  j )  <-> 
G  <_  ( (
1  +  E )  x.  sum_ j  e.  ( 1 ... m ) ( P `  j
) ) ) )
561557, 560mpbid 222 . . . . . . . . 9  |-  ( (
ph  /\  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j ) )  ->  G  <_  ( ( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )
562561ex 450 . . . . . . . 8  |-  ( ph  ->  ( ( G  / 
( 1  +  E
) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j )  ->  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) ) )
563562adantr 481 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j
)  ->  G  <_  ( ( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) ) )
564563adantlr 751 . . . . . 6  |-  ( ( ( ph  /\  Y  =/=  (/) )  /\  m  e.  NN )  ->  (
( G  /  (
1  +  E ) )  <  sum_ j  e.  ( 1 ... m
) ( P `  j )  ->  G  <_  ( ( 1  +  E )  x.  sum_ j  e.  ( 1 ... m ) ( P `  j ) ) ) )
565564reximdva 3017 . . . . 5  |-  ( (
ph  /\  Y  =/=  (/) )  ->  ( E. m  e.  NN  ( G  /  ( 1  +  E ) )  <  sum_ j  e.  ( 1 ... m ) ( P `  j )  ->  E. m  e.  NN  G  <_  ( ( 1  +  E )  x. 
sum_ j  e.  ( 1 ... m ) ( P `  j
) ) ) )
566546, 565mpd 15 . . . 4  |-  ( (
ph  /\  Y  =/=  (/) )  ->  E. m  e.  NN  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )
567193, 195, 566syl2anc 693 . . 3  |-  ( (
ph  /\  -.  Y  =  (/) )  ->  E. m  e.  NN  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )
568192, 567pm2.61dan 832 . 2  |-  ( ph  ->  E. m  e.  NN  G  <_  ( ( 1  +  E )  x. 
sum_ j  e.  ( 1 ... m ) ( P `  j
) ) )
569433ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  X  e.  Fin )
570463ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  Y  C_  X
)
571473ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  Z  e.  ( X  \  Y ) )
5722003ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  A : W --> RR )
5732033ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  B : W --> RR )
574623ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  C : NN --> ( RR  ^m  W ) )
575 eqid 2622 . . . . 5  |-  ( y  e.  Y  |->  0 )  =  ( y  e.  Y  |->  0 )
576 eqid 2622 . . . . 5  |-  ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) )  =  ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) )
577953ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  D : NN --> ( RR  ^m  W ) )
578 eqid 2622 . . . . 5  |-  ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) )  =  ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) )
579 fveq2 6191 . . . . . . . . . 10  |-  ( i  =  j  ->  ( C `  i )  =  ( C `  j ) )
580 fveq2 6191 . . . . . . . . . 10  |-  ( i  =  j  ->  ( D `  i )  =  ( D `  j ) )
581579, 580oveq12d 6668 . . . . . . . . 9  |-  ( i  =  j  ->  (
( C `  i
) ( L `  W ) ( D `
 i ) )  =  ( ( C `
 j ) ( L `  W ) ( D `  j
) ) )
582581cbvmptv 4750 . . . . . . . 8  |-  ( i  e.  NN  |->  ( ( C `  i ) ( L `  W
) ( D `  i ) ) )  =  ( j  e.  NN  |->  ( ( C `
 j ) ( L `  W ) ( D `  j
) ) )
583582fveq2i 6194 . . . . . . 7  |-  (Σ^ `  ( i  e.  NN  |->  ( ( C `  i ) ( L `
 W ) ( D `  i ) ) ) )  =  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( D `  j ) ) ) )
584 hoidmvlelem3.r . . . . . . 7  |-  ( ph  ->  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( D `  j ) ) ) )  e.  RR )
585583, 584syl5eqel 2705 . . . . . 6  |-  ( ph  ->  (Σ^ `  ( i  e.  NN  |->  ( ( C `  i ) ( L `
 W ) ( D `  i ) ) ) )  e.  RR )
5865853ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  (Σ^ `  ( i  e.  NN  |->  ( ( C `  i ) ( L `
 W ) ( D `  i ) ) ) )  e.  RR )
587 hoidmvlelem3.h . . . . . 6  |-  H  =  ( x  e.  RR  |->  ( c  e.  ( RR  ^m  W ) 
|->  ( j  e.  W  |->  if ( j  e.  Y ,  ( c `
 j ) ,  if ( ( c `
 j )  <_  x ,  ( c `  j ) ,  x
) ) ) ) )
588 eleq1 2689 . . . . . . . . . 10  |-  ( j  =  i  ->  (
j  e.  Y  <->  i  e.  Y ) )
589 fveq2 6191 . . . . . . . . . 10  |-  ( j  =  i  ->  (
c `  j )  =  ( c `  i ) )
590589breq1d 4663 . . . . . . . . . . 11  |-  ( j  =  i  ->  (
( c `  j
)  <_  x  <->  ( c `  i )  <_  x
) )
591590, 589ifbieq1d 4109 . . . . . . . . . 10  |-  ( j  =  i  ->  if ( ( c `  j )  <_  x ,  ( c `  j ) ,  x
)  =  if ( ( c `  i
)  <_  x , 
( c `  i
) ,  x ) )
592588, 589, 591ifbieq12d 4113 . . . . . . . . 9  |-  ( j  =  i  ->  if ( j  e.  Y ,  ( c `  j ) ,  if ( ( c `  j )  <_  x ,  ( c `  j ) ,  x
) )  =  if ( i  e.  Y ,  ( c `  i ) ,  if ( ( c `  i )  <_  x ,  ( c `  i ) ,  x
) ) )
593592cbvmptv 4750 . . . . . . . 8  |-  ( j  e.  W  |->  if ( j  e.  Y , 
( c `  j
) ,  if ( ( c `  j
)  <_  x , 
( c `  j
) ,  x ) ) )  =  ( i  e.  W  |->  if ( i  e.  Y ,  ( c `  i ) ,  if ( ( c `  i )  <_  x ,  ( c `  i ) ,  x
) ) )
594593mpteq2i 4741 . . . . . . 7  |-  ( c  e.  ( RR  ^m  W )  |->  ( j  e.  W  |->  if ( j  e.  Y , 
( c `  j
) ,  if ( ( c `  j
)  <_  x , 
( c `  j
) ,  x ) ) ) )  =  ( c  e.  ( RR  ^m  W ) 
|->  ( i  e.  W  |->  if ( i  e.  Y ,  ( c `
 i ) ,  if ( ( c `
 i )  <_  x ,  ( c `  i ) ,  x
) ) ) )
595594mpteq2i 4741 . . . . . 6  |-  ( x  e.  RR  |->  ( c  e.  ( RR  ^m  W )  |->  ( j  e.  W  |->  if ( j  e.  Y , 
( c `  j
) ,  if ( ( c `  j
)  <_  x , 
( c `  j
) ,  x ) ) ) ) )  =  ( x  e.  RR  |->  ( c  e.  ( RR  ^m  W
)  |->  ( i  e.  W  |->  if ( i  e.  Y ,  ( c `  i ) ,  if ( ( c `  i )  <_  x ,  ( c `  i ) ,  x ) ) ) ) )
596587, 595eqtri 2644 . . . . 5  |-  H  =  ( x  e.  RR  |->  ( c  e.  ( RR  ^m  W ) 
|->  ( i  e.  W  |->  if ( i  e.  Y ,  ( c `
 i ) ,  if ( ( c `
 i )  <_  x ,  ( c `  i ) ,  x
) ) ) ) )
5971723ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  E  e.  RR+ )
598 fveq2 6191 . . . . . . . . . . . . 13  |-  ( j  =  i  ->  ( C `  j )  =  ( C `  i ) )
599 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( j  =  i  ->  ( D `  j )  =  ( D `  i ) )
600599fveq2d 6195 . . . . . . . . . . . . 13  |-  ( j  =  i  ->  (
( H `  z
) `  ( D `  j ) )  =  ( ( H `  z ) `  ( D `  i )
) )
601598, 600oveq12d 6668 . . . . . . . . . . . 12  |-  ( j  =  i  ->  (
( C `  j
) ( L `  W ) ( ( H `  z ) `
 ( D `  j ) ) )  =  ( ( C `
 i ) ( L `  W ) ( ( H `  z ) `  ( D `  i )
) ) )
602601cbvmptv 4750 . . . . . . . . . . 11  |-  ( j  e.  NN  |->  ( ( C `  j ) ( L `  W
) ( ( H `
 z ) `  ( D `  j ) ) ) )  =  ( i  e.  NN  |->  ( ( C `  i ) ( L `
 W ) ( ( H `  z
) `  ( D `  i ) ) ) )
603602fveq2i 6194 . . . . . . . . . 10  |-  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( ( H `  z
) `  ( D `  j ) ) ) ) )  =  (Σ^ `  (
i  e.  NN  |->  ( ( C `  i
) ( L `  W ) ( ( H `  z ) `
 ( D `  i ) ) ) ) )
604603oveq2i 6661 . . . . . . . . 9  |-  ( ( 1  +  E )  x.  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( ( H `  z
) `  ( D `  j ) ) ) ) ) )  =  ( ( 1  +  E )  x.  (Σ^ `  (
i  e.  NN  |->  ( ( C `  i
) ( L `  W ) ( ( H `  z ) `
 ( D `  i ) ) ) ) ) )
605604breq2i 4661 . . . . . . . 8  |-  ( ( G  x.  ( z  -  ( A `  Z ) ) )  <_  ( ( 1  +  E )  x.  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( ( H `  z
) `  ( D `  j ) ) ) ) ) )  <->  ( G  x.  ( z  -  ( A `  Z )
) )  <_  (
( 1  +  E
)  x.  (Σ^ `  ( i  e.  NN  |->  ( ( C `  i ) ( L `
 W ) ( ( H `  z
) `  ( D `  i ) ) ) ) ) ) )
606605a1i 11 . . . . . . 7  |-  ( z  e.  ( ( A `
 Z ) [,] ( B `  Z
) )  ->  (
( G  x.  (
z  -  ( A `
 Z ) ) )  <_  ( (
1  +  E )  x.  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( ( H `  z
) `  ( D `  j ) ) ) ) ) )  <->  ( G  x.  ( z  -  ( A `  Z )
) )  <_  (
( 1  +  E
)  x.  (Σ^ `  ( i  e.  NN  |->  ( ( C `  i ) ( L `
 W ) ( ( H `  z
) `  ( D `  i ) ) ) ) ) ) ) )
607606rabbiia 3185 . . . . . 6  |-  { z  e.  ( ( A `
 Z ) [,] ( B `  Z
) )  |  ( G  x.  ( z  -  ( A `  Z ) ) )  <_  ( ( 1  +  E )  x.  (Σ^ `  ( j  e.  NN  |->  ( ( C `  j ) ( L `
 W ) ( ( H `  z
) `  ( D `  j ) ) ) ) ) ) }  =  { z  e.  ( ( A `  Z ) [,] ( B `  Z )
)  |  ( G  x.  ( z  -  ( A `  Z ) ) )  <_  (
( 1  +  E
)  x.  (Σ^ `  ( i  e.  NN  |->  ( ( C `  i ) ( L `
 W ) ( ( H `  z
) `  ( D `  i ) ) ) ) ) ) }
608337, 607eqtri 2644 . . . . 5  |-  U  =  { z  e.  ( ( A `  Z
) [,] ( B `
 Z ) )  |  ( G  x.  ( z  -  ( A `  Z )
) )  <_  (
( 1  +  E
)  x.  (Σ^ `  ( i  e.  NN  |->  ( ( C `  i ) ( L `
 W ) ( ( H `  z
) `  ( D `  i ) ) ) ) ) ) }
6092853ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  S  e.  U
)
6103443ad2ant1 1082 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  S  <  ( B `  Z )
)
611 eqid 2622 . . . . 5  |-  ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) )  =  ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) )
612 simp2 1062 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  m  e.  NN )
613 id 22 . . . . . . . 8  |-  ( G  <_  ( ( 1  +  E )  x. 
sum_ j  e.  ( 1 ... m ) ( P `  j
) )  ->  G  <_  ( ( 1  +  E )  x.  sum_ j  e.  ( 1 ... m ) ( P `  j ) ) )
614 fveq2 6191 . . . . . . . . . . 11  |-  ( j  =  i  ->  ( P `  j )  =  ( P `  i ) )
615614cbvsumv 14426 . . . . . . . . . 10  |-  sum_ j  e.  ( 1 ... m
) ( P `  j )  =  sum_ i  e.  ( 1 ... m ) ( P `  i )
616615oveq2i 6661 . . . . . . . . 9  |-  ( ( 1  +  E )  x.  sum_ j  e.  ( 1 ... m ) ( P `  j
) )  =  ( ( 1  +  E
)  x.  sum_ i  e.  ( 1 ... m
) ( P `  i ) )
617616a1i 11 . . . . . . . 8  |-  ( G  <_  ( ( 1  +  E )  x. 
sum_ j  e.  ( 1 ... m ) ( P `  j
) )  ->  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) )  =  ( ( 1  +  E )  x.  sum_ i  e.  ( 1 ... m ) ( P `  i ) ) )
618613, 617breqtrd 4679 . . . . . . 7  |-  ( G  <_  ( ( 1  +  E )  x. 
sum_ j  e.  ( 1 ... m ) ( P `  j
) )  ->  G  <_  ( ( 1  +  E )  x.  sum_ i  e.  ( 1 ... m ) ( P `  i ) ) )
6196183ad2ant3 1084 . . . . . 6  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  G  <_  (
( 1  +  E
)  x.  sum_ i  e.  ( 1 ... m
) ( P `  i ) ) )
620 simpl 473 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 1 ... m
) )  ->  ph )
621 elfznn 12370 . . . . . . . . . . 11  |-  ( i  e.  ( 1 ... m )  ->  i  e.  NN )
622621adantl 482 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 1 ... m
) )  ->  i  e.  NN )
623 eleq1 2689 . . . . . . . . . . . . . . 15  |-  ( j  =  i  ->  (
j  e.  NN  <->  i  e.  NN ) )
624 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( j  =  i  ->  ( J `  j )  =  ( J `  i ) )
625 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( j  =  i  ->  ( K `  j )  =  ( K `  i ) )
626624, 625oveq12d 6668 . . . . . . . . . . . . . . . 16  |-  ( j  =  i  ->  (
( J `  j
) ( L `  Y ) ( K `
 j ) )  =  ( ( J `
 i ) ( L `  Y ) ( K `  i
) ) )
627614, 626eqeq12d 2637 . . . . . . . . . . . . . . 15  |-  ( j  =  i  ->  (
( P `  j
)  =  ( ( J `  j ) ( L `  Y
) ( K `  j ) )  <->  ( P `  i )  =  ( ( J `  i
) ( L `  Y ) ( K `
 i ) ) ) )
628623, 627imbi12d 334 . . . . . . . . . . . . . 14  |-  ( j  =  i  ->  (
( j  e.  NN  ->  ( P `  j
)  =  ( ( J `  j ) ( L `  Y
) ( K `  j ) ) )  <-> 
( i  e.  NN  ->  ( P `  i
)  =  ( ( J `  i ) ( L `  Y
) ( K `  i ) ) ) ) )
629628, 41chvarv 2263 . . . . . . . . . . . . 13  |-  ( i  e.  NN  ->  ( P `  i )  =  ( ( J `
 i ) ( L `  Y ) ( K `  i
) ) )
630629adantl 482 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  NN )  ->  ( P `
 i )  =  ( ( J `  i ) ( L `
 Y ) ( K `  i ) ) )
631623anbi2d 740 . . . . . . . . . . . . . . 15  |-  ( j  =  i  ->  (
( ph  /\  j  e.  NN )  <->  ( ph  /\  i  e.  NN ) ) )
632598fveq1d 6193 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  i  ->  (
( C `  j
) `  Z )  =  ( ( C `
 i ) `  Z ) )
633599fveq1d 6193 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  i  ->  (
( D `  j
) `  Z )  =  ( ( D `
 i ) `  Z ) )
634632, 633oveq12d 6668 . . . . . . . . . . . . . . . . . 18  |-  ( j  =  i  ->  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) )  =  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) )
635634eleq2d 2687 . . . . . . . . . . . . . . . . 17  |-  ( j  =  i  ->  ( S  e.  ( (
( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) )  <->  S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ) )
636598reseq1d 5395 . . . . . . . . . . . . . . . . 17  |-  ( j  =  i  ->  (
( C `  j
)  |`  Y )  =  ( ( C `  i )  |`  Y ) )
637635, 636ifbieq1d 4109 . . . . . . . . . . . . . . . 16  |-  ( j  =  i  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( C `
 j )  |`  Y ) ,  F
)  =  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  F ) )
638624, 637eqeq12d 2637 . . . . . . . . . . . . . . 15  |-  ( j  =  i  ->  (
( J `  j
)  =  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( C `  j
)  |`  Y ) ,  F )  <->  ( J `  i )  =  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  F
) ) )
639631, 638imbi12d 334 . . . . . . . . . . . . . 14  |-  ( j  =  i  ->  (
( ( ph  /\  j  e.  NN )  ->  ( J `  j
)  =  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( C `  j
)  |`  Y ) ,  F ) )  <->  ( ( ph  /\  i  e.  NN )  ->  ( J `  i )  =  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  F
) ) ) )
640639, 149chvarv 2263 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  NN )  ->  ( J `
 i )  =  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( C `  i )  |`  Y ) ,  F
) )
641599reseq1d 5395 . . . . . . . . . . . . . . . . 17  |-  ( j  =  i  ->  (
( D `  j
)  |`  Y )  =  ( ( D `  i )  |`  Y ) )
642635, 641ifbieq1d 4109 . . . . . . . . . . . . . . . 16  |-  ( j  =  i  ->  if ( S  e.  (
( ( C `  j ) `  Z
) [,) ( ( D `  j ) `
 Z ) ) ,  ( ( D `
 j )  |`  Y ) ,  F
)  =  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  F ) )
643625, 642eqeq12d 2637 . . . . . . . . . . . . . . 15  |-  ( j  =  i  ->  (
( K `  j
)  =  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( D `  j
)  |`  Y ) ,  F )  <->  ( K `  i )  =  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  F
) ) )
644631, 643imbi12d 334 . . . . . . . . . . . . . 14  |-  ( j  =  i  ->  (
( ( ph  /\  j  e.  NN )  ->  ( K `  j
)  =  if ( S  e.  ( ( ( C `  j
) `  Z ) [,) ( ( D `  j ) `  Z
) ) ,  ( ( D `  j
)  |`  Y ) ,  F ) )  <->  ( ( ph  /\  i  e.  NN )  ->  ( K `  i )  =  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  F
) ) ) )
645644, 440chvarv 2263 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  NN )  ->  ( K `
 i )  =  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( D `  i )  |`  Y ) ,  F
) )
646640, 645oveq12d 6668 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  NN )  ->  ( ( J `  i ) ( L `  Y
) ( K `  i ) )  =  ( if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  F ) ( L `
 Y ) if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  F
) ) )
647630, 646eqtrd 2656 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  NN )  ->  ( P `
 i )  =  ( if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  F ) ( L `
 Y ) if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  F
) ) )
648 simpr 477 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  NN )  ->  i  e.  NN )
649 ovexd 6680 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  NN )  ->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) )  e. 
_V )
650611fvmpt2 6291 . . . . . . . . . . . . 13  |-  ( ( i  e.  NN  /\  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i ) ( L `  Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i ) )  e.  _V )  -> 
( ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) ) `
 i )  =  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i ) ( L `  Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i ) ) )
651648, 649, 650syl2anc 693 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  NN )  ->  ( ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i ) ( L `  Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i ) ) ) `  i )  =  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) )
652 fvex 6201 . . . . . . . . . . . . . . . . . . 19  |-  ( C `
 i )  e. 
_V
653652resex 5443 . . . . . . . . . . . . . . . . . 18  |-  ( ( C `  i )  |`  Y )  e.  _V
654653a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( C `  i )  |`  Y )  e.  _V )
65580, 143syl5eqelr 2706 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( y  e.  Y  |->  0 )  e.  _V )
656654, 655ifcld 4131 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( C `  i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  e.  _V )
657656adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  NN )  ->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  e. 
_V )
658576fvmpt2 6291 . . . . . . . . . . . . . . 15  |-  ( ( i  e.  NN  /\  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  e.  _V )  ->  ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i )  =  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( C `  i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) )
659648, 657, 658syl2anc 693 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  NN )  ->  ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i )  =  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) )
66080eqcomi 2631 . . . . . . . . . . . . . . . 16  |-  ( y  e.  Y  |->  0 )  =  F
661 ifeq2 4091 . . . . . . . . . . . . . . . 16  |-  ( ( y  e.  Y  |->  0 )  =  F  ->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  =  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  F
) )
662660, 661ax-mp 5 . . . . . . . . . . . . . . 15  |-  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  =  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( C `  i )  |`  Y ) ,  F
)
663662a1i 11 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  NN )  ->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  =  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( C `  i )  |`  Y ) ,  F
) )
664659, 663eqtrd 2656 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  NN )  ->  ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i )  =  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  F
) )
665 fvex 6201 . . . . . . . . . . . . . . . . . . 19  |-  ( D `
 i )  e. 
_V
666665resex 5443 . . . . . . . . . . . . . . . . . 18  |-  ( ( D `  i )  |`  Y )  e.  _V
667666a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( D `  i )  |`  Y )  e.  _V )
668667, 655ifcld 4131 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( D `  i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  e.  _V )
669668adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  NN )  ->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  e. 
_V )
670578fvmpt2 6291 . . . . . . . . . . . . . . 15  |-  ( ( i  e.  NN  /\  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  e.  _V )  ->  ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i )  =  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( D `  i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) )
671648, 669, 670syl2anc 693 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  NN )  ->  ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i )  =  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) )
672 biid 251 . . . . . . . . . . . . . . . 16  |-  ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) )  <->  S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) )
673672, 660ifbieq2i 4110 . . . . . . . . . . . . . . 15  |-  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  =  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( D `  i )  |`  Y ) ,  F
)
674673a1i 11 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  NN )  ->  if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) )  =  if ( S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ,  ( ( D `  i )  |`  Y ) ,  F
) )
675671, 674eqtrd 2656 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  NN )  ->  ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i )  =  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  F
) )
676664, 675oveq12d 6668 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  NN )  ->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) )  =  ( if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  F ) ( L `
 Y ) if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  F
) ) )
677651, 676eqtrd 2656 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  NN )  ->  ( ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i ) ( L `  Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( D `  i
)  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `
 i ) ) ) `  i )  =  ( if ( S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) ,  ( ( C `  i
)  |`  Y ) ,  F ) ( L `
 Y ) if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  F
) ) )
678647, 677eqtr4d 2659 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  NN )  ->  ( P `
 i )  =  ( ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) ) `
 i ) )
679620, 622, 678syl2anc 693 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 1 ... m
) )  ->  ( P `  i )  =  ( ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) ) `
 i ) )
6806793ad2antl1 1223 . . . . . . . 8  |-  ( ( ( ph  /\  m  e.  NN  /\  G  <_ 
( ( 1  +  E )  x.  sum_ j  e.  ( 1 ... m ) ( P `  j ) ) )  /\  i  e.  ( 1 ... m
) )  ->  ( P `  i )  =  ( ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) ) `
 i ) )
681680sumeq2dv 14433 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  sum_ i  e.  ( 1 ... m ) ( P `  i
)  =  sum_ i  e.  ( 1 ... m
) ( ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) ) `
 i ) )
682681oveq2d 6666 . . . . . 6  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  ( ( 1  +  E )  x. 
sum_ i  e.  ( 1 ... m ) ( P `  i
) )  =  ( ( 1  +  E
)  x.  sum_ i  e.  ( 1 ... m
) ( ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) ) `
 i ) ) )
683619, 682breqtrd 4679 . . . . 5  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  G  <_  (
( 1  +  E
)  x.  sum_ i  e.  ( 1 ... m
) ( ( i  e.  NN  |->  ( ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( C `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ( L `
 Y ) ( ( i  e.  NN  |->  if ( S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) ,  ( ( D `
 i )  |`  Y ) ,  ( y  e.  Y  |->  0 ) ) ) `  i ) ) ) `
 i ) ) )
684 fveq2 6191 . . . . . . . 8  |-  ( j  =  h  ->  ( D `  j )  =  ( D `  h ) )
685684fveq1d 6193 . . . . . . 7  |-  ( j  =  h  ->  (
( D `  j
) `  Z )  =  ( ( D `
 h ) `  Z ) )
686685cbvmptv 4750 . . . . . 6  |-  ( j  e.  { i  e.  ( 1 ... m
)  |  S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) }  |->  ( ( D `  j ) `
 Z ) )  =  ( h  e. 
{ i  e.  ( 1 ... m )  |  S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) }  |->  ( ( D `
 h ) `  Z ) )
687686rneqi 5352 . . . . 5  |-  ran  (
j  e.  { i  e.  ( 1 ... m )  |  S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) }  |->  ( ( D `  j ) `
 Z ) )  =  ran  ( h  e.  { i  e.  ( 1 ... m
)  |  S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) }  |->  ( ( D `  h ) `
 Z ) )
688 fveq2 6191 . . . . . . . . . . . 12  |-  ( h  =  i  ->  ( C `  h )  =  ( C `  i ) )
689688fveq1d 6193 . . . . . . . . . . 11  |-  ( h  =  i  ->  (
( C `  h
) `  Z )  =  ( ( C `
 i ) `  Z ) )
690 fveq2 6191 . . . . . . . . . . . 12  |-  ( h  =  i  ->  ( D `  h )  =  ( D `  i ) )
691690fveq1d 6193 . . . . . . . . . . 11  |-  ( h  =  i  ->  (
( D `  h
) `  Z )  =  ( ( D `
 i ) `  Z ) )
692689, 691oveq12d 6668 . . . . . . . . . 10  |-  ( h  =  i  ->  (
( ( C `  h ) `  Z
) [,) ( ( D `  h ) `
 Z ) )  =  ( ( ( C `  i ) `
 Z ) [,) ( ( D `  i ) `  Z
) ) )
693692eleq2d 2687 . . . . . . . . 9  |-  ( h  =  i  ->  ( S  e.  ( (
( C `  h
) `  Z ) [,) ( ( D `  h ) `  Z
) )  <->  S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) ) )
694693cbvrabv 3199 . . . . . . . 8  |-  { h  e.  ( 1 ... m
)  |  S  e.  ( ( ( C `
 h ) `  Z ) [,) (
( D `  h
) `  Z )
) }  =  {
i  e.  ( 1 ... m )  |  S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) }
695694mpteq1i 4739 . . . . . . 7  |-  ( j  e.  { h  e.  ( 1 ... m
)  |  S  e.  ( ( ( C `
 h ) `  Z ) [,) (
( D `  h
) `  Z )
) }  |->  ( ( D `  j ) `
 Z ) )  =  ( j  e. 
{ i  e.  ( 1 ... m )  |  S  e.  ( ( ( C `  i ) `  Z
) [,) ( ( D `  i ) `
 Z ) ) }  |->  ( ( D `
 j ) `  Z ) )
696695rneqi 5352 . . . . . 6  |-  ran  (
j  e.  { h  e.  ( 1 ... m
)  |  S  e.  ( ( ( C `
 h ) `  Z ) [,) (
( D `  h
) `  Z )
) }  |->  ( ( D `  j ) `
 Z ) )  =  ran  ( j  e.  { i  e.  ( 1 ... m
)  |  S  e.  ( ( ( C `
 i ) `  Z ) [,) (
( D `  i
) `  Z )
) }  |->  ( ( D `  j ) `
 Z ) )
697696uneq2i 3764 . . . . 5  |-  ( { ( B `  Z
) }  u.  ran  ( j  e.  {
h  e.  ( 1 ... m )  |  S  e.  ( ( ( C `  h
) `  Z ) [,) ( ( D `  h ) `  Z
) ) }  |->  ( ( D `  j
) `  Z )
) )  =  ( { ( B `  Z ) }  u.  ran  ( j  e.  {
i  e.  ( 1 ... m )  |  S  e.  ( ( ( C `  i
) `  Z ) [,) ( ( D `  i ) `  Z
) ) }  |->  ( ( D `  j
) `  Z )
) )
698 eqid 2622 . . . . 5  |- inf ( ( { ( B `  Z ) }  u.  ran  ( j  e.  {
h  e.  ( 1 ... m )  |  S  e.  ( ( ( C `  h
) `  Z ) [,) ( ( D `  h ) `  Z
) ) }  |->  ( ( D `  j
) `  Z )
) ) ,  RR ,  <  )  = inf (
( { ( B `
 Z ) }  u.  ran  ( j  e.  { h  e.  ( 1 ... m
)  |  S  e.  ( ( ( C `
 h ) `  Z ) [,) (
( D `  h
) `  Z )
) }  |->  ( ( D `  j ) `
 Z ) ) ) ,  RR ,  <  )
69918, 569, 570, 571, 44, 572, 573, 574, 575, 576, 577, 578, 586, 596, 5, 597, 608, 609, 610, 611, 612, 683, 687, 697, 698hoidmvlelem2 40810 . . . 4  |-  ( (
ph  /\  m  e.  NN  /\  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) ) )  ->  E. u  e.  U  S  <  u )
7006993exp 1264 . . 3  |-  ( ph  ->  ( m  e.  NN  ->  ( G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) )  ->  E. u  e.  U  S  <  u ) ) )
701700rexlimdv 3030 . 2  |-  ( ph  ->  ( E. m  e.  NN  G  <_  (
( 1  +  E
)  x.  sum_ j  e.  ( 1 ... m
) ( P `  j ) )  ->  E. u  e.  U  S  <  u ) )
702568, 701mpd 15 1  |-  ( ph  ->  E. u  e.  U  S  <  u )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990    =/= wne 2794   A.wral 2912   E.wrex 2913   {crab 2916   _Vcvv 3200    \ cdif 3571    u. cun 3572    C_ wss 3574   (/)c0 3915   ifcif 4086   {csn 4177   U_ciun 4520   class class class wbr 4653    |-> cmpt 4729   ran crn 5115    |` cres 5116    Fn wfn 5883   -->wf 5884   ` cfv 5888  (class class class)co 6650    |-> cmpt2 6652    ^m cmap 7857   X_cixp 7908   Fincfn 7955  infcinf 8347   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939    x. cmul 9941   +oocpnf 10071   RR*cxr 10073    < clt 10074    <_ cle 10075    - cmin 10266    / cdiv 10684   NNcn 11020   ZZcz 11377   RR+crp 11832   [,)cico 12177   [,]cicc 12178   ...cfz 12326   sum_csu 14416   prod_cprod 14635   volcvol 23232  Σ^csumge0 40579
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-pre-sup 10014
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-om 7066  df-1st 7168  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-2o 7561  df-oadd 7564  df-er 7742  df-map 7859  df-pm 7860  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fi 8317  df-sup 8348  df-inf 8349  df-oi 8415  df-card 8765  df-cda 8990  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-n0 11293  df-z 11378  df-uz 11688  df-q 11789  df-rp 11833  df-xneg 11946  df-xadd 11947  df-xmul 11948  df-ioo 12179  df-ico 12181  df-icc 12182  df-fz 12327  df-fzo 12466  df-fl 12593  df-seq 12802  df-exp 12861  df-hash 13118  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-clim 14219  df-rlim 14220  df-sum 14417  df-prod 14636  df-rest 16083  df-topgen 16104  df-psmet 19738  df-xmet 19739  df-met 19740  df-bl 19741  df-mopn 19742  df-top 20699  df-topon 20716  df-bases 20750  df-cmp 21190  df-ovol 23233  df-vol 23234  df-sumge0 40580
This theorem is referenced by:  hoidmvlelem4  40812
  Copyright terms: Public domain W3C validator