Users' Mathboxes Mathbox for Brendan Leahy < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  poimirlem3 Structured version   Visualization version   Unicode version

Theorem poimirlem3 33412
Description: Lemma for poimir 33442 to add an interior point to an admissible face on the back face of the cube. (Contributed by Brendan Leahy, 21-Aug-2020.)
Hypotheses
Ref Expression
poimir.0  |-  ( ph  ->  N  e.  NN )
poimirlem4.1  |-  ( ph  ->  K  e.  NN )
poimirlem4.2  |-  ( ph  ->  M  e.  NN0 )
poimirlem4.3  |-  ( ph  ->  M  <  N )
poimirlem3.4  |-  ( ph  ->  T : ( 1 ... M ) --> ( 0..^ K ) )
poimirlem3.5  |-  ( ph  ->  U : ( 1 ... M ) -1-1-onto-> ( 1 ... M ) )
Assertion
Ref Expression
poimirlem3  |-  ( ph  ->  ( A. i  e.  ( 0 ... M
) E. j  e.  ( 0 ... M
) i  =  [_ ( ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  /  p ]_ B  ->  ( <. ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) ,  ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
>.  e.  ( ( ( 0..^ K )  ^m  ( 1 ... ( M  +  1 ) ) )  X.  {
f  |  f : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) } )  /\  ( A. i  e.  ( 0 ... M ) E. j  e.  ( 0 ... M ) i  =  [_ (
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  /  p ]_ B  /\  ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 ( M  + 
1 ) )  =  0  /\  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) `
 ( M  + 
1 ) )  =  ( M  +  1 ) ) ) ) )
Distinct variable groups:    f, i,
j, p    ph, j    j, M    j, N    T, j    U, j    ph, i, p    B, f, i, j    f, K, i, j, p    f, M, i, p    f, N, i, p    T, f, i, p    U, f, i, p
Allowed substitution hints:    ph( f)    B( p)

Proof of Theorem poimirlem3
Dummy variable  n is distinct from all other variables.
StepHypRef Expression
1 poimirlem3.4 . . . . . . . . . . . . . . 15  |-  ( ph  ->  T : ( 1 ... M ) --> ( 0..^ K ) )
2 ffn 6045 . . . . . . . . . . . . . . 15  |-  ( T : ( 1 ... M ) --> ( 0..^ K )  ->  T  Fn  ( 1 ... M
) )
31, 2syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  T  Fn  ( 1 ... M ) )
43adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  T  Fn  ( 1 ... M
) )
5 1ex 10035 . . . . . . . . . . . . . . . . 17  |-  1  e.  _V
6 fnconstg 6093 . . . . . . . . . . . . . . . . 17  |-  ( 1  e.  _V  ->  (
( U " (
1 ... j ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... j ) ) )
75, 6ax-mp 5 . . . . . . . . . . . . . . . 16  |-  ( ( U " ( 1 ... j ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... j ) )
8 c0ex 10034 . . . . . . . . . . . . . . . . 17  |-  0  e.  _V
9 fnconstg 6093 . . . . . . . . . . . . . . . . 17  |-  ( 0  e.  _V  ->  (
( U " (
( j  +  1 ) ... M ) )  X.  { 0 } )  Fn  ( U " ( ( j  +  1 ) ... M ) ) )
108, 9ax-mp 5 . . . . . . . . . . . . . . . 16  |-  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } )  Fn  ( U
" ( ( j  +  1 ) ... M ) )
117, 10pm3.2i 471 . . . . . . . . . . . . . . 15  |-  ( ( ( U " (
1 ... j ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... j ) )  /\  ( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } )  Fn  ( U " (
( j  +  1 ) ... M ) ) )
12 poimirlem3.5 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  U : ( 1 ... M ) -1-1-onto-> ( 1 ... M ) )
13 dff1o3 6143 . . . . . . . . . . . . . . . . . 18  |-  ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M
)  <->  ( U :
( 1 ... M
) -onto-> ( 1 ... M )  /\  Fun  `' U ) )
1413simprbi 480 . . . . . . . . . . . . . . . . 17  |-  ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M
)  ->  Fun  `' U
)
15 imain 5974 . . . . . . . . . . . . . . . . 17  |-  ( Fun  `' U  ->  ( U
" ( ( 1 ... j )  i^i  ( ( j  +  1 ) ... M
) ) )  =  ( ( U "
( 1 ... j
) )  i^i  ( U " ( ( j  +  1 ) ... M ) ) ) )
1612, 14, 153syl 18 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( U " (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... M ) ) )  =  ( ( U " ( 1 ... j ) )  i^i  ( U "
( ( j  +  1 ) ... M
) ) ) )
17 elfznn0 12433 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  e.  ( 0 ... M )  ->  j  e.  NN0 )
1817nn0red 11352 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 0 ... M )  ->  j  e.  RR )
1918ltp1d 10954 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 0 ... M )  ->  j  <  ( j  +  1 ) )
20 fzdisj 12368 . . . . . . . . . . . . . . . . . . 19  |-  ( j  <  ( j  +  1 )  ->  (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... M ) )  =  (/) )
2119, 20syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( 0 ... M )  ->  (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... M ) )  =  (/) )
2221imaeq2d 5466 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  ( 0 ... M )  ->  ( U " ( ( 1 ... j )  i^i  ( ( j  +  1 ) ... M
) ) )  =  ( U " (/) ) )
23 ima0 5481 . . . . . . . . . . . . . . . . 17  |-  ( U
" (/) )  =  (/)
2422, 23syl6eq 2672 . . . . . . . . . . . . . . . 16  |-  ( j  e.  ( 0 ... M )  ->  ( U " ( ( 1 ... j )  i^i  ( ( j  +  1 ) ... M
) ) )  =  (/) )
2516, 24sylan9req 2677 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( U " (
1 ... j ) )  i^i  ( U "
( ( j  +  1 ) ... M
) ) )  =  (/) )
26 fnun 5997 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  Fn  ( U "
( 1 ... j
) )  /\  (
( U " (
( j  +  1 ) ... M ) )  X.  { 0 } )  Fn  ( U " ( ( j  +  1 ) ... M ) ) )  /\  ( ( U
" ( 1 ... j ) )  i^i  ( U " (
( j  +  1 ) ... M ) ) )  =  (/) )  ->  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) )  Fn  (
( U " (
1 ... j ) )  u.  ( U "
( ( j  +  1 ) ... M
) ) ) )
2711, 25, 26sylancr 695 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } ) )  Fn  ( ( U
" ( 1 ... j ) )  u.  ( U " (
( j  +  1 ) ... M ) ) ) )
28 imaundi 5545 . . . . . . . . . . . . . . . 16  |-  ( U
" ( ( 1 ... j )  u.  ( ( j  +  1 ) ... M
) ) )  =  ( ( U "
( 1 ... j
) )  u.  ( U " ( ( j  +  1 ) ... M ) ) )
29 nn0p1nn 11332 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( j  e.  NN0  ->  ( j  +  1 )  e.  NN )
30 nnuz 11723 . . . . . . . . . . . . . . . . . . . . . 22  |-  NN  =  ( ZZ>= `  1 )
3129, 30syl6eleq 2711 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  e.  NN0  ->  ( j  +  1 )  e.  ( ZZ>= `  1 )
)
3217, 31syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 0 ... M )  ->  (
j  +  1 )  e.  ( ZZ>= `  1
) )
33 elfzuz3 12339 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 0 ... M )  ->  M  e.  ( ZZ>= `  j )
)
34 fzsplit2 12366 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( j  +  1 )  e.  ( ZZ>= ` 
1 )  /\  M  e.  ( ZZ>= `  j )
)  ->  ( 1 ... M )  =  ( ( 1 ... j )  u.  (
( j  +  1 ) ... M ) ) )
3532, 33, 34syl2anc 693 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 0 ... M )  ->  (
1 ... M )  =  ( ( 1 ... j )  u.  (
( j  +  1 ) ... M ) ) )
3635eqcomd 2628 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( 0 ... M )  ->  (
( 1 ... j
)  u.  ( ( j  +  1 ) ... M ) )  =  ( 1 ... M ) )
3736imaeq2d 5466 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  ( 0 ... M )  ->  ( U " ( ( 1 ... j )  u.  ( ( j  +  1 ) ... M
) ) )  =  ( U " (
1 ... M ) ) )
38 f1ofo 6144 . . . . . . . . . . . . . . . . . 18  |-  ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M
)  ->  U :
( 1 ... M
) -onto-> ( 1 ... M ) )
39 foima 6120 . . . . . . . . . . . . . . . . . 18  |-  ( U : ( 1 ... M ) -onto-> ( 1 ... M )  -> 
( U " (
1 ... M ) )  =  ( 1 ... M ) )
4012, 38, 393syl 18 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( U " (
1 ... M ) )  =  ( 1 ... M ) )
4137, 40sylan9eqr 2678 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  ( U " ( ( 1 ... j )  u.  ( ( j  +  1 ) ... M
) ) )  =  ( 1 ... M
) )
4228, 41syl5eqr 2670 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( U " (
1 ... j ) )  u.  ( U "
( ( j  +  1 ) ... M
) ) )  =  ( 1 ... M
) )
4342fneq2d 5982 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } ) )  Fn  ( ( U " ( 1 ... j ) )  u.  ( U "
( ( j  +  1 ) ... M
) ) )  <->  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) )  Fn  (
1 ... M ) ) )
4427, 43mpbid 222 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } ) )  Fn  ( 1 ... M ) )
45 ovexd 6680 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
1 ... M )  e. 
_V )
46 inidm 3822 . . . . . . . . . . . . 13  |-  ( ( 1 ... M )  i^i  ( 1 ... M ) )  =  ( 1 ... M
)
47 eqidd 2623 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  e.  ( 1 ... M
) )  ->  ( T `  n )  =  ( T `  n ) )
48 eqidd 2623 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  e.  ( 1 ... M
) )  ->  (
( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) `  n
) )
494, 44, 45, 45, 46, 47, 48offval 6904 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  ( T  oF  +  ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } ) ) )  =  ( n  e.  ( 1 ... M )  |->  ( ( T `  n )  +  ( ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) `  n
) ) ) )
50 poimirlem4.2 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  M  e.  NN0 )
51 nn0p1nn 11332 . . . . . . . . . . . . . . . . . . . 20  |-  ( M  e.  NN0  ->  ( M  +  1 )  e.  NN )
5250, 51syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( M  +  1 )  e.  NN )
5352nnzd 11481 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( M  +  1 )  e.  ZZ )
54 uzid 11702 . . . . . . . . . . . . . . . . . 18  |-  ( ( M  +  1 )  e.  ZZ  ->  ( M  +  1 )  e.  ( ZZ>= `  ( M  +  1 ) ) )
55 peano2uz 11741 . . . . . . . . . . . . . . . . . 18  |-  ( ( M  +  1 )  e.  ( ZZ>= `  ( M  +  1 ) )  ->  ( ( M  +  1 )  +  1 )  e.  ( ZZ>= `  ( M  +  1 ) ) )
5653, 54, 553syl 18 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( M  + 
1 )  +  1 )  e.  ( ZZ>= `  ( M  +  1
) ) )
57 poimirlem4.3 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  M  <  N )
5850nn0zd 11480 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  M  e.  ZZ )
59 poimir.0 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  N  e.  NN )
6059nnzd 11481 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  N  e.  ZZ )
61 zltp1le 11427 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  ( M  <  N  <->  ( M  +  1 )  <_  N ) )
62 peano2z 11418 . . . . . . . . . . . . . . . . . . . . 21  |-  ( M  e.  ZZ  ->  ( M  +  1 )  e.  ZZ )
63 eluz 11701 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( M  +  1 )  e.  ZZ  /\  N  e.  ZZ )  ->  ( N  e.  (
ZZ>= `  ( M  + 
1 ) )  <->  ( M  +  1 )  <_  N ) )
6462, 63sylan 488 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  ( N  e.  (
ZZ>= `  ( M  + 
1 ) )  <->  ( M  +  1 )  <_  N ) )
6561, 64bitr4d 271 . . . . . . . . . . . . . . . . . . 19  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  ( M  <  N  <->  N  e.  ( ZZ>= `  ( M  +  1 ) ) ) )
6658, 60, 65syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( M  <  N  <->  N  e.  ( ZZ>= `  ( M  +  1 ) ) ) )
6757, 66mpbid 222 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  N  e.  ( ZZ>= `  ( M  +  1
) ) )
68 fzsplit2 12366 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( M  + 
1 )  +  1 )  e.  ( ZZ>= `  ( M  +  1
) )  /\  N  e.  ( ZZ>= `  ( M  +  1 ) ) )  ->  ( ( M  +  1 ) ... N )  =  ( ( ( M  +  1 ) ... ( M  +  1 ) )  u.  (
( ( M  + 
1 )  +  1 ) ... N ) ) )
6956, 67, 68syl2anc 693 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( M  + 
1 ) ... N
)  =  ( ( ( M  +  1 ) ... ( M  +  1 ) )  u.  ( ( ( M  +  1 )  +  1 ) ... N ) ) )
70 fzsn 12383 . . . . . . . . . . . . . . . . . 18  |-  ( ( M  +  1 )  e.  ZZ  ->  (
( M  +  1 ) ... ( M  +  1 ) )  =  { ( M  +  1 ) } )
7153, 70syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( M  + 
1 ) ... ( M  +  1 ) )  =  { ( M  +  1 ) } )
7271uneq1d 3766 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( M  +  1 ) ... ( M  +  1 ) )  u.  (
( ( M  + 
1 )  +  1 ) ... N ) )  =  ( { ( M  +  1 ) }  u.  (
( ( M  + 
1 )  +  1 ) ... N ) ) )
7369, 72eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( M  + 
1 ) ... N
)  =  ( { ( M  +  1 ) }  u.  (
( ( M  + 
1 )  +  1 ) ... N ) ) )
7473xpeq1d 5138 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( ( M  +  1 ) ... N )  X.  {
0 } )  =  ( ( { ( M  +  1 ) }  u.  ( ( ( M  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) )
75 xpundir 5172 . . . . . . . . . . . . . . 15  |-  ( ( { ( M  + 
1 ) }  u.  ( ( ( M  +  1 )  +  1 ) ... N
) )  X.  {
0 } )  =  ( ( { ( M  +  1 ) }  X.  { 0 } )  u.  (
( ( ( M  +  1 )  +  1 ) ... N
)  X.  { 0 } ) )
76 ovex 6678 . . . . . . . . . . . . . . . . 17  |-  ( M  +  1 )  e. 
_V
7776, 8xpsn 6407 . . . . . . . . . . . . . . . 16  |-  ( { ( M  +  1 ) }  X.  {
0 } )  =  { <. ( M  + 
1 ) ,  0
>. }
7877uneq1i 3763 . . . . . . . . . . . . . . 15  |-  ( ( { ( M  + 
1 ) }  X.  { 0 } )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  =  ( {
<. ( M  +  1 ) ,  0 >. }  u.  ( (
( ( M  + 
1 )  +  1 ) ... N )  X.  { 0 } ) )
7975, 78eqtri 2644 . . . . . . . . . . . . . 14  |-  ( ( { ( M  + 
1 ) }  u.  ( ( ( M  +  1 )  +  1 ) ... N
) )  X.  {
0 } )  =  ( { <. ( M  +  1 ) ,  0 >. }  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X.  {
0 } ) )
8074, 79syl6eq 2672 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( ( M  +  1 ) ... N )  X.  {
0 } )  =  ( { <. ( M  +  1 ) ,  0 >. }  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X.  {
0 } ) ) )
8180adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( M  + 
1 ) ... N
)  X.  { 0 } )  =  ( { <. ( M  + 
1 ) ,  0
>. }  u.  ( ( ( ( M  + 
1 )  +  1 ) ... N )  X.  { 0 } ) ) )
8249, 81uneq12d 3768 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  =  ( ( n  e.  ( 1 ... M )  |->  ( ( T `  n )  +  ( ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) `  n
) ) )  u.  ( { <. ( M  +  1 ) ,  0 >. }  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X.  {
0 } ) ) ) )
83 unass 3770 . . . . . . . . . . 11  |-  ( ( ( n  e.  ( 1 ... M ) 
|->  ( ( T `  n )  +  ( ( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } ) ) `  n ) ) )  u.  { <. ( M  +  1 ) ,  0 >. } )  u.  (
( ( ( M  +  1 )  +  1 ) ... N
)  X.  { 0 } ) )  =  ( ( n  e.  ( 1 ... M
)  |->  ( ( T `
 n )  +  ( ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) `  n
) ) )  u.  ( { <. ( M  +  1 ) ,  0 >. }  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X.  {
0 } ) ) )
8482, 83syl6eqr 2674 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  =  ( ( ( n  e.  ( 1 ... M )  |->  ( ( T `  n
)  +  ( ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } ) ) `
 n ) ) )  u.  { <. ( M  +  1 ) ,  0 >. } )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) ) )
8550nn0red 11352 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  M  e.  RR )
8685ltp1d 10954 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  M  <  ( M  +  1 ) )
8752nnred 11035 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( M  +  1 )  e.  RR )
8885, 87ltnled 10184 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( M  <  ( M  +  1 )  <->  -.  ( M  +  1 )  <_  M )
)
8986, 88mpbid 222 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  -.  ( M  + 
1 )  <_  M
)
90 elfzle2 12345 . . . . . . . . . . . . . . . . . . 19  |-  ( ( M  +  1 )  e.  ( 1 ... M )  ->  ( M  +  1 )  <_  M )
9189, 90nsyl 135 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  -.  ( M  + 
1 )  e.  ( 1 ... M ) )
92 disjsn 4246 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( 1 ... M
)  i^i  { ( M  +  1 ) } )  =  (/)  <->  -.  ( M  +  1
)  e.  ( 1 ... M ) )
9391, 92sylibr 224 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( 1 ... M )  i^i  {
( M  +  1 ) } )  =  (/) )
94 eqid 2622 . . . . . . . . . . . . . . . . . . 19  |-  { <. ( M  +  1 ) ,  0 >. }  =  { <. ( M  + 
1 ) ,  0
>. }
9576, 8fsn 6402 . . . . . . . . . . . . . . . . . . 19  |-  ( {
<. ( M  +  1 ) ,  0 >. } : { ( M  +  1 ) } --> { 0 }  <->  { <. ( M  +  1 ) ,  0 >. }  =  { <. ( M  + 
1 ) ,  0
>. } )
9694, 95mpbir 221 . . . . . . . . . . . . . . . . . 18  |-  { <. ( M  +  1 ) ,  0 >. } : { ( M  + 
1 ) } --> { 0 }
97 fun 6066 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( T : ( 1 ... M ) --> ( 0..^ K )  /\  { <. ( M  +  1 ) ,  0 >. } : { ( M  + 
1 ) } --> { 0 } )  /\  (
( 1 ... M
)  i^i  { ( M  +  1 ) } )  =  (/) )  ->  ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) : ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) --> ( ( 0..^ K )  u. 
{ 0 } ) )
9896, 97mpanl2 717 . . . . . . . . . . . . . . . . 17  |-  ( ( T : ( 1 ... M ) --> ( 0..^ K )  /\  ( ( 1 ... M )  i^i  {
( M  +  1 ) } )  =  (/) )  ->  ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) : ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } ) --> ( ( 0..^ K )  u.  { 0 } ) )
991, 93, 98syl2anc 693 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) : ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) --> ( ( 0..^ K )  u. 
{ 0 } ) )
100 1z 11407 . . . . . . . . . . . . . . . . . . 19  |-  1  e.  ZZ
101 nn0uz 11722 . . . . . . . . . . . . . . . . . . . . 21  |-  NN0  =  ( ZZ>= `  0 )
102 1m1e0 11089 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( 1  -  1 )  =  0
103102fveq2i 6194 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ZZ>= `  ( 1  -  1 ) )  =  (
ZZ>= `  0 )
104101, 103eqtr4i 2647 . . . . . . . . . . . . . . . . . . . 20  |-  NN0  =  ( ZZ>= `  ( 1  -  1 ) )
10550, 104syl6eleq 2711 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  M  e.  ( ZZ>= `  ( 1  -  1 ) ) )
106 fzsuc2 12398 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 1  e.  ZZ  /\  M  e.  ( ZZ>= `  ( 1  -  1 ) ) )  -> 
( 1 ... ( M  +  1 ) )  =  ( ( 1 ... M )  u.  { ( M  +  1 ) } ) )
107100, 105, 106sylancr 695 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( 1 ... ( M  +  1 ) )  =  ( ( 1 ... M )  u.  { ( M  +  1 ) } ) )
108107eqcomd 2628 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( 1 ... M )  u.  {
( M  +  1 ) } )  =  ( 1 ... ( M  +  1 ) ) )
109 poimirlem4.1 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  K  e.  NN )
110 lbfzo0 12507 . . . . . . . . . . . . . . . . . . . 20  |-  ( 0  e.  ( 0..^ K )  <->  K  e.  NN )
111109, 110sylibr 224 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  0  e.  ( 0..^ K ) )
112111snssd 4340 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  { 0 }  C_  ( 0..^ K ) )
113 ssequn2 3786 . . . . . . . . . . . . . . . . . 18  |-  ( { 0 }  C_  (
0..^ K )  <->  ( (
0..^ K )  u. 
{ 0 } )  =  ( 0..^ K ) )
114112, 113sylib 208 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( 0..^ K )  u.  { 0 } )  =  ( 0..^ K ) )
115108, 114feq23d 6040 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) : ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) --> ( ( 0..^ K )  u. 
{ 0 } )  <-> 
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) : ( 1 ... ( M  +  1 ) ) --> ( 0..^ K ) ) )
11699, 115mpbid 222 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) : ( 1 ... ( M  +  1 ) ) --> ( 0..^ K ) )
117 ffn 6045 . . . . . . . . . . . . . . 15  |-  ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) : ( 1 ... ( M  +  1 ) ) --> ( 0..^ K )  ->  ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  Fn  ( 1 ... ( M  +  1 ) ) )
118116, 117syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  Fn  (
1 ... ( M  + 
1 ) ) )
119118adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  Fn  ( 1 ... ( M  +  1 ) ) )
120 fnconstg 6093 . . . . . . . . . . . . . . . . 17  |-  ( 1  e.  _V  ->  (
( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  Fn  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) ) )
1215, 120ax-mp 5 . . . . . . . . . . . . . . . 16  |-  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  Fn  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )
122 fnconstg 6093 . . . . . . . . . . . . . . . . 17  |-  ( 0  e.  _V  ->  (
( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } )  Fn  (
( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) ) )
1238, 122ax-mp 5 . . . . . . . . . . . . . . . 16  |-  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } )  Fn  (
( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )
124121, 123pm3.2i 471 . . . . . . . . . . . . . . 15  |-  ( ( ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  Fn  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  /\  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } )  Fn  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) )
12576, 76f1osn 6176 . . . . . . . . . . . . . . . . . . 19  |-  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } : { ( M  + 
1 ) } -1-1-onto-> { ( M  + 
1 ) }
126 f1oun 6156 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M )  /\  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } : { ( M  + 
1 ) } -1-1-onto-> { ( M  + 
1 ) } )  /\  ( ( ( 1 ... M )  i^i  { ( M  +  1 ) } )  =  (/)  /\  (
( 1 ... M
)  i^i  { ( M  +  1 ) } )  =  (/) ) )  ->  ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) : ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } ) -1-1-onto-> ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) )
127125, 126mpanl2 717 . . . . . . . . . . . . . . . . . 18  |-  ( ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M )  /\  ( ( ( 1 ... M )  i^i 
{ ( M  + 
1 ) } )  =  (/)  /\  (
( 1 ... M
)  i^i  { ( M  +  1 ) } )  =  (/) ) )  ->  ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) : ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } ) -1-1-onto-> ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) )
12812, 93, 93, 127syl12anc 1324 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) : ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) -1-1-onto-> ( ( 1 ... M )  u.  {
( M  +  1 ) } ) )
129 dff1o3 6143 . . . . . . . . . . . . . . . . . 18  |-  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) : ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } ) -1-1-onto-> ( ( 1 ... M
)  u.  { ( M  +  1 ) } )  <->  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) : ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } )
-onto-> ( ( 1 ... M )  u.  {
( M  +  1 ) } )  /\  Fun  `' ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) ) )
130129simprbi 480 . . . . . . . . . . . . . . . . 17  |-  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) : ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } ) -1-1-onto-> ( ( 1 ... M
)  u.  { ( M  +  1 ) } )  ->  Fun  `' ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) )
131 imain 5974 . . . . . . . . . . . . . . . . 17  |-  ( Fun  `' ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } )  ->  (
( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... ( M  + 
1 ) ) ) )  =  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  i^i  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) ) )
132128, 130, 1313syl 18 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... ( M  + 
1 ) ) ) )  =  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  i^i  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) ) )
133 fzdisj 12368 . . . . . . . . . . . . . . . . . . 19  |-  ( j  <  ( j  +  1 )  ->  (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... ( M  + 
1 ) ) )  =  (/) )
13419, 133syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( 0 ... M )  ->  (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... ( M  + 
1 ) ) )  =  (/) )
135134imaeq2d 5466 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  ( 0 ... M )  ->  (
( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... ( M  + 
1 ) ) ) )  =  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" (/) ) )
136 ima0 5481 . . . . . . . . . . . . . . . . 17  |-  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" (/) )  =  (/)
137135, 136syl6eq 2672 . . . . . . . . . . . . . . . 16  |-  ( j  e.  ( 0 ... M )  ->  (
( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... ( M  + 
1 ) ) ) )  =  (/) )
138132, 137sylan9req 2677 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  i^i  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) )  =  (/) )
139 fnun 5997 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  Fn  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  /\  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } )  Fn  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) )  /\  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  i^i  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) ) )  =  (/) )  ->  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) )  Fn  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  u.  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) ) ) )
140124, 138, 139sylancr 695 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) )  Fn  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  u.  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) ) )
141 f1ofo 6144 . . . . . . . . . . . . . . . . . . 19  |-  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) : ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } ) -1-1-onto-> ( ( 1 ... M
)  u.  { ( M  +  1 ) } )  ->  ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) : ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } )
-onto-> ( ( 1 ... M )  u.  {
( M  +  1 ) } ) )
142 foima 6120 . . . . . . . . . . . . . . . . . . 19  |-  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) : ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } )
-onto-> ( ( 1 ... M )  u.  {
( M  +  1 ) } )  -> 
( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( 1 ... M
)  u.  { ( M  +  1 ) } ) )  =  ( ( 1 ... M )  u.  {
( M  +  1 ) } ) )
143128, 141, 1423syl 18 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( 1 ... M
)  u.  { ( M  +  1 ) } ) )  =  ( ( 1 ... M )  u.  {
( M  +  1 ) } ) )
144107imaeq2d 5466 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... ( M  + 
1 ) ) )  =  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( 1 ... M )  u. 
{ ( M  + 
1 ) } ) ) )
145143, 144, 1073eqtr4d 2666 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... ( M  + 
1 ) ) )  =  ( 1 ... ( M  +  1 ) ) )
146 peano2uz 11741 . . . . . . . . . . . . . . . . . . . 20  |-  ( M  e.  ( ZZ>= `  j
)  ->  ( M  +  1 )  e.  ( ZZ>= `  j )
)
14733, 146syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 0 ... M )  ->  ( M  +  1 )  e.  ( ZZ>= `  j
) )
148 fzsplit2 12366 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( j  +  1 )  e.  ( ZZ>= ` 
1 )  /\  ( M  +  1 )  e.  ( ZZ>= `  j
) )  ->  (
1 ... ( M  + 
1 ) )  =  ( ( 1 ... j )  u.  (
( j  +  1 ) ... ( M  +  1 ) ) ) )
14932, 147, 148syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( 0 ... M )  ->  (
1 ... ( M  + 
1 ) )  =  ( ( 1 ... j )  u.  (
( j  +  1 ) ... ( M  +  1 ) ) ) )
150149imaeq2d 5466 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  ( 0 ... M )  ->  (
( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... ( M  + 
1 ) ) )  =  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( 1 ... j )  u.  ( ( j  +  1 ) ... ( M  +  1 ) ) ) ) )
151145, 150sylan9req 2677 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
1 ... ( M  + 
1 ) )  =  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( 1 ... j
)  u.  ( ( j  +  1 ) ... ( M  + 
1 ) ) ) ) )
152 imaundi 5545 . . . . . . . . . . . . . . . 16  |-  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( 1 ... j )  u.  ( ( j  +  1 ) ... ( M  +  1 ) ) ) )  =  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  u.  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) ) )
153151, 152syl6eq 2672 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
1 ... ( M  + 
1 ) )  =  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  u.  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) ) ) )
154153fneq2d 5982 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) )  Fn  ( 1 ... ( M  + 
1 ) )  <->  ( (
( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) )  Fn  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  u.  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) ) ) ) )
155140, 154mpbird 247 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) )  Fn  ( 1 ... ( M  + 
1 ) ) )
156 ovexd 6680 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
1 ... ( M  + 
1 ) )  e. 
_V )
157 inidm 3822 . . . . . . . . . . . . 13  |-  ( ( 1 ... ( M  +  1 ) )  i^i  ( 1 ... ( M  +  1 ) ) )  =  ( 1 ... ( M  +  1 ) )
158 eqidd 2623 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  e.  ( 1 ... ( M  +  1 ) ) )  ->  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `  n
)  =  ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 n ) )
159 eqidd 2623 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  e.  ( 1 ... ( M  +  1 ) ) )  ->  (
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  n ) )
160119, 155, 156, 156, 157, 158, 159offval 6904 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  =  ( n  e.  ( 1 ... ( M  +  1 ) )  |->  ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 n )  +  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  n ) ) ) )
161 ovexd 6680 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  ( M  +  1 )  e.  _V )
1628a1i 11 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  0  e.  _V )
163108adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( 1 ... M
)  u.  { ( M  +  1 ) } )  =  ( 1 ... ( M  +  1 ) ) )
164 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( n  =  ( M  + 
1 )  ->  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `  n
)  =  ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 ( M  + 
1 ) ) )
16576snid 4208 . . . . . . . . . . . . . . . . . . . 20  |-  ( M  +  1 )  e. 
{ ( M  + 
1 ) }
16676, 8fnsn 5946 . . . . . . . . . . . . . . . . . . . . 21  |-  { <. ( M  +  1 ) ,  0 >. }  Fn  { ( M  +  1 ) }
167 fvun2 6270 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( T  Fn  ( 1 ... M )  /\  {
<. ( M  +  1 ) ,  0 >. }  Fn  { ( M  +  1 ) }  /\  ( ( ( 1 ... M
)  i^i  { ( M  +  1 ) } )  =  (/)  /\  ( M  +  1 )  e.  { ( M  +  1 ) } ) )  -> 
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) `  ( M  +  1 ) )  =  ( {
<. ( M  +  1 ) ,  0 >. } `  ( M  +  1 ) ) )
168166, 167mp3an2 1412 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( T  Fn  ( 1 ... M )  /\  ( ( ( 1 ... M )  i^i 
{ ( M  + 
1 ) } )  =  (/)  /\  ( M  +  1 )  e.  { ( M  +  1 ) } ) )  ->  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `  ( M  +  1 ) )  =  ( {
<. ( M  +  1 ) ,  0 >. } `  ( M  +  1 ) ) )
169165, 168mpanr2 720 . . . . . . . . . . . . . . . . . . 19  |-  ( ( T  Fn  ( 1 ... M )  /\  ( ( 1 ... M )  i^i  {
( M  +  1 ) } )  =  (/) )  ->  ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 ( M  + 
1 ) )  =  ( { <. ( M  +  1 ) ,  0 >. } `  ( M  +  1
) ) )
1703, 93, 169syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) `  ( M  +  1 ) )  =  ( {
<. ( M  +  1 ) ,  0 >. } `  ( M  +  1 ) ) )
17176, 8fvsn 6446 . . . . . . . . . . . . . . . . . 18  |-  ( {
<. ( M  +  1 ) ,  0 >. } `  ( M  +  1 ) )  =  0
172170, 171syl6eq 2672 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) `  ( M  +  1 ) )  =  0 )
173164, 172sylan9eqr 2678 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  =  ( M  +  1
) )  ->  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `  n
)  =  0 )
174173adantlr 751 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  =  ( M  + 
1 ) )  -> 
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) `  n
)  =  0 )
175 fveq2 6191 . . . . . . . . . . . . . . . 16  |-  ( n  =  ( M  + 
1 )  ->  (
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  ( M  +  1
) ) )
176 imadmrn 5476 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( { ( M  + 
1 ) }  X.  { ( M  + 
1 ) } )
" dom  ( {
( M  +  1 ) }  X.  {
( M  +  1 ) } ) )  =  ran  ( { ( M  +  1 ) }  X.  {
( M  +  1 ) } )
17776, 76xpsn 6407 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( { ( M  +  1 ) }  X.  {
( M  +  1 ) } )  =  { <. ( M  + 
1 ) ,  ( M  +  1 )
>. }
178177imaeq1i 5463 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( { ( M  + 
1 ) }  X.  { ( M  + 
1 ) } )
" dom  ( {
( M  +  1 ) }  X.  {
( M  +  1 ) } ) )  =  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } " dom  ( { ( M  +  1 ) }  X.  { ( M  +  1 ) } ) )
179 dmxpid 5345 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  dom  ( { ( M  + 
1 ) }  X.  { ( M  + 
1 ) } )  =  { ( M  +  1 ) }
180179imaeq2i 5464 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " dom  ( { ( M  +  1 ) }  X.  {
( M  +  1 ) } ) )  =  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } " { ( M  + 
1 ) } )
181178, 180eqtri 2644 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( { ( M  + 
1 ) }  X.  { ( M  + 
1 ) } )
" dom  ( {
( M  +  1 ) }  X.  {
( M  +  1 ) } ) )  =  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } " { ( M  + 
1 ) } )
182 rnxpid 5567 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ran  ( { ( M  + 
1 ) }  X.  { ( M  + 
1 ) } )  =  { ( M  +  1 ) }
183176, 181, 1823eqtr3ri 2653 . . . . . . . . . . . . . . . . . . . . . . 23  |-  { ( M  +  1 ) }  =  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " { ( M  +  1 ) } )
184 eluzp1p1 11713 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( M  e.  ( ZZ>= `  j
)  ->  ( M  +  1 )  e.  ( ZZ>= `  ( j  +  1 ) ) )
185 eluzfz2 12349 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( M  +  1 )  e.  ( ZZ>= `  (
j  +  1 ) )  ->  ( M  +  1 )  e.  ( ( j  +  1 ) ... ( M  +  1 ) ) )
18633, 184, 1853syl 18 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( j  e.  ( 0 ... M )  ->  ( M  +  1 )  e.  ( ( j  +  1 ) ... ( M  +  1 ) ) )
187186snssd 4340 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( j  e.  ( 0 ... M )  ->  { ( M  +  1 ) }  C_  ( (
j  +  1 ) ... ( M  + 
1 ) ) )
188 imass2 5501 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( { ( M  +  1 ) }  C_  (
( j  +  1 ) ... ( M  +  1 ) )  ->  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } " { ( M  + 
1 ) } ) 
C_  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) ) )
189187, 188syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( j  e.  ( 0 ... M )  ->  ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " { ( M  +  1 ) } )  C_  ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( ( j  +  1 ) ... ( M  + 
1 ) ) ) )
190183, 189syl5eqss 3649 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( j  e.  ( 0 ... M )  ->  { ( M  +  1 ) }  C_  ( { <. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( ( j  +  1 ) ... ( M  +  1 ) ) ) )
191 ssel 3597 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( { ( M  +  1 ) }  C_  ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( ( j  +  1 ) ... ( M  + 
1 ) ) )  ->  ( ( M  +  1 )  e. 
{ ( M  + 
1 ) }  ->  ( M  +  1 )  e.  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) ) ) )
192190, 165, 191mpisyl 21 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  e.  ( 0 ... M )  ->  ( M  +  1 )  e.  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) ) )
193 elun2 3781 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( M  +  1 )  e.  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  ->  ( M  +  1 )  e.  ( ( U
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  u.  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) ) ) )
194192, 193syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 0 ... M )  ->  ( M  +  1 )  e.  ( ( U
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  u.  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) ) ) )
195 imaundir 5546 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  =  ( ( U "
( ( j  +  1 ) ... ( M  +  1 ) ) )  u.  ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( ( j  +  1 ) ... ( M  + 
1 ) ) ) )
196194, 195syl6eleqr 2712 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 0 ... M )  ->  ( M  +  1 )  e.  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) )
197196adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  ( M  +  1 )  e.  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) )
198 fvun2 6270 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  Fn  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  /\  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } )  Fn  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  /\  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  i^i  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) ) )  =  (/)  /\  ( M  +  1 )  e.  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) ) )  ->  ( (
( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  ( M  +  1 ) )  =  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) `  ( M  +  1 ) ) )
199121, 123, 198mp3an12 1414 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  i^i  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) ) )  =  (/)  /\  ( M  +  1 )  e.  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) ) )  ->  ( ( ( ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  ( M  +  1
) )  =  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) `
 ( M  + 
1 ) ) )
200138, 197, 199syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  ( M  +  1 ) )  =  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) `  ( M  +  1 ) ) )
2018fvconst2 6469 . . . . . . . . . . . . . . . . . . 19  |-  ( ( M  +  1 )  e.  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  -> 
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) `
 ( M  + 
1 ) )  =  0 )
202196, 201syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( 0 ... M )  ->  (
( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) `
 ( M  + 
1 ) )  =  0 )
203202adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) `
 ( M  + 
1 ) )  =  0 )
204200, 203eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  ( M  +  1 ) )  =  0 )
205175, 204sylan9eqr 2678 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  =  ( M  + 
1 ) )  -> 
( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  n )  =  0 )
206174, 205oveq12d 6668 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  =  ( M  + 
1 ) )  -> 
( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 n )  +  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  n ) )  =  ( 0  +  0 ) )
207 00id 10211 . . . . . . . . . . . . . 14  |-  ( 0  +  0 )  =  0
208206, 207syl6eq 2672 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  =  ( M  + 
1 ) )  -> 
( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 n )  +  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  n ) )  =  0 )
209161, 162, 163, 208fmptapd 6437 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( n  e.  ( 1 ... M ) 
|->  ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 n )  +  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  n ) ) )  u.  { <. ( M  +  1 ) ,  0 >. } )  =  ( n  e.  ( 1 ... ( M  +  1 ) )  |->  ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 n )  +  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  n ) ) ) )
2103, 93jca 554 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( T  Fn  (
1 ... M )  /\  ( ( 1 ... M )  i^i  {
( M  +  1 ) } )  =  (/) ) )
211 fvun1 6269 . . . . . . . . . . . . . . . . . . 19  |-  ( ( T  Fn  ( 1 ... M )  /\  {
<. ( M  +  1 ) ,  0 >. }  Fn  { ( M  +  1 ) }  /\  ( ( ( 1 ... M
)  i^i  { ( M  +  1 ) } )  =  (/)  /\  n  e.  ( 1 ... M ) ) )  ->  ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 n )  =  ( T `  n
) )
212166, 211mp3an2 1412 . . . . . . . . . . . . . . . . . 18  |-  ( ( T  Fn  ( 1 ... M )  /\  ( ( ( 1 ... M )  i^i 
{ ( M  + 
1 ) } )  =  (/)  /\  n  e.  ( 1 ... M
) ) )  -> 
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) `  n
)  =  ( T `
 n ) )
213212anassrs 680 . . . . . . . . . . . . . . . . 17  |-  ( ( ( T  Fn  (
1 ... M )  /\  ( ( 1 ... M )  i^i  {
( M  +  1 ) } )  =  (/) )  /\  n  e.  ( 1 ... M
) )  ->  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `  n
)  =  ( T `
 n ) )
214210, 213sylan 488 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( 1 ... M
) )  ->  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `  n
)  =  ( T `
 n ) )
215214adantlr 751 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  e.  ( 1 ... M
) )  ->  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `  n
)  =  ( T `
 n ) )
216 fvres 6207 . . . . . . . . . . . . . . . . 17  |-  ( n  e.  ( 1 ... M )  ->  (
( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) )  |`  ( 1 ... M
) ) `  n
)  =  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  n ) )
217216eqcomd 2628 . . . . . . . . . . . . . . . 16  |-  ( n  e.  ( 1 ... M )  ->  (
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) )  |`  ( 1 ... M ) ) `
 n ) )
218 resundir 5411 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) )  |`  ( 1 ... M ) )  =  ( ( ( ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  |`  ( 1 ... M ) )  u.  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } )  |`  (
1 ... M ) ) )
219 relxp 5227 . . . . . . . . . . . . . . . . . . . . . . 23  |-  Rel  (
( U " (
1 ... j ) )  X.  { 1 } )
220 dmxpss 5565 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  dom  (
( U " (
1 ... j ) )  X.  { 1 } )  C_  ( U " ( 1 ... j
) )
221 imassrn 5477 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( U
" ( 1 ... j ) )  C_  ran  U
222220, 221sstri 3612 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  dom  (
( U " (
1 ... j ) )  X.  { 1 } )  C_  ran  U
223 f1of 6137 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M
)  ->  U :
( 1 ... M
) --> ( 1 ... M ) )
224 frn 6053 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( U : ( 1 ... M ) --> ( 1 ... M )  ->  ran  U  C_  ( 1 ... M ) )
22512, 223, 2243syl 18 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ran  U  C_  (
1 ... M ) )
226222, 225syl5ss 3614 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  dom  ( ( U
" ( 1 ... j ) )  X. 
{ 1 } ) 
C_  ( 1 ... M ) )
227 relssres 5437 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( Rel  ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  /\  dom  ( ( U " ( 1 ... j ) )  X.  { 1 } )  C_  ( 1 ... M ) )  ->  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  |`  ( 1 ... M ) )  =  ( ( U
" ( 1 ... j ) )  X. 
{ 1 } ) )
228219, 226, 227sylancr 695 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  |`  ( 1 ... M
) )  =  ( ( U " (
1 ... j ) )  X.  { 1 } ) )
229228adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( U "
( 1 ... j
) )  X.  {
1 } )  |`  ( 1 ... M
) )  =  ( ( U " (
1 ... j ) )  X.  { 1 } ) )
230 imassrn 5477 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( 1 ... j ) )  C_  ran  { <. ( M  + 
1 ) ,  ( M  +  1 )
>. }
23176rnsnop 5616 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ran  { <. ( M  +  1 ) ,  ( M  +  1 ) >. }  =  { ( M  +  1 ) }
232230, 231sseqtri 3637 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( 1 ... j ) )  C_  { ( M  +  1 ) }
233 ssrin 3838 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( 1 ... j ) ) 
C_  { ( M  +  1 ) }  ->  ( ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( 1 ... j ) )  i^i  ( 1 ... M
) )  C_  ( { ( M  + 
1 ) }  i^i  ( 1 ... M
) ) )
234232, 233ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( 1 ... j ) )  i^i  ( 1 ... M ) )  C_  ( { ( M  + 
1 ) }  i^i  ( 1 ... M
) )
235 incom 3805 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( { ( M  +  1 ) }  i^i  (
1 ... M ) )  =  ( ( 1 ... M )  i^i 
{ ( M  + 
1 ) } )
236235, 93syl5eq 2668 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  ( { ( M  +  1 ) }  i^i  ( 1 ... M ) )  =  (/) )
237234, 236syl5sseq 3653 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  i^i  (
1 ... M ) ) 
C_  (/) )
238 ss0 3974 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  i^i  (
1 ... M ) ) 
C_  (/)  ->  ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( 1 ... j ) )  i^i  ( 1 ... M ) )  =  (/) )
239237, 238syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  i^i  (
1 ... M ) )  =  (/) )
240 fnconstg 6093 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( 1  e.  _V  ->  (
( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  X.  {
1 } )  Fn  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) ) )
241 fnresdisj 6001 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  X.  {
1 } )  Fn  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  ->  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  i^i  (
1 ... M ) )  =  (/)  <->  ( ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( 1 ... j ) )  X.  { 1 } )  |`  ( 1 ... M ) )  =  (/) ) )
2425, 240, 241mp2b 10 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  i^i  (
1 ... M ) )  =  (/)  <->  ( ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( 1 ... j ) )  X.  { 1 } )  |`  ( 1 ... M ) )  =  (/) )
243239, 242sylib 208 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( 1 ... j ) )  X. 
{ 1 } )  |`  ( 1 ... M
) )  =  (/) )
244243adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  X.  {
1 } )  |`  ( 1 ... M
) )  =  (/) )
245229, 244uneq12d 3768 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  |`  ( 1 ... M
) )  u.  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  X.  {
1 } )  |`  ( 1 ... M
) ) )  =  ( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  u.  (/) ) )
246 imaundir 5546 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  =  ( ( U "
( 1 ... j
) )  u.  ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( 1 ... j ) ) )
247246xpeq1i 5135 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  =  ( ( ( U " (
1 ... j ) )  u.  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) ) )  X. 
{ 1 } )
248 xpundir 5172 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( U " (
1 ... j ) )  u.  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) ) )  X. 
{ 1 } )  =  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( 1 ... j ) )  X.  { 1 } ) )
249247, 248eqtri 2644 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  =  ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( 1 ... j ) )  X.  { 1 } ) )
250249reseq1i 5392 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  |`  ( 1 ... M ) )  =  ( ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( 1 ... j ) )  X.  { 1 } ) )  |`  (
1 ... M ) )
251 resundir 5411 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  X.  {
1 } ) )  |`  ( 1 ... M
) )  =  ( ( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  |`  ( 1 ... M
) )  u.  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  X.  {
1 } )  |`  ( 1 ... M
) ) )
252250, 251eqtr2i 2645 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  |`  ( 1 ... M
) )  u.  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( 1 ... j
) )  X.  {
1 } )  |`  ( 1 ... M
) ) )  =  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  |`  ( 1 ... M
) )
253 un0 3967 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  (/) )  =  ( ( U "
( 1 ... j
) )  X.  {
1 } )
254245, 252, 2533eqtr3g 2679 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  |`  ( 1 ... M
) )  =  ( ( U " (
1 ... j ) )  X.  { 1 } ) )
255 f1odm 6141 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M
)  ->  dom  U  =  ( 1 ... M
) )
25612, 255syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  dom  U  =  ( 1 ... M ) )
257256ineq2d 3814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  dom  U )  =  ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( 1 ... M ) ) )
258257reseq2d 5396 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( U  |`  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  dom  U
) )  =  ( U  |`  ( (
( j  +  1 ) ... ( M  +  1 ) )  i^i  ( 1 ... M ) ) ) )
259 f1orel 6140 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M
)  ->  Rel  U )
260 resindm 5444 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( Rel 
U  ->  ( U  |`  ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  dom  U ) )  =  ( U  |`  ( (
j  +  1 ) ... ( M  + 
1 ) ) ) )
26112, 259, 2603syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( U  |`  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  dom  U
) )  =  ( U  |`  ( (
j  +  1 ) ... ( M  + 
1 ) ) ) )
262258, 261eqtr3d 2658 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( U  |`  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( 1 ... M ) ) )  =  ( U  |`  ( ( j  +  1 ) ... ( M  +  1 ) ) ) )
26335ineq2d 3814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( j  e.  ( 0 ... M )  ->  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( 1 ... M ) )  =  ( ( ( j  +  1 ) ... ( M  + 
1 ) )  i^i  ( ( 1 ... j )  u.  (
( j  +  1 ) ... M ) ) ) )
264 fzssp1 12384 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( j  +  1 ) ... M )  C_  ( ( j  +  1 ) ... ( M  +  1 ) )
265 sseqin2 3817 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( j  +  1 ) ... M ) 
C_  ( ( j  +  1 ) ... ( M  +  1 ) )  <->  ( (
( j  +  1 ) ... ( M  +  1 ) )  i^i  ( ( j  +  1 ) ... M ) )  =  ( ( j  +  1 ) ... M
) )
266264, 265mpbi 220 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( ( j  +  1 ) ... M ) )  =  ( ( j  +  1 ) ... M
)
267266a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( j  e.  ( 0 ... M )  ->  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( ( j  +  1 ) ... M ) )  =  ( ( j  +  1 ) ... M ) )
268 incom 3805 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( 1 ... j ) )  =  ( ( 1 ... j )  i^i  (
( j  +  1 ) ... ( M  +  1 ) ) )
269268, 134syl5eq 2668 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( j  e.  ( 0 ... M )  ->  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( 1 ... j ) )  =  (/) )
270267, 269uneq12d 3768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( j  e.  ( 0 ... M )  ->  (
( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  (
( j  +  1 ) ... M ) )  u.  ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( 1 ... j ) ) )  =  ( ( ( j  +  1 ) ... M )  u.  (/) ) )
271 uncom 3757 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( ( j  +  1 ) ... M ) )  u.  ( ( ( j  +  1 ) ... ( M  + 
1 ) )  i^i  ( 1 ... j
) ) )  =  ( ( ( ( j  +  1 ) ... ( M  + 
1 ) )  i^i  ( 1 ... j
) )  u.  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( ( j  +  1 ) ... M ) ) )
272 indi 3873 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( ( 1 ... j )  u.  ( ( j  +  1 ) ... M
) ) )  =  ( ( ( ( j  +  1 ) ... ( M  + 
1 ) )  i^i  ( 1 ... j
) )  u.  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( ( j  +  1 ) ... M ) ) )
273271, 272eqtr4i 2647 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( ( j  +  1 ) ... M ) )  u.  ( ( ( j  +  1 ) ... ( M  + 
1 ) )  i^i  ( 1 ... j
) ) )  =  ( ( ( j  +  1 ) ... ( M  +  1 ) )  i^i  (
( 1 ... j
)  u.  ( ( j  +  1 ) ... M ) ) )
274 un0 3967 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( j  +  1 ) ... M )  u.  (/) )  =  ( ( j  +  1 ) ... M )
275270, 273, 2743eqtr3g 2679 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( j  e.  ( 0 ... M )  ->  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( ( 1 ... j )  u.  ( ( j  +  1 ) ... M ) ) )  =  ( ( j  +  1 ) ... M ) )
276263, 275eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( j  e.  ( 0 ... M )  ->  (
( ( j  +  1 ) ... ( M  +  1 ) )  i^i  ( 1 ... M ) )  =  ( ( j  +  1 ) ... M ) )
277276reseq2d 5396 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( j  e.  ( 0 ... M )  ->  ( U  |`  ( ( ( j  +  1 ) ... ( M  + 
1 ) )  i^i  ( 1 ... M
) ) )  =  ( U  |`  (
( j  +  1 ) ... M ) ) )
278262, 277sylan9req 2677 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  ( U  |`  ( ( j  +  1 ) ... ( M  +  1 ) ) )  =  ( U  |`  (
( j  +  1 ) ... M ) ) )
279278rneqd 5353 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  ran  ( U  |`  ( ( j  +  1 ) ... ( M  + 
1 ) ) )  =  ran  ( U  |`  ( ( j  +  1 ) ... M
) ) )
280 df-ima 5127 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( U
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  =  ran  ( U  |`  ( ( j  +  1 ) ... ( M  +  1 ) ) )
281 df-ima 5127 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( U
" ( ( j  +  1 ) ... M ) )  =  ran  ( U  |`  ( ( j  +  1 ) ... M
) )
282279, 280, 2813eqtr4g 2681 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  ( U " ( ( j  +  1 ) ... ( M  +  1 ) ) )  =  ( U " (
( j  +  1 ) ... M ) ) )
283282xpeq1d 5138 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( U " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } )  =  ( ( U " (
( j  +  1 ) ... M ) )  X.  { 0 } ) )
284283reseq1d 5395 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( U "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  |`  ( 1 ... M
) )  =  ( ( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } )  |`  ( 1 ... M
) ) )
285 relxp 5227 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  Rel  (
( U " (
( j  +  1 ) ... M ) )  X.  { 0 } )
286 dmxpss 5565 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  dom  (
( U " (
( j  +  1 ) ... M ) )  X.  { 0 } )  C_  ( U " ( ( j  +  1 ) ... M ) )
287 imassrn 5477 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( U
" ( ( j  +  1 ) ... M ) )  C_  ran  U
288286, 287sstri 3612 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  dom  (
( U " (
( j  +  1 ) ... M ) )  X.  { 0 } )  C_  ran  U
289288, 225syl5ss 3614 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  dom  ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } ) 
C_  ( 1 ... M ) )
290 relssres 5437 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( Rel  ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } )  /\  dom  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } )  C_  ( 1 ... M ) )  ->  ( ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } )  |`  ( 1 ... M ) )  =  ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } ) )
291285, 289, 290sylancr 695 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } )  |`  ( 1 ... M
) )  =  ( ( U " (
( j  +  1 ) ... M ) )  X.  { 0 } ) )
292291adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } )  |`  ( 1 ... M
) )  =  ( ( U " (
( j  +  1 ) ... M ) )  X.  { 0 } ) )
293284, 292eqtrd 2656 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( U "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  |`  ( 1 ... M
) )  =  ( ( U " (
( j  +  1 ) ... M ) )  X.  { 0 } ) )
294 imassrn 5477 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( ( j  +  1 ) ... ( M  +  1 ) ) )  C_  ran  { <. ( M  + 
1 ) ,  ( M  +  1 )
>. }
295294, 231sseqtri 3637 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( ( j  +  1 ) ... ( M  +  1 ) ) )  C_  { ( M  +  1 ) }
296 ssrin 3838 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( ( j  +  1 ) ... ( M  + 
1 ) ) ) 
C_  { ( M  +  1 ) }  ->  ( ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( ( j  +  1 ) ... ( M  +  1 ) ) )  i^i  ( 1 ... M
) )  C_  ( { ( M  + 
1 ) }  i^i  ( 1 ... M
) ) )
297295, 296ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( ( j  +  1 ) ... ( M  + 
1 ) ) )  i^i  ( 1 ... M ) )  C_  ( { ( M  + 
1 ) }  i^i  ( 1 ... M
) )
298297, 236syl5sseq 3653 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  i^i  (
1 ... M ) ) 
C_  (/) )
299 ss0 3974 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  i^i  (
1 ... M ) ) 
C_  (/)  ->  ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( ( j  +  1 ) ... ( M  + 
1 ) ) )  i^i  ( 1 ... M ) )  =  (/) )
300298, 299syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  i^i  (
1 ... M ) )  =  (/) )
301 fnconstg 6093 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( 0  e.  _V  ->  (
( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  Fn  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) ) )
302 fnresdisj 6001 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  Fn  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  ->  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  i^i  (
1 ... M ) )  =  (/)  <->  ( ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( ( j  +  1 ) ... ( M  + 
1 ) ) )  X.  { 0 } )  |`  ( 1 ... M ) )  =  (/) ) )
3038, 301, 302mp2b 10 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  i^i  (
1 ... M ) )  =  (/)  <->  ( ( ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( ( j  +  1 ) ... ( M  + 
1 ) ) )  X.  { 0 } )  |`  ( 1 ... M ) )  =  (/) )
304300, 303sylib 208 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } )  |`  ( 1 ... M
) )  =  (/) )
305304adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  |`  ( 1 ... M
) )  =  (/) )
306293, 305uneq12d 3768 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( U
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } )  |`  ( 1 ... M
) )  u.  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  |`  ( 1 ... M
) ) )  =  ( ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } )  u.  (/) ) )
307195xpeq1i 5135 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } )  =  ( ( ( U "
( ( j  +  1 ) ... ( M  +  1 ) ) )  u.  ( { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } " ( ( j  +  1 ) ... ( M  + 
1 ) ) ) )  X.  { 0 } )
308 xpundir 5172 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( U " (
( j  +  1 ) ... ( M  +  1 ) ) )  u.  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } " ( ( j  +  1 ) ... ( M  +  1 ) ) ) )  X.  { 0 } )  =  ( ( ( U " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } )  u.  (
( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } ) )
309307, 308eqtri 2644 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } )  =  ( ( ( U "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  u.  ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } ) )
310309reseq1i 5392 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } )  |`  (
1 ... M ) )  =  ( ( ( ( U " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } )  u.  (
( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } ) )  |`  ( 1 ... M
) )
311 resundir 5411 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( U "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  u.  ( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } ) )  |`  ( 1 ... M
) )  =  ( ( ( ( U
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } )  |`  ( 1 ... M
) )  u.  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  |`  ( 1 ... M
) ) )
312310, 311eqtr2i 2645 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( U "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  |`  ( 1 ... M
) )  u.  (
( ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } "
( ( j  +  1 ) ... ( M  +  1 ) ) )  X.  {
0 } )  |`  ( 1 ... M
) ) )  =  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } )  |`  ( 1 ... M
) )
313 un0 3967 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( U " (
( j  +  1 ) ... M ) )  X.  { 0 } )  u.  (/) )  =  ( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } )
314306, 312, 3133eqtr3g 2679 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } )  |`  ( 1 ... M
) )  =  ( ( U " (
( j  +  1 ) ... M ) )  X.  { 0 } ) )
315254, 314uneq12d 3768 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  |`  ( 1 ... M
) )  u.  (
( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } )  |`  ( 1 ... M
) ) )  =  ( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } ) ) )
316218, 315syl5eq 2668 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) )  |`  ( 1 ... M ) )  =  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )
317316fveq1d 6193 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) )  |`  ( 1 ... M
) ) `  n
)  =  ( ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } ) ) `
 n ) )
318217, 317sylan9eqr 2678 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  e.  ( 1 ... M
) )  ->  (
( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) `  n
) )
319215, 318oveq12d 6668 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  j  e.  ( 0 ... M
) )  /\  n  e.  ( 1 ... M
) )  ->  (
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) `  n
)  +  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  n ) )  =  ( ( T `  n )  +  ( ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) `  n
) ) )
320319mpteq2dva 4744 . . . . . . . . . . . . 13  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
n  e.  ( 1 ... M )  |->  ( ( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) `  n
)  +  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) `  n ) ) )  =  ( n  e.  ( 1 ... M )  |->  ( ( T `  n
)  +  ( ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... M
) )  X.  {
0 } ) ) `
 n ) ) ) )
321320uneq1d 3766 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( n  e.  ( 1 ... M ) 
|->  ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 n )  +  ( ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) `  n ) ) )  u.  { <. ( M  +  1 ) ,  0 >. } )  =  ( ( n  e.  ( 1 ... M )  |->  ( ( T `  n )  +  ( ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) `  n
) ) )  u. 
{ <. ( M  + 
1 ) ,  0
>. } ) )
322160, 209, 3213eqtr2d 2662 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  =  ( ( n  e.  ( 1 ... M )  |->  ( ( T `  n )  +  ( ( ( ( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) `  n
) ) )  u. 
{ <. ( M  + 
1 ) ,  0
>. } ) )
323322uneq1d 3766 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  =  ( ( ( n  e.  ( 1 ... M ) 
|->  ( ( T `  n )  +  ( ( ( ( U
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( j  +  1 ) ... M ) )  X. 
{ 0 } ) ) `  n ) ) )  u.  { <. ( M  +  1 ) ,  0 >. } )  u.  (
( ( ( M  +  1 )  +  1 ) ... N
)  X.  { 0 } ) ) )
32484, 323eqtr4d 2659 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  =  ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) )  u.  (
( ( ( M  +  1 )  +  1 ) ... N
)  X.  { 0 } ) ) )
325324csbeq1d 3540 . . . . . . . 8  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  [_ (
( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  /  p ]_ B  =  [_ ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) )  u.  (
( ( ( M  +  1 )  +  1 ) ... N
)  X.  { 0 } ) )  /  p ]_ B )
326325eqeq2d 2632 . . . . . . 7  |-  ( (
ph  /\  j  e.  ( 0 ... M
) )  ->  (
i  =  [_ (
( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  /  p ]_ B  <->  i  =  [_ ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  /  p ]_ B ) )
327326rexbidva 3049 . . . . . 6  |-  ( ph  ->  ( E. j  e.  ( 0 ... M
) i  =  [_ ( ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  /  p ]_ B  <->  E. j  e.  ( 0 ... M ) i  =  [_ ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  /  p ]_ B ) )
328327ralbidv 2986 . . . . 5  |-  ( ph  ->  ( A. i  e.  ( 0 ... M
) E. j  e.  ( 0 ... M
) i  =  [_ ( ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  /  p ]_ B  <->  A. i  e.  ( 0 ... M ) E. j  e.  ( 0 ... M ) i  =  [_ ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  /  p ]_ B ) )
329328biimpd 219 . . . 4  |-  ( ph  ->  ( A. i  e.  ( 0 ... M
) E. j  e.  ( 0 ... M
) i  =  [_ ( ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  /  p ]_ B  ->  A. i  e.  ( 0 ... M ) E. j  e.  ( 0 ... M ) i  =  [_ (
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  /  p ]_ B ) )
330 f1ofn 6138 . . . . . . . 8  |-  ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M
)  ->  U  Fn  ( 1 ... M
) )
33112, 330syl 17 . . . . . . 7  |-  ( ph  ->  U  Fn  ( 1 ... M ) )
33276, 76fnsn 5946 . . . . . . . . 9  |-  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. }  Fn  { ( M  +  1 ) }
333 fvun2 6270 . . . . . . . . 9  |-  ( ( U  Fn  ( 1 ... M )  /\  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. }  Fn  { ( M  +  1 ) }  /\  ( ( ( 1 ... M
)  i^i  { ( M  +  1 ) } )  =  (/)  /\  ( M  +  1 )  e.  { ( M  +  1 ) } ) )  -> 
( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) `  ( M  +  1 ) )  =  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } `  ( M  +  1 ) ) )
334332, 333mp3an2 1412 . . . . . . . 8  |-  ( ( U  Fn  ( 1 ... M )  /\  ( ( ( 1 ... M )  i^i 
{ ( M  + 
1 ) } )  =  (/)  /\  ( M  +  1 )  e.  { ( M  +  1 ) } ) )  ->  (
( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) `  ( M  +  1 ) )  =  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } `  ( M  +  1 ) ) )
335165, 334mpanr2 720 . . . . . . 7  |-  ( ( U  Fn  ( 1 ... M )  /\  ( ( 1 ... M )  i^i  {
( M  +  1 ) } )  =  (/) )  ->  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) `
 ( M  + 
1 ) )  =  ( { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } `  ( M  +  1
) ) )
336331, 93, 335syl2anc 693 . . . . . 6  |-  ( ph  ->  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) `  ( M  +  1 ) )  =  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } `  ( M  +  1 ) ) )
33776, 76fvsn 6446 . . . . . 6  |-  ( {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } `  ( M  +  1 ) )  =  ( M  + 
1 )
338336, 337syl6eq 2672 . . . . 5  |-  ( ph  ->  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) `  ( M  +  1 ) )  =  ( M  +  1 ) )
339172, 338jca 554 . . . 4  |-  ( ph  ->  ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 ( M  + 
1 ) )  =  0  /\  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) `
 ( M  + 
1 ) )  =  ( M  +  1 ) ) )
340329, 339jctird 567 . . 3  |-  ( ph  ->  ( A. i  e.  ( 0 ... M
) E. j  e.  ( 0 ... M
) i  =  [_ ( ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  /  p ]_ B  ->  ( A. i  e.  ( 0 ... M
) E. j  e.  ( 0 ... M
) i  =  [_ ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) )  u.  (
( ( ( M  +  1 )  +  1 ) ... N
)  X.  { 0 } ) )  /  p ]_ B  /\  (
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) `  ( M  +  1 ) )  =  0  /\  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) `  ( M  +  1 ) )  =  ( M  +  1 ) ) ) ) )
341 3anass 1042 . . 3  |-  ( ( A. i  e.  ( 0 ... M ) E. j  e.  ( 0 ... M ) i  =  [_ (
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  /  p ]_ B  /\  ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 ( M  + 
1 ) )  =  0  /\  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) `
 ( M  + 
1 ) )  =  ( M  +  1 ) )  <->  ( A. i  e.  ( 0 ... M ) E. j  e.  ( 0 ... M ) i  =  [_ ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  /  p ]_ B  /\  ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 ( M  + 
1 ) )  =  0  /\  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) `
 ( M  + 
1 ) )  =  ( M  +  1 ) ) ) )
342340, 341syl6ibr 242 . 2  |-  ( ph  ->  ( A. i  e.  ( 0 ... M
) E. j  e.  ( 0 ... M
) i  =  [_ ( ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  /  p ]_ B  ->  ( A. i  e.  ( 0 ... M
) E. j  e.  ( 0 ... M
) i  =  [_ ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
" ( ( j  +  1 ) ... ( M  +  1 ) ) )  X. 
{ 0 } ) ) )  u.  (
( ( ( M  +  1 )  +  1 ) ... N
)  X.  { 0 } ) )  /  p ]_ B  /\  (
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `  ( M  +  1 ) )  =  0  /\  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) `  ( M  +  1 ) )  =  ( M  +  1 ) ) ) )
3431, 96jctir 561 . . . . . 6  |-  ( ph  ->  ( T : ( 1 ... M ) --> ( 0..^ K )  /\  { <. ( M  +  1 ) ,  0 >. } : { ( M  + 
1 ) } --> { 0 } ) )
344343, 93, 97syl2anc 693 . . . . 5  |-  ( ph  ->  ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) : ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) --> ( ( 0..^ K )  u. 
{ 0 } ) )
345344, 115mpbid 222 . . . 4  |-  ( ph  ->  ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) : ( 1 ... ( M  +  1 ) ) --> ( 0..^ K ) )
346 ovex 6678 . . . . 5  |-  ( 0..^ K )  e.  _V
347 ovex 6678 . . . . 5  |-  ( 1 ... ( M  + 
1 ) )  e. 
_V
348346, 347elmap 7886 . . . 4  |-  ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  e.  ( ( 0..^ K )  ^m  (
1 ... ( M  + 
1 ) ) )  <-> 
( T  u.  { <. ( M  +  1 ) ,  0 >. } ) : ( 1 ... ( M  +  1 ) ) --> ( 0..^ K ) )
349345, 348sylibr 224 . . 3  |-  ( ph  ->  ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  e.  ( ( 0..^ K )  ^m  ( 1 ... ( M  +  1 ) ) ) )
350 ovex 6678 . . . . . . . 8  |-  ( 1 ... M )  e. 
_V
351 f1oexrnex 7115 . . . . . . . 8  |-  ( ( U : ( 1 ... M ) -1-1-onto-> ( 1 ... M )  /\  ( 1 ... M
)  e.  _V )  ->  U  e.  _V )
35212, 350, 351sylancl 694 . . . . . . 7  |-  ( ph  ->  U  e.  _V )
353 snex 4908 . . . . . . 7  |-  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. }  e.  _V
354 unexg 6959 . . . . . . 7  |-  ( ( U  e.  _V  /\  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. }  e.  _V )  ->  ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } )  e.  _V )
355352, 353, 354sylancl 694 . . . . . 6  |-  ( ph  ->  ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } )  e.  _V )
356 f1oeq1 6127 . . . . . . 7  |-  ( f  =  ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } )  ->  (
f : ( 1 ... ( M  + 
1 ) ) -1-1-onto-> ( 1 ... ( M  + 
1 ) )  <->  ( U  u.  { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } ) : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) ) )
357356elabg 3351 . . . . . 6  |-  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )  e.  _V  ->  (
( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } )  e.  {
f  |  f : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) }  <->  ( U  u.  { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } ) : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) ) )
358355, 357syl 17 . . . . 5  |-  ( ph  ->  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } )  e.  {
f  |  f : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) }  <->  ( U  u.  { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } ) : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) ) )
359 f1oeq23 6130 . . . . . 6  |-  ( ( ( 1 ... ( M  +  1 ) )  =  ( ( 1 ... M )  u.  { ( M  +  1 ) } )  /\  ( 1 ... ( M  + 
1 ) )  =  ( ( 1 ... M )  u.  {
( M  +  1 ) } ) )  ->  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) )  <->  ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) : ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) -1-1-onto-> ( ( 1 ... M )  u.  {
( M  +  1 ) } ) ) )
360107, 107, 359syl2anc 693 . . . . 5  |-  ( ph  ->  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) )  <-> 
( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) : ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) -1-1-onto-> ( ( 1 ... M )  u.  {
( M  +  1 ) } ) ) )
361358, 360bitrd 268 . . . 4  |-  ( ph  ->  ( ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } )  e.  {
f  |  f : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) }  <->  ( U  u.  { <. ( M  + 
1 ) ,  ( M  +  1 )
>. } ) : ( ( 1 ... M
)  u.  { ( M  +  1 ) } ) -1-1-onto-> ( ( 1 ... M )  u.  {
( M  +  1 ) } ) ) )
362128, 361mpbird 247 . . 3  |-  ( ph  ->  ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } )  e.  {
f  |  f : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) } )
363 opelxpi 5148 . . 3  |-  ( ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } )  e.  ( ( 0..^ K )  ^m  ( 1 ... ( M  +  1 ) ) )  /\  ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )  e.  { f  |  f : ( 1 ... ( M  + 
1 ) ) -1-1-onto-> ( 1 ... ( M  + 
1 ) ) } )  ->  <. ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) ,  ( U  u.  {
<. ( M  +  1 ) ,  ( M  +  1 ) >. } ) >.  e.  ( ( ( 0..^ K )  ^m  ( 1 ... ( M  + 
1 ) ) )  X.  { f  |  f : ( 1 ... ( M  + 
1 ) ) -1-1-onto-> ( 1 ... ( M  + 
1 ) ) } ) )
364349, 362, 363syl2anc 693 . 2  |-  ( ph  -> 
<. ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) ,  ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
>.  e.  ( ( ( 0..^ K )  ^m  ( 1 ... ( M  +  1 ) ) )  X.  {
f  |  f : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) } ) )
365342, 364jctild 566 1  |-  ( ph  ->  ( A. i  e.  ( 0 ... M
) E. j  e.  ( 0 ... M
) i  =  [_ ( ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... M ) )  X.  { 0 } ) ) )  u.  ( ( ( M  +  1 ) ... N )  X.  {
0 } ) )  /  p ]_ B  ->  ( <. ( T  u.  {
<. ( M  +  1 ) ,  0 >. } ) ,  ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } )
>.  e.  ( ( ( 0..^ K )  ^m  ( 1 ... ( M  +  1 ) ) )  X.  {
f  |  f : ( 1 ... ( M  +  1 ) ) -1-1-onto-> ( 1 ... ( M  +  1 ) ) } )  /\  ( A. i  e.  ( 0 ... M ) E. j  e.  ( 0 ... M ) i  =  [_ (
( ( T  u.  {
<. ( M  +  1 ) ,  0 >. } )  oF  +  ( ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( U  u.  { <. ( M  +  1 ) ,  ( M  +  1 ) >. } ) " (
( j  +  1 ) ... ( M  +  1 ) ) )  X.  { 0 } ) ) )  u.  ( ( ( ( M  +  1 )  +  1 ) ... N )  X. 
{ 0 } ) )  /  p ]_ B  /\  ( ( T  u.  { <. ( M  +  1 ) ,  0 >. } ) `
 ( M  + 
1 ) )  =  0  /\  ( ( U  u.  { <. ( M  +  1 ) ,  ( M  + 
1 ) >. } ) `
 ( M  + 
1 ) )  =  ( M  +  1 ) ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990   {cab 2608   A.wral 2912   E.wrex 2913   _Vcvv 3200   [_csb 3533    u. cun 3572    i^i cin 3573    C_ wss 3574   (/)c0 3915   {csn 4177   <.cop 4183   class class class wbr 4653    |-> cmpt 4729    X. cxp 5112   `'ccnv 5113   dom cdm 5114   ran crn 5115    |` cres 5116   "cima 5117   Rel wrel 5119   Fun wfun 5882    Fn wfn 5883   -->wf 5884   -onto->wfo 5886   -1-1-onto->wf1o 5887   ` cfv 5888  (class class class)co 6650    oFcof 6895    ^m cmap 7857   0cc0 9936   1c1 9937    + caddc 9939    < clt 10074    <_ cle 10075    - cmin 10266   NNcn 11020   NN0cn0 11292   ZZcz 11377   ZZ>=cuz 11687   ...cfz 12326  ..^cfzo 12465
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-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
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  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-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-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-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-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-er 7742  df-map 7859  df-en 7956  df-dom 7957  df-sdom 7958  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-nn 11021  df-n0 11293  df-z 11378  df-uz 11688  df-fz 12327  df-fzo 12466
This theorem is referenced by:  poimirlem4  33413
  Copyright terms: Public domain W3C validator