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

Theorem poimirlem2 33411
Description: Lemma for poimir 33442- consecutive vertices differ in at most one dimension. (Contributed by Brendan Leahy, 21-Aug-2020.)
Hypotheses
Ref Expression
poimir.0  |-  ( ph  ->  N  e.  NN )
poimirlem2.1  |-  ( ph  ->  F  =  ( y  e.  ( 0 ... ( N  -  1 ) )  |->  [_ if ( y  <  M ,  y ,  ( y  +  1 ) )  /  j ]_ ( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) ) ) )
poimirlem2.2  |-  ( ph  ->  T : ( 1 ... N ) --> ZZ )
poimirlem2.3  |-  ( ph  ->  U : ( 1 ... N ) -1-1-onto-> ( 1 ... N ) )
poimirlem2.4  |-  ( ph  ->  V  e.  ( 1 ... ( N  - 
1 ) ) )
poimirlem2.5  |-  ( ph  ->  M  e.  ( ( 0 ... N ) 
\  { V }
) )
Assertion
Ref Expression
poimirlem2  |-  ( ph  ->  E* n  e.  ( 1 ... N ) ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n ) )
Distinct variable groups:    j, n, y, ph    j, F, n, y    j, M, n, y    j, N, n, y    T, j, n, y    U, j, n, y    j, V, n, y

Proof of Theorem poimirlem2
Dummy variable  m is distinct from all other variables.
StepHypRef Expression
1 poimirlem2.3 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  U : ( 1 ... N ) -1-1-onto-> ( 1 ... N ) )
2 dff1o3 6143 . . . . . . . . . . . . . . . . 17  |-  ( U : ( 1 ... N ) -1-1-onto-> ( 1 ... N
)  <->  ( U :
( 1 ... N
) -onto-> ( 1 ... N )  /\  Fun  `' U ) )
32simprbi 480 . . . . . . . . . . . . . . . 16  |-  ( U : ( 1 ... N ) -1-1-onto-> ( 1 ... N
)  ->  Fun  `' U
)
41, 3syl 17 . . . . . . . . . . . . . . 15  |-  ( ph  ->  Fun  `' U )
5 imadif 5973 . . . . . . . . . . . . . . 15  |-  ( Fun  `' U  ->  ( U
" ( ( 1 ... N )  \  { ( V  + 
1 ) } ) )  =  ( ( U " ( 1 ... N ) ) 
\  ( U " { ( V  + 
1 ) } ) ) )
64, 5syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( U " (
( 1 ... N
)  \  { ( V  +  1 ) } ) )  =  ( ( U "
( 1 ... N
) )  \  ( U " { ( V  +  1 ) } ) ) )
7 poimirlem2.4 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  V  e.  ( 1 ... ( N  - 
1 ) ) )
8 fzp1elp1 12394 . . . . . . . . . . . . . . . . . . . 20  |-  ( V  e.  ( 1 ... ( N  -  1 ) )  ->  ( V  +  1 )  e.  ( 1 ... ( ( N  - 
1 )  +  1 ) ) )
97, 8syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( V  +  1 )  e.  ( 1 ... ( ( N  -  1 )  +  1 ) ) )
10 poimir.0 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  N  e.  NN )
1110nncnd 11036 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  N  e.  CC )
12 npcan1 10455 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  CC  ->  (
( N  -  1 )  +  1 )  =  N )
1311, 12syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( N  - 
1 )  +  1 )  =  N )
1413oveq2d 6666 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( 1 ... (
( N  -  1 )  +  1 ) )  =  ( 1 ... N ) )
159, 14eleqtrd 2703 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( V  +  1 )  e.  ( 1 ... N ) )
16 fzsplit 12367 . . . . . . . . . . . . . . . . . 18  |-  ( ( V  +  1 )  e.  ( 1 ... N )  ->  (
1 ... N )  =  ( ( 1 ... ( V  +  1 ) )  u.  (
( ( V  + 
1 )  +  1 ) ... N ) ) )
1715, 16syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( 1 ... N
)  =  ( ( 1 ... ( V  +  1 ) )  u.  ( ( ( V  +  1 )  +  1 ) ... N ) ) )
1817difeq1d 3727 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( 1 ... N )  \  {
( V  +  1 ) } )  =  ( ( ( 1 ... ( V  + 
1 ) )  u.  ( ( ( V  +  1 )  +  1 ) ... N
) )  \  {
( V  +  1 ) } ) )
19 difundir 3880 . . . . . . . . . . . . . . . . 17  |-  ( ( ( 1 ... ( V  +  1 ) )  u.  ( ( ( V  +  1 )  +  1 ) ... N ) ) 
\  { ( V  +  1 ) } )  =  ( ( ( 1 ... ( V  +  1 ) )  \  { ( V  +  1 ) } )  u.  (
( ( ( V  +  1 )  +  1 ) ... N
)  \  { ( V  +  1 ) } ) )
20 elfzuz 12338 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( V  e.  ( 1 ... ( N  -  1 ) )  ->  V  e.  ( ZZ>= `  1 )
)
217, 20syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  V  e.  ( ZZ>= ` 
1 ) )
22 fzsuc 12388 . . . . . . . . . . . . . . . . . . . . 21  |-  ( V  e.  ( ZZ>= `  1
)  ->  ( 1 ... ( V  + 
1 ) )  =  ( ( 1 ... V )  u.  {
( V  +  1 ) } ) )
2321, 22syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( 1 ... ( V  +  1 ) )  =  ( ( 1 ... V )  u.  { ( V  +  1 ) } ) )
2423difeq1d 3727 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( 1 ... ( V  +  1 ) )  \  {
( V  +  1 ) } )  =  ( ( ( 1 ... V )  u. 
{ ( V  + 
1 ) } ) 
\  { ( V  +  1 ) } ) )
25 difun2 4048 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( 1 ... V
)  u.  { ( V  +  1 ) } )  \  {
( V  +  1 ) } )  =  ( ( 1 ... V )  \  {
( V  +  1 ) } )
26 elfzelz 12342 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( V  e.  ( 1 ... ( N  -  1 ) )  ->  V  e.  ZZ )
277, 26syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  V  e.  ZZ )
2827zred 11482 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  V  e.  RR )
2928ltp1d 10954 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  V  <  ( V  +  1 ) )
3027peano2zd 11485 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  ( V  +  1 )  e.  ZZ )
3130zred 11482 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ( V  +  1 )  e.  RR )
3228, 31ltnled 10184 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( V  <  ( V  +  1 )  <->  -.  ( V  +  1 )  <_  V )
)
3329, 32mpbid 222 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  -.  ( V  + 
1 )  <_  V
)
34 elfzle2 12345 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( V  +  1 )  e.  ( 1 ... V )  ->  ( V  +  1 )  <_  V )
3533, 34nsyl 135 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  -.  ( V  + 
1 )  e.  ( 1 ... V ) )
36 difsn 4328 . . . . . . . . . . . . . . . . . . . . 21  |-  ( -.  ( V  +  1 )  e.  ( 1 ... V )  -> 
( ( 1 ... V )  \  {
( V  +  1 ) } )  =  ( 1 ... V
) )
3735, 36syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( 1 ... V )  \  {
( V  +  1 ) } )  =  ( 1 ... V
) )
3825, 37syl5eq 2668 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( ( 1 ... V )  u. 
{ ( V  + 
1 ) } ) 
\  { ( V  +  1 ) } )  =  ( 1 ... V ) )
3924, 38eqtrd 2656 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( 1 ... ( V  +  1 ) )  \  {
( V  +  1 ) } )  =  ( 1 ... V
) )
4031ltp1d 10954 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( V  +  1 )  <  ( ( V  +  1 )  +  1 ) )
41 peano2re 10209 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( V  +  1 )  e.  RR  ->  (
( V  +  1 )  +  1 )  e.  RR )
4231, 41syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( V  + 
1 )  +  1 )  e.  RR )
4331, 42ltnled 10184 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( V  + 
1 )  <  (
( V  +  1 )  +  1 )  <->  -.  ( ( V  + 
1 )  +  1 )  <_  ( V  +  1 ) ) )
4440, 43mpbid 222 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  -.  ( ( V  +  1 )  +  1 )  <_  ( V  +  1 ) )
45 elfzle1 12344 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( V  +  1 )  e.  ( ( ( V  +  1 )  +  1 ) ... N )  ->  (
( V  +  1 )  +  1 )  <_  ( V  + 
1 ) )
4644, 45nsyl 135 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  -.  ( V  + 
1 )  e.  ( ( ( V  + 
1 )  +  1 ) ... N ) )
47 difsn 4328 . . . . . . . . . . . . . . . . . . 19  |-  ( -.  ( V  +  1 )  e.  ( ( ( V  +  1 )  +  1 ) ... N )  -> 
( ( ( ( V  +  1 )  +  1 ) ... N )  \  {
( V  +  1 ) } )  =  ( ( ( V  +  1 )  +  1 ) ... N
) )
4846, 47syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( ( ( V  +  1 )  +  1 ) ... N )  \  {
( V  +  1 ) } )  =  ( ( ( V  +  1 )  +  1 ) ... N
) )
4939, 48uneq12d 3768 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( ( 1 ... ( V  + 
1 ) )  \  { ( V  + 
1 ) } )  u.  ( ( ( ( V  +  1 )  +  1 ) ... N )  \  { ( V  + 
1 ) } ) )  =  ( ( 1 ... V )  u.  ( ( ( V  +  1 )  +  1 ) ... N ) ) )
5019, 49syl5eq 2668 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( 1 ... ( V  + 
1 ) )  u.  ( ( ( V  +  1 )  +  1 ) ... N
) )  \  {
( V  +  1 ) } )  =  ( ( 1 ... V )  u.  (
( ( V  + 
1 )  +  1 ) ... N ) ) )
5118, 50eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( 1 ... N )  \  {
( V  +  1 ) } )  =  ( ( 1 ... V )  u.  (
( ( V  + 
1 )  +  1 ) ... N ) ) )
5251imaeq2d 5466 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( U " (
( 1 ... N
)  \  { ( V  +  1 ) } ) )  =  ( U " (
( 1 ... V
)  u.  ( ( ( V  +  1 )  +  1 ) ... N ) ) ) )
536, 52eqtr3d 2658 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( U "
( 1 ... N
) )  \  ( U " { ( V  +  1 ) } ) )  =  ( U " ( ( 1 ... V )  u.  ( ( ( V  +  1 )  +  1 ) ... N ) ) ) )
54 imaundi 5545 . . . . . . . . . . . . 13  |-  ( U
" ( ( 1 ... V )  u.  ( ( ( V  +  1 )  +  1 ) ... N
) ) )  =  ( ( U "
( 1 ... V
) )  u.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )
5553, 54syl6eq 2672 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( U "
( 1 ... N
) )  \  ( U " { ( V  +  1 ) } ) )  =  ( ( U " (
1 ... V ) )  u.  ( U "
( ( ( V  +  1 )  +  1 ) ... N
) ) ) )
5655eleq2d 2687 . . . . . . . . . . 11  |-  ( ph  ->  ( n  e.  ( ( U " (
1 ... N ) ) 
\  ( U " { ( V  + 
1 ) } ) )  <->  n  e.  (
( U " (
1 ... V ) )  u.  ( U "
( ( ( V  +  1 )  +  1 ) ... N
) ) ) ) )
57 eldif 3584 . . . . . . . . . . 11  |-  ( n  e.  ( ( U
" ( 1 ... N ) )  \ 
( U " {
( V  +  1 ) } ) )  <-> 
( n  e.  ( U " ( 1 ... N ) )  /\  -.  n  e.  ( U " {
( V  +  1 ) } ) ) )
58 elun 3753 . . . . . . . . . . 11  |-  ( n  e.  ( ( U
" ( 1 ... V ) )  u.  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )  <->  ( n  e.  ( U " (
1 ... V ) )  \/  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) ) )
5956, 57, 583bitr3g 302 . . . . . . . . . 10  |-  ( ph  ->  ( ( n  e.  ( U " (
1 ... N ) )  /\  -.  n  e.  ( U " {
( V  +  1 ) } ) )  <-> 
( n  e.  ( U " ( 1 ... V ) )  \/  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) ) ) )
6059adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  M  <  V )  ->  ( (
n  e.  ( U
" ( 1 ... N ) )  /\  -.  n  e.  ( U " { ( V  +  1 ) } ) )  <->  ( n  e.  ( U " (
1 ... V ) )  \/  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) ) ) )
61 imassrn 5477 . . . . . . . . . . . . . . . 16  |-  ( U
" ( 1 ... V ) )  C_  ran  U
62 f1of 6137 . . . . . . . . . . . . . . . . . 18  |-  ( U : ( 1 ... N ) -1-1-onto-> ( 1 ... N
)  ->  U :
( 1 ... N
) --> ( 1 ... N ) )
631, 62syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  U : ( 1 ... N ) --> ( 1 ... N ) )
64 frn 6053 . . . . . . . . . . . . . . . . 17  |-  ( U : ( 1 ... N ) --> ( 1 ... N )  ->  ran  U  C_  ( 1 ... N ) )
6563, 64syl 17 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ran  U  C_  (
1 ... N ) )
6661, 65syl5ss 3614 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( U " (
1 ... V ) ) 
C_  ( 1 ... N ) )
6766sselda 3603 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  n  e.  ( 1 ... N
) )
68 poimirlem2.2 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  T : ( 1 ... N ) --> ZZ )
69 ffn 6045 . . . . . . . . . . . . . . . . . 18  |-  ( T : ( 1 ... N ) --> ZZ  ->  T  Fn  ( 1 ... N ) )
7068, 69syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  T  Fn  ( 1 ... N ) )
7170adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  T  Fn  ( 1 ... N
) )
72 1ex 10035 . . . . . . . . . . . . . . . . . . . . 21  |-  1  e.  _V
73 fnconstg 6093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 1  e.  _V  ->  (
( U " (
1 ... V ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... V ) ) )
7472, 73ax-mp 5 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( U " ( 1 ... V ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... V ) )
75 c0ex 10034 . . . . . . . . . . . . . . . . . . . . 21  |-  0  e.  _V
76 fnconstg 6093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 0  e.  _V  ->  (
( U " (
( V  +  1 ) ... N ) )  X.  { 0 } )  Fn  ( U " ( ( V  +  1 ) ... N ) ) )
7775, 76ax-mp 5 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } )  Fn  ( U
" ( ( V  +  1 ) ... N ) )
7874, 77pm3.2i 471 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( U " (
1 ... V ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... V ) )  /\  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } )  Fn  ( U " (
( V  +  1 ) ... N ) ) )
79 imain 5974 . . . . . . . . . . . . . . . . . . . . 21  |-  ( Fun  `' U  ->  ( U
" ( ( 1 ... V )  i^i  ( ( V  + 
1 ) ... N
) ) )  =  ( ( U "
( 1 ... V
) )  i^i  ( U " ( ( V  +  1 ) ... N ) ) ) )
804, 79syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( U " (
( 1 ... V
)  i^i  ( ( V  +  1 ) ... N ) ) )  =  ( ( U " ( 1 ... V ) )  i^i  ( U "
( ( V  + 
1 ) ... N
) ) ) )
81 fzdisj 12368 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( V  <  ( V  + 
1 )  ->  (
( 1 ... V
)  i^i  ( ( V  +  1 ) ... N ) )  =  (/) )
8229, 81syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( 1 ... V )  i^i  (
( V  +  1 ) ... N ) )  =  (/) )
8382imaeq2d 5466 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( U " (
( 1 ... V
)  i^i  ( ( V  +  1 ) ... N ) ) )  =  ( U
" (/) ) )
84 ima0 5481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( U
" (/) )  =  (/)
8583, 84syl6eq 2672 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( U " (
( 1 ... V
)  i^i  ( ( V  +  1 ) ... N ) ) )  =  (/) )
8680, 85eqtr3d 2658 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( U "
( 1 ... V
) )  i^i  ( U " ( ( V  +  1 ) ... N ) ) )  =  (/) )
87 fnun 5997 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  Fn  ( U "
( 1 ... V
) )  /\  (
( U " (
( V  +  1 ) ... N ) )  X.  { 0 } )  Fn  ( U " ( ( V  +  1 ) ... N ) ) )  /\  ( ( U
" ( 1 ... V ) )  i^i  ( U " (
( V  +  1 ) ... N ) ) )  =  (/) )  ->  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
( U " (
1 ... V ) )  u.  ( U "
( ( V  + 
1 ) ... N
) ) ) )
8878, 86, 87sylancr 695 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) )  Fn  ( ( U " ( 1 ... V ) )  u.  ( U "
( ( V  + 
1 ) ... N
) ) ) )
89 imaundi 5545 . . . . . . . . . . . . . . . . . . . 20  |-  ( U
" ( ( 1 ... V )  u.  ( ( V  + 
1 ) ... N
) ) )  =  ( ( U "
( 1 ... V
) )  u.  ( U " ( ( V  +  1 ) ... N ) ) )
9010nnzd 11481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  N  e.  ZZ )
91 peano2zm 11420 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( N  e.  ZZ  ->  ( N  -  1 )  e.  ZZ )
9290, 91syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( N  -  1 )  e.  ZZ )
93 uzid 11702 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( N  -  1 )  e.  ZZ  ->  ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
9492, 93syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1
) ) )
95 peano2uz 11741 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) )  ->  ( ( N  -  1 )  +  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
9694, 95syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  ->  ( ( N  - 
1 )  +  1 )  e.  ( ZZ>= `  ( N  -  1
) ) )
9713, 96eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  N  e.  ( ZZ>= `  ( N  -  1
) ) )
98 fzss2 12381 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  ( ZZ>= `  ( N  -  1 ) )  ->  ( 1 ... ( N  - 
1 ) )  C_  ( 1 ... N
) )
9997, 98syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ( 1 ... ( N  -  1 ) )  C_  ( 1 ... N ) )
10099, 7sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  V  e.  ( 1 ... N ) )
101 fzsplit 12367 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( V  e.  ( 1 ... N )  ->  (
1 ... N )  =  ( ( 1 ... V )  u.  (
( V  +  1 ) ... N ) ) )
102100, 101syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( 1 ... N
)  =  ( ( 1 ... V )  u.  ( ( V  +  1 ) ... N ) ) )
103102imaeq2d 5466 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( U " (
1 ... N ) )  =  ( U "
( ( 1 ... V )  u.  (
( V  +  1 ) ... N ) ) ) )
104 f1ofo 6144 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( U : ( 1 ... N ) -1-1-onto-> ( 1 ... N
)  ->  U :
( 1 ... N
) -onto-> ( 1 ... N ) )
1051, 104syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  U : ( 1 ... N ) -onto-> ( 1 ... N ) )
106 foima 6120 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( U : ( 1 ... N ) -onto-> ( 1 ... N )  -> 
( U " (
1 ... N ) )  =  ( 1 ... N ) )
107105, 106syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( U " (
1 ... N ) )  =  ( 1 ... N ) )
108103, 107eqtr3d 2658 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( U " (
( 1 ... V
)  u.  ( ( V  +  1 ) ... N ) ) )  =  ( 1 ... N ) )
10989, 108syl5eqr 2670 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( U "
( 1 ... V
) )  u.  ( U " ( ( V  +  1 ) ... N ) ) )  =  ( 1 ... N ) )
110109fneq2d 5982 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
( U " (
1 ... V ) )  u.  ( U "
( ( V  + 
1 ) ... N
) ) )  <->  ( (
( U " (
1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) ) )
11188, 110mpbid 222 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) )  Fn  ( 1 ... N ) )
112111adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  ( (
( U " (
1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) )
113 fzfid 12772 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  ( 1 ... N )  e. 
Fin )
114 inidm 3822 . . . . . . . . . . . . . . . 16  |-  ( ( 1 ... N )  i^i  ( 1 ... N ) )  =  ( 1 ... N
)
115 eqidd 2623 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... V ) ) )  /\  n  e.  ( 1 ... N
) )  ->  ( T `  n )  =  ( T `  n ) )
116 fvun1 6269 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  Fn  ( U " (
1 ... V ) )  /\  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } )  Fn  ( U "
( ( V  + 
1 ) ... N
) )  /\  (
( ( U "
( 1 ... V
) )  i^i  ( U " ( ( V  +  1 ) ... N ) ) )  =  (/)  /\  n  e.  ( U " (
1 ... V ) ) ) )  ->  (
( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( U " ( 1 ... V ) )  X.  { 1 } ) `  n ) )
11774, 77, 116mp3an12 1414 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( U "
( 1 ... V
) )  i^i  ( U " ( ( V  +  1 ) ... N ) ) )  =  (/)  /\  n  e.  ( U " (
1 ... V ) ) )  ->  ( (
( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } ) `
 n ) )
11886, 117sylan 488 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  ( (
( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } ) `
 n ) )
11972fvconst2 6469 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  ( U "
( 1 ... V
) )  ->  (
( ( U "
( 1 ... V
) )  X.  {
1 } ) `  n )  =  1 )
120119adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  ( (
( U " (
1 ... V ) )  X.  { 1 } ) `  n )  =  1 )
121118, 120eqtrd 2656 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  ( (
( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  1 )
122121adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... V ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  1 )
12371, 112, 113, 113, 114, 115, 122ofval 6906 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... V ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T `  n
)  +  1 ) )
124 fnconstg 6093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 1  e.  _V  ->  (
( U " (
1 ... ( V  + 
1 ) ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... ( V  +  1 ) ) ) )
12572, 124ax-mp 5 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... ( V  +  1 ) ) )
126 fnconstg 6093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 0  e.  _V  ->  (
( U " (
( ( V  + 
1 )  +  1 ) ... N ) )  X.  { 0 } )  Fn  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )
12775, 126ax-mp 5 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } )  Fn  ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )
128125, 127pm3.2i 471 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( U " (
1 ... ( V  + 
1 ) ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... ( V  +  1 ) ) )  /\  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } )  Fn  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )
129 imain 5974 . . . . . . . . . . . . . . . . . . . . 21  |-  ( Fun  `' U  ->  ( U
" ( ( 1 ... ( V  + 
1 ) )  i^i  ( ( ( V  +  1 )  +  1 ) ... N
) ) )  =  ( ( U "
( 1 ... ( V  +  1 ) ) )  i^i  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) ) )
1304, 129syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( U " (
( 1 ... ( V  +  1 ) )  i^i  ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  ( ( U " ( 1 ... ( V  + 
1 ) ) )  i^i  ( U "
( ( ( V  +  1 )  +  1 ) ... N
) ) ) )
131 fzdisj 12368 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( V  +  1 )  <  ( ( V  +  1 )  +  1 )  ->  (
( 1 ... ( V  +  1 ) )  i^i  ( ( ( V  +  1 )  +  1 ) ... N ) )  =  (/) )
13240, 131syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( 1 ... ( V  +  1 ) )  i^i  (
( ( V  + 
1 )  +  1 ) ... N ) )  =  (/) )
133132imaeq2d 5466 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( U " (
( 1 ... ( V  +  1 ) )  i^i  ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  ( U
" (/) ) )
134133, 84syl6eq 2672 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( U " (
( 1 ... ( V  +  1 ) )  i^i  ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  (/) )
135130, 134eqtr3d 2658 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( U "
( 1 ... ( V  +  1 ) ) )  i^i  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  (/) )
136 fnun 5997 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } )  Fn  ( U "
( 1 ... ( V  +  1 ) ) )  /\  (
( U " (
( ( V  + 
1 )  +  1 ) ... N ) )  X.  { 0 } )  Fn  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  /\  ( ( U
" ( 1 ... ( V  +  1 ) ) )  i^i  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )  =  (/) )  ->  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
( U " (
1 ... ( V  + 
1 ) ) )  u.  ( U "
( ( ( V  +  1 )  +  1 ) ... N
) ) ) )
137128, 135, 136sylancr 695 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } ) )  Fn  ( ( U " ( 1 ... ( V  + 
1 ) ) )  u.  ( U "
( ( ( V  +  1 )  +  1 ) ... N
) ) ) )
138 imaundi 5545 . . . . . . . . . . . . . . . . . . . 20  |-  ( U
" ( ( 1 ... ( V  + 
1 ) )  u.  ( ( ( V  +  1 )  +  1 ) ... N
) ) )  =  ( ( U "
( 1 ... ( V  +  1 ) ) )  u.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )
13917imaeq2d 5466 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( U " (
1 ... N ) )  =  ( U "
( ( 1 ... ( V  +  1 ) )  u.  (
( ( V  + 
1 )  +  1 ) ... N ) ) ) )
140139, 107eqtr3d 2658 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( U " (
( 1 ... ( V  +  1 ) )  u.  ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  ( 1 ... N ) )
141138, 140syl5eqr 2670 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( U "
( 1 ... ( V  +  1 ) ) )  u.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  ( 1 ... N ) )
142141fneq2d 5982 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
( U " (
1 ... ( V  + 
1 ) ) )  u.  ( U "
( ( ( V  +  1 )  +  1 ) ... N
) ) )  <->  ( (
( U " (
1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) ) )
143137, 142mpbid 222 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } ) )  Fn  ( 1 ... N ) )
144143adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  ( (
( U " (
1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) )
145 uzid 11702 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( V  e.  ZZ  ->  V  e.  ( ZZ>= `  V )
)
14627, 145syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  V  e.  ( ZZ>= `  V ) )
147 peano2uz 11741 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( V  e.  ( ZZ>= `  V
)  ->  ( V  +  1 )  e.  ( ZZ>= `  V )
)
148146, 147syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( V  +  1 )  e.  ( ZZ>= `  V ) )
149 fzss2 12381 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( V  +  1 )  e.  ( ZZ>= `  V
)  ->  ( 1 ... V )  C_  ( 1 ... ( V  +  1 ) ) )
150148, 149syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( 1 ... V
)  C_  ( 1 ... ( V  + 
1 ) ) )
151 imass2 5501 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( 1 ... V ) 
C_  ( 1 ... ( V  +  1 ) )  ->  ( U " ( 1 ... V ) )  C_  ( U " ( 1 ... ( V  + 
1 ) ) ) )
152150, 151syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( U " (
1 ... V ) ) 
C_  ( U "
( 1 ... ( V  +  1 ) ) ) )
153152sselda 3603 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  n  e.  ( U " ( 1 ... ( V  + 
1 ) ) ) )
154 fvun1 6269 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  Fn  ( U " (
1 ... ( V  + 
1 ) ) )  /\  ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } )  Fn  ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  /\  (
( ( U "
( 1 ... ( V  +  1 ) ) )  i^i  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  (/)  /\  n  e.  ( U " (
1 ... ( V  + 
1 ) ) ) ) )  ->  (
( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } ) `  n ) )
155125, 127, 154mp3an12 1414 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( U "
( 1 ... ( V  +  1 ) ) )  i^i  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  (/)  /\  n  e.  ( U " (
1 ... ( V  + 
1 ) ) ) )  ->  ( (
( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } ) `
 n ) )
156135, 155sylan 488 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  + 
1 ) ) ) )  ->  ( (
( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } ) `
 n ) )
15772fvconst2 6469 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  ( U "
( 1 ... ( V  +  1 ) ) )  ->  (
( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } ) `  n )  =  1 )
158157adantl 482 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  + 
1 ) ) ) )  ->  ( (
( U " (
1 ... ( V  + 
1 ) ) )  X.  { 1 } ) `  n )  =  1 )
159156, 158eqtrd 2656 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  + 
1 ) ) ) )  ->  ( (
( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  1 )
160153, 159syldan 487 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  ( (
( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  1 )
161160adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... V ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  1 )
16271, 144, 113, 113, 114, 115, 161ofval 6906 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... V ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T `  n
)  +  1 ) )
163123, 162eqtr4d 2659 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... V ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
16467, 163mpdan 702 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... V ) ) )  ->  ( ( T  oF  +  ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) ) `  n ) )
165 imassrn 5477 . . . . . . . . . . . . . . . 16  |-  ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  C_  ran  U
166165, 65syl5ss 3614 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) )  C_  ( 1 ... N ) )
167166sselda 3603 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  n  e.  ( 1 ... N
) )
16870adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  T  Fn  ( 1 ... N
) )
169111adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  ( (
( U " (
1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) )
170 fzfid 12772 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  ( 1 ... N )  e. 
Fin )
171 eqidd 2623 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  ( T `  n )  =  ( T `  n ) )
172 uzid 11702 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( V  +  1 )  e.  ZZ  ->  ( V  +  1 )  e.  ( ZZ>= `  ( V  +  1 ) ) )
17330, 172syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( V  +  1 )  e.  ( ZZ>= `  ( V  +  1
) ) )
174 peano2uz 11741 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( V  +  1 )  e.  ( ZZ>= `  ( V  +  1 ) )  ->  ( ( V  +  1 )  +  1 )  e.  ( ZZ>= `  ( V  +  1 ) ) )
175173, 174syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( V  + 
1 )  +  1 )  e.  ( ZZ>= `  ( V  +  1
) ) )
176 fzss1 12380 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( V  +  1 )  +  1 )  e.  ( ZZ>= `  ( V  +  1 ) )  ->  ( (
( V  +  1 )  +  1 ) ... N )  C_  ( ( V  + 
1 ) ... N
) )
177175, 176syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( ( V  +  1 )  +  1 ) ... N
)  C_  ( ( V  +  1 ) ... N ) )
178 imass2 5501 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( V  + 
1 )  +  1 ) ... N ) 
C_  ( ( V  +  1 ) ... N )  ->  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  C_  ( U " ( ( V  +  1 ) ... N ) ) )
179177, 178syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) )  C_  ( U " ( ( V  + 
1 ) ... N
) ) )
180179sselda 3603 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )
181 fvun2 6270 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  Fn  ( U " (
1 ... V ) )  /\  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } )  Fn  ( U "
( ( V  + 
1 ) ... N
) )  /\  (
( ( U "
( 1 ... V
) )  i^i  ( U " ( ( V  +  1 ) ... N ) ) )  =  (/)  /\  n  e.  ( U " (
( V  +  1 ) ... N ) ) ) )  -> 
( ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) `  n
)  =  ( ( ( U " (
( V  +  1 ) ... N ) )  X.  { 0 } ) `  n
) )
18274, 77, 181mp3an12 1414 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( U "
( 1 ... V
) )  i^i  ( U " ( ( V  +  1 ) ... N ) ) )  =  (/)  /\  n  e.  ( U " (
( V  +  1 ) ... N ) ) )  ->  (
( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) `  n ) )
18386, 182sylan 488 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  ( (
( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) `
 n ) )
18475fvconst2 6469 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  ( U "
( ( V  + 
1 ) ... N
) )  ->  (
( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) `  n )  =  0 )
185184adantl 482 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  ( (
( U " (
( V  +  1 ) ... N ) )  X.  { 0 } ) `  n
)  =  0 )
186183, 185eqtrd 2656 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  ( (
( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  0 )
187180, 186syldan 487 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  ( (
( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  0 )
188187adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  0 )
189168, 169, 170, 170, 114, 171, 188ofval 6906 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T `  n
)  +  0 ) )
190143adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  ( (
( U " (
1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) )
191 fvun2 6270 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  Fn  ( U " (
1 ... ( V  + 
1 ) ) )  /\  ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } )  Fn  ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  /\  (
( ( U "
( 1 ... ( V  +  1 ) ) )  i^i  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  (/)  /\  n  e.  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) ) )  -> 
( ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) `  n
)  =  ( ( ( U " (
( ( V  + 
1 )  +  1 ) ... N ) )  X.  { 0 } ) `  n
) )
192125, 127, 191mp3an12 1414 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( U "
( 1 ... ( V  +  1 ) ) )  i^i  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  =  (/)  /\  n  e.  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )  ->  (
( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) `  n ) )
193135, 192sylan 488 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  ( (
( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } ) `
 n ) )
19475fvconst2 6469 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  ->  (
( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) `  n )  =  0 )
195194adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  ( (
( U " (
( ( V  + 
1 )  +  1 ) ... N ) )  X.  { 0 } ) `  n
)  =  0 )
196193, 195eqtrd 2656 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  ( (
( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  0 )
197196adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  0 )
198168, 190, 170, 170, 114, 171, 197ofval 6906 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T `  n
)  +  0 ) )
199189, 198eqtr4d 2659 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
200167, 199mpdan 702 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  ( ( T  oF  +  ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) ) `  n ) )
201164, 200jaodan 826 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( n  e.  ( U " (
1 ... V ) )  \/  n  e.  ( U " ( ( ( V  +  1 )  +  1 ) ... N ) ) ) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
202201adantlr 751 . . . . . . . . . . 11  |-  ( ( ( ph  /\  M  <  V )  /\  (
n  e.  ( U
" ( 1 ... V ) )  \/  n  e.  ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) ) ) )  ->  ( ( T  oF  +  ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) ) `  n ) )
203 poimirlem2.1 . . . . . . . . . . . . . . 15  |-  ( ph  ->  F  =  ( y  e.  ( 0 ... ( N  -  1 ) )  |->  [_ if ( y  <  M ,  y ,  ( y  +  1 ) )  /  j ]_ ( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) ) ) )
204203adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  M  <  V )  ->  F  =  ( y  e.  ( 0 ... ( N  -  1 ) ) 
|->  [_ if ( y  <  M ,  y ,  ( y  +  1 ) )  / 
j ]_ ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) ) ) )
205 vex 3203 . . . . . . . . . . . . . . . . 17  |-  y  e. 
_V
206 ovex 6678 . . . . . . . . . . . . . . . . 17  |-  ( y  +  1 )  e. 
_V
207205, 206ifex 4156 . . . . . . . . . . . . . . . 16  |-  if ( y  <  M , 
y ,  ( y  +  1 ) )  e.  _V
208207a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  ( V  - 
1 ) )  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  e.  _V )
209 breq1 4656 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  =  ( V  - 
1 )  ->  (
y  <  M  <->  ( V  -  1 )  < 
M ) )
210209adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  y  =  ( V  -  1
) )  ->  (
y  <  M  <->  ( V  -  1 )  < 
M ) )
211 simpr 477 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  y  =  ( V  -  1
) )  ->  y  =  ( V  - 
1 ) )
212 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  =  ( V  - 
1 )  ->  (
y  +  1 )  =  ( ( V  -  1 )  +  1 ) )
21327zcnd 11483 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  V  e.  CC )
214 npcan1 10455 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( V  e.  CC  ->  (
( V  -  1 )  +  1 )  =  V )
215213, 214syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( V  - 
1 )  +  1 )  =  V )
216212, 215sylan9eqr 2678 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  y  =  ( V  -  1
) )  ->  (
y  +  1 )  =  V )
217210, 211, 216ifbieq12d 4113 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  y  =  ( V  -  1
) )  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  =  if ( ( V  -  1 )  <  M , 
( V  -  1 ) ,  V ) )
218217adantlr 751 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  ( V  - 
1 ) )  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  =  if ( ( V  -  1 )  <  M , 
( V  -  1 ) ,  V ) )
219 poimirlem2.5 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  ->  M  e.  ( ( 0 ... N ) 
\  { V }
) )
220219eldifad 3586 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  M  e.  ( 0 ... N ) )
221 elfzelz 12342 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( M  e.  ( 0 ... N )  ->  M  e.  ZZ )
222220, 221syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  M  e.  ZZ )
223 zltlem1 11430 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( M  e.  ZZ  /\  V  e.  ZZ )  ->  ( M  <  V  <->  M  <_  ( V  - 
1 ) ) )
224222, 27, 223syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( M  <  V  <->  M  <_  ( V  - 
1 ) ) )
225222zred 11482 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  M  e.  RR )
226 peano2zm 11420 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( V  e.  ZZ  ->  ( V  -  1 )  e.  ZZ )
22727, 226syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  ( V  -  1 )  e.  ZZ )
228227zred 11482 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ( V  -  1 )  e.  RR )
229225, 228lenltd 10183 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( M  <_  ( V  -  1 )  <->  -.  ( V  -  1 )  <  M ) )
230224, 229bitrd 268 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( M  <  V  <->  -.  ( V  -  1 )  <  M ) )
231230biimpa 501 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  M  <  V )  ->  -.  ( V  -  1 )  <  M )
232231iffalsed 4097 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  M  <  V )  ->  if (
( V  -  1 )  <  M , 
( V  -  1 ) ,  V )  =  V )
233232adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  ( V  - 
1 ) )  ->  if ( ( V  - 
1 )  <  M ,  ( V  - 
1 ) ,  V
)  =  V )
234218, 233eqtrd 2656 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  ( V  - 
1 ) )  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  =  V )
235234eqeq2d 2632 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  ( V  - 
1 ) )  -> 
( j  =  if ( y  <  M ,  y ,  ( y  +  1 ) )  <->  j  =  V ) )
236235biimpa 501 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  M  <  V )  /\  y  =  ( V  -  1 ) )  /\  j  =  if ( y  <  M ,  y ,  ( y  +  1 ) ) )  ->  j  =  V )
237 oveq2 6658 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  V  ->  (
1 ... j )  =  ( 1 ... V
) )
238237imaeq2d 5466 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  V  ->  ( U " ( 1 ... j ) )  =  ( U " (
1 ... V ) ) )
239238xpeq1d 5138 . . . . . . . . . . . . . . . . . 18  |-  ( j  =  V  ->  (
( U " (
1 ... j ) )  X.  { 1 } )  =  ( ( U " ( 1 ... V ) )  X.  { 1 } ) )
240 oveq1 6657 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  =  V  ->  (
j  +  1 )  =  ( V  + 
1 ) )
241240oveq1d 6665 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  V  ->  (
( j  +  1 ) ... N )  =  ( ( V  +  1 ) ... N ) )
242241imaeq2d 5466 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  V  ->  ( U " ( ( j  +  1 ) ... N ) )  =  ( U " (
( V  +  1 ) ... N ) ) )
243242xpeq1d 5138 . . . . . . . . . . . . . . . . . 18  |-  ( j  =  V  ->  (
( U " (
( j  +  1 ) ... N ) )  X.  { 0 } )  =  ( ( U " (
( V  +  1 ) ... N ) )  X.  { 0 } ) )
244239, 243uneq12d 3768 . . . . . . . . . . . . . . . . 17  |-  ( j  =  V  ->  (
( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) )  =  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) )
245244oveq2d 6666 . . . . . . . . . . . . . . . 16  |-  ( j  =  V  ->  ( T  oF  +  ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) ) )  =  ( T  oF  +  ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) ) )
246236, 245syl 17 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  M  <  V )  /\  y  =  ( V  -  1 ) )  /\  j  =  if ( y  <  M ,  y ,  ( y  +  1 ) ) )  ->  ( T  oF  +  ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) ) )  =  ( T  oF  +  ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) ) )
247208, 246csbied 3560 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  ( V  - 
1 ) )  ->  [_ if ( y  < 
M ,  y ,  ( y  +  1 ) )  /  j ]_ ( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) )  =  ( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) )
248 elfzm1b 12418 . . . . . . . . . . . . . . . . 17  |-  ( ( V  e.  ZZ  /\  N  e.  ZZ )  ->  ( V  e.  ( 1 ... N )  <-> 
( V  -  1 )  e.  ( 0 ... ( N  - 
1 ) ) ) )
24927, 90, 248syl2anc 693 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( V  e.  ( 1 ... N )  <-> 
( V  -  1 )  e.  ( 0 ... ( N  - 
1 ) ) ) )
250100, 249mpbid 222 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( V  -  1 )  e.  ( 0 ... ( N  - 
1 ) ) )
251250adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  M  <  V )  ->  ( V  -  1 )  e.  ( 0 ... ( N  -  1 ) ) )
252 ovexd 6680 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  M  <  V )  ->  ( T  oF  +  (
( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) )  e.  _V )
253204, 247, 251, 252fvmptd 6288 . . . . . . . . . . . . 13  |-  ( (
ph  /\  M  <  V )  ->  ( F `  ( V  -  1 ) )  =  ( T  oF  +  ( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) ) ) )
254253fveq1d 6193 . . . . . . . . . . . 12  |-  ( (
ph  /\  M  <  V )  ->  ( ( F `  ( V  -  1 ) ) `
 n )  =  ( ( T  oF  +  ( (
( U " (
1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
255254adantr 481 . . . . . . . . . . 11  |-  ( ( ( ph  /\  M  <  V )  /\  (
n  e.  ( U
" ( 1 ... V ) )  \/  n  e.  ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) ) ) )  ->  ( ( F `  ( V  -  1 ) ) `
 n )  =  ( ( T  oF  +  ( (
( U " (
1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
256207a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  V )  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  e.  _V )
257 breq1 4656 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  =  V  ->  (
y  <  M  <->  V  <  M ) )
258 id 22 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  =  V  ->  y  =  V )
259 oveq1 6657 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  =  V  ->  (
y  +  1 )  =  ( V  + 
1 ) )
260257, 258, 259ifbieq12d 4113 . . . . . . . . . . . . . . . . . . 19  |-  ( y  =  V  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  =  if ( V  <  M ,  V ,  ( V  +  1 ) ) )
261 ltnsym 10135 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( M  e.  RR  /\  V  e.  RR )  ->  ( M  <  V  ->  -.  V  <  M
) )
262225, 28, 261syl2anc 693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( M  <  V  ->  -.  V  <  M
) )
263262imp 445 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  M  <  V )  ->  -.  V  <  M )
264263iffalsed 4097 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  M  <  V )  ->  if ( V  <  M ,  V ,  ( V  + 
1 ) )  =  ( V  +  1 ) )
265260, 264sylan9eqr 2678 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  V )  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  =  ( V  +  1 ) )
266265eqeq2d 2632 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  V )  ->  (
j  =  if ( y  <  M , 
y ,  ( y  +  1 ) )  <-> 
j  =  ( V  +  1 ) ) )
267266biimpa 501 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  M  <  V )  /\  y  =  V )  /\  j  =  if ( y  <  M ,  y ,  ( y  +  1 ) ) )  ->  j  =  ( V  + 
1 ) )
268 oveq2 6658 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  ( V  + 
1 )  ->  (
1 ... j )  =  ( 1 ... ( V  +  1 ) ) )
269268imaeq2d 5466 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  ( V  + 
1 )  ->  ( U " ( 1 ... j ) )  =  ( U " (
1 ... ( V  + 
1 ) ) ) )
270269xpeq1d 5138 . . . . . . . . . . . . . . . . . 18  |-  ( j  =  ( V  + 
1 )  ->  (
( U " (
1 ... j ) )  X.  { 1 } )  =  ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } ) )
271 oveq1 6657 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  =  ( V  + 
1 )  ->  (
j  +  1 )  =  ( ( V  +  1 )  +  1 ) )
272271oveq1d 6665 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  ( V  + 
1 )  ->  (
( j  +  1 ) ... N )  =  ( ( ( V  +  1 )  +  1 ) ... N ) )
273272imaeq2d 5466 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  ( V  + 
1 )  ->  ( U " ( ( j  +  1 ) ... N ) )  =  ( U " (
( ( V  + 
1 )  +  1 ) ... N ) ) )
274273xpeq1d 5138 . . . . . . . . . . . . . . . . . 18  |-  ( j  =  ( V  + 
1 )  ->  (
( U " (
( j  +  1 ) ... N ) )  X.  { 0 } )  =  ( ( U " (
( ( V  + 
1 )  +  1 ) ... N ) )  X.  { 0 } ) )
275270, 274uneq12d 3768 . . . . . . . . . . . . . . . . 17  |-  ( j  =  ( V  + 
1 )  ->  (
( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) )  =  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) )
276275oveq2d 6666 . . . . . . . . . . . . . . . 16  |-  ( j  =  ( V  + 
1 )  ->  ( T  oF  +  ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) ) )  =  ( T  oF  +  ( ( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) ) )
277267, 276syl 17 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  M  <  V )  /\  y  =  V )  /\  j  =  if ( y  <  M ,  y ,  ( y  +  1 ) ) )  ->  ( T  oF  +  ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) ) )  =  ( T  oF  +  ( ( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) ) )
278256, 277csbied 3560 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  M  <  V )  /\  y  =  V )  ->  [_ if ( y  <  M ,  y ,  ( y  +  1 ) )  /  j ]_ ( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) )  =  ( T  oF  +  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) ) )
279 1eluzge0 11732 . . . . . . . . . . . . . . . . 17  |-  1  e.  ( ZZ>= `  0 )
280 fzss1 12380 . . . . . . . . . . . . . . . . 17  |-  ( 1  e.  ( ZZ>= `  0
)  ->  ( 1 ... ( N  - 
1 ) )  C_  ( 0 ... ( N  -  1 ) ) )
281279, 280ax-mp 5 . . . . . . . . . . . . . . . 16  |-  ( 1 ... ( N  - 
1 ) )  C_  ( 0 ... ( N  -  1 ) )
282281, 7sseldi 3601 . . . . . . . . . . . . . . 15  |-  ( ph  ->  V  e.  ( 0 ... ( N  - 
1 ) ) )
283282adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  M  <  V )  ->  V  e.  ( 0 ... ( N  -  1 ) ) )
284 ovexd 6680 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  M  <  V )  ->  ( T  oF  +  (
( ( U "
( 1 ... ( V  +  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( ( ( V  +  1 )  +  1 ) ... N
) )  X.  {
0 } ) ) )  e.  _V )
285204, 278, 283, 284fvmptd 6288 . . . . . . . . . . . . 13  |-  ( (
ph  /\  M  <  V )  ->  ( F `  V )  =  ( T  oF  +  ( ( ( U
" ( 1 ... ( V  +  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) )  X. 
{ 0 } ) ) ) )
286285fveq1d 6193 . . . . . . . . . . . 12  |-  ( (
ph  /\  M  <  V )  ->  ( ( F `  V ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
287286adantr 481 . . . . . . . . . . 11  |-  ( ( ( ph  /\  M  <  V )  /\  (
n  e.  ( U
" ( 1 ... V ) )  \/  n  e.  ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) ) ) )  ->  ( ( F `  V ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... ( V  + 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( ( ( V  +  1 )  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
288202, 255, 2873eqtr4d 2666 . . . . . . . . . 10  |-  ( ( ( ph  /\  M  <  V )  /\  (
n  e.  ( U
" ( 1 ... V ) )  \/  n  e.  ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) ) ) )  ->  ( ( F `  ( V  -  1 ) ) `
 n )  =  ( ( F `  V ) `  n
) )
289288ex 450 . . . . . . . . 9  |-  ( (
ph  /\  M  <  V )  ->  ( (
n  e.  ( U
" ( 1 ... V ) )  \/  n  e.  ( U
" ( ( ( V  +  1 )  +  1 ) ... N ) ) )  ->  ( ( F `
 ( V  - 
1 ) ) `  n )  =  ( ( F `  V
) `  n )
) )
29060, 289sylbid 230 . . . . . . . 8  |-  ( (
ph  /\  M  <  V )  ->  ( (
n  e.  ( U
" ( 1 ... N ) )  /\  -.  n  e.  ( U " { ( V  +  1 ) } ) )  ->  (
( F `  ( V  -  1 ) ) `  n )  =  ( ( F `
 V ) `  n ) ) )
291290expdimp 453 . . . . . . 7  |-  ( ( ( ph  /\  M  <  V )  /\  n  e.  ( U " (
1 ... N ) ) )  ->  ( -.  n  e.  ( U " { ( V  + 
1 ) } )  ->  ( ( F `
 ( V  - 
1 ) ) `  n )  =  ( ( F `  V
) `  n )
) )
292291necon1ad 2811 . . . . . 6  |-  ( ( ( ph  /\  M  <  V )  /\  n  e.  ( U " (
1 ... N ) ) )  ->  ( (
( F `  ( V  -  1 ) ) `  n )  =/=  ( ( F `
 V ) `  n )  ->  n  e.  ( U " {
( V  +  1 ) } ) ) )
293 elimasni 5492 . . . . . . . 8  |-  ( n  e.  ( U " { ( V  + 
1 ) } )  ->  ( V  + 
1 ) U n )
294 eqcom 2629 . . . . . . . . 9  |-  ( n  =  ( U `  ( V  +  1
) )  <->  ( U `  ( V  +  1 ) )  =  n )
295 f1ofn 6138 . . . . . . . . . . 11  |-  ( U : ( 1 ... N ) -1-1-onto-> ( 1 ... N
)  ->  U  Fn  ( 1 ... N
) )
2961, 295syl 17 . . . . . . . . . 10  |-  ( ph  ->  U  Fn  ( 1 ... N ) )
297 fnbrfvb 6236 . . . . . . . . . 10  |-  ( ( U  Fn  ( 1 ... N )  /\  ( V  +  1
)  e.  ( 1 ... N ) )  ->  ( ( U `
 ( V  + 
1 ) )  =  n  <->  ( V  + 
1 ) U n ) )
298296, 15, 297syl2anc 693 . . . . . . . . 9  |-  ( ph  ->  ( ( U `  ( V  +  1
) )  =  n  <-> 
( V  +  1 ) U n ) )
299294, 298syl5bb 272 . . . . . . . 8  |-  ( ph  ->  ( n  =  ( U `  ( V  +  1 ) )  <-> 
( V  +  1 ) U n ) )
300293, 299syl5ibr 236 . . . . . . 7  |-  ( ph  ->  ( n  e.  ( U " { ( V  +  1 ) } )  ->  n  =  ( U `  ( V  +  1
) ) ) )
301300ad2antrr 762 . . . . . 6  |-  ( ( ( ph  /\  M  <  V )  /\  n  e.  ( U " (
1 ... N ) ) )  ->  ( n  e.  ( U " {
( V  +  1 ) } )  ->  n  =  ( U `  ( V  +  1 ) ) ) )
302292, 301syld 47 . . . . 5  |-  ( ( ( ph  /\  M  <  V )  /\  n  e.  ( U " (
1 ... N ) ) )  ->  ( (
( F `  ( V  -  1 ) ) `  n )  =/=  ( ( F `
 V ) `  n )  ->  n  =  ( U `  ( V  +  1
) ) ) )
303302ralrimiva 2966 . . . 4  |-  ( (
ph  /\  M  <  V )  ->  A. n  e.  ( U " (
1 ... N ) ) ( ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )  ->  n  =  ( U `
 ( V  + 
1 ) ) ) )
304 fvex 6201 . . . . 5  |-  ( U `
 ( V  + 
1 ) )  e. 
_V
305 eqeq2 2633 . . . . . . 7  |-  ( m  =  ( U `  ( V  +  1
) )  ->  (
n  =  m  <->  n  =  ( U `  ( V  +  1 ) ) ) )
306305imbi2d 330 . . . . . 6  |-  ( m  =  ( U `  ( V  +  1
) )  ->  (
( ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )  ->  n  =  m )  <-> 
( ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )  ->  n  =  ( U `
 ( V  + 
1 ) ) ) ) )
307306ralbidv 2986 . . . . 5  |-  ( m  =  ( U `  ( V  +  1
) )  ->  ( A. n  e.  ( U " ( 1 ... N ) ) ( ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n )  ->  n  =  m )  <->  A. n  e.  ( U
" ( 1 ... N ) ) ( ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n )  ->  n  =  ( U `  ( V  +  1 ) ) ) ) )
308304, 307spcev 3300 . . . 4  |-  ( A. n  e.  ( U " ( 1 ... N
) ) ( ( ( F `  ( V  -  1 ) ) `  n )  =/=  ( ( F `
 V ) `  n )  ->  n  =  ( U `  ( V  +  1
) ) )  ->  E. m A. n  e.  ( U " (
1 ... N ) ) ( ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )  ->  n  =  m ) )
309303, 308syl 17 . . 3  |-  ( (
ph  /\  M  <  V )  ->  E. m A. n  e.  ( U " ( 1 ... N ) ) ( ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n )  ->  n  =  m )
)
310 imadif 5973 . . . . . . . . . . . . . . 15  |-  ( Fun  `' U  ->  ( U
" ( ( 1 ... N )  \  { V } ) )  =  ( ( U
" ( 1 ... N ) )  \ 
( U " { V } ) ) )
3114, 310syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( U " (
( 1 ... N
)  \  { V } ) )  =  ( ( U "
( 1 ... N
) )  \  ( U " { V }
) ) )
312102difeq1d 3727 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( 1 ... N )  \  { V } )  =  ( ( ( 1 ... V )  u.  (
( V  +  1 ) ... N ) )  \  { V } ) )
313 difundir 3880 . . . . . . . . . . . . . . . . 17  |-  ( ( ( 1 ... V
)  u.  ( ( V  +  1 ) ... N ) ) 
\  { V }
)  =  ( ( ( 1 ... V
)  \  { V } )  u.  (
( ( V  + 
1 ) ... N
)  \  { V } ) )
314215, 21eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( V  - 
1 )  +  1 )  e.  ( ZZ>= ` 
1 ) )
315 uzid 11702 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( V  -  1 )  e.  ZZ  ->  ( V  -  1 )  e.  ( ZZ>= `  ( V  -  1 ) ) )
316227, 315syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ( V  -  1 )  e.  ( ZZ>= `  ( V  -  1
) ) )
317 peano2uz 11741 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( V  -  1 )  e.  ( ZZ>= `  ( V  -  1 ) )  ->  ( ( V  -  1 )  +  1 )  e.  ( ZZ>= `  ( V  -  1 ) ) )
318316, 317syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( ( V  - 
1 )  +  1 )  e.  ( ZZ>= `  ( V  -  1
) ) )
319215, 318eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  V  e.  ( ZZ>= `  ( V  -  1
) ) )
320 fzsplit2 12366 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( V  - 
1 )  +  1 )  e.  ( ZZ>= ` 
1 )  /\  V  e.  ( ZZ>= `  ( V  -  1 ) ) )  ->  ( 1 ... V )  =  ( ( 1 ... ( V  -  1 ) )  u.  (
( ( V  - 
1 )  +  1 ) ... V ) ) )
321314, 319, 320syl2anc 693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( 1 ... V
)  =  ( ( 1 ... ( V  -  1 ) )  u.  ( ( ( V  -  1 )  +  1 ) ... V ) ) )
322215oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( ( ( V  -  1 )  +  1 ) ... V
)  =  ( V ... V ) )
323 fzsn 12383 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( V  e.  ZZ  ->  ( V ... V )  =  { V } )
32427, 323syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( V ... V
)  =  { V } )
325322, 324eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( ( V  -  1 )  +  1 ) ... V
)  =  { V } )
326325uneq2d 3767 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( 1 ... ( V  -  1 ) )  u.  (
( ( V  - 
1 )  +  1 ) ... V ) )  =  ( ( 1 ... ( V  -  1 ) )  u.  { V }
) )
327321, 326eqtrd 2656 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( 1 ... V
)  =  ( ( 1 ... ( V  -  1 ) )  u.  { V }
) )
328327difeq1d 3727 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( 1 ... V )  \  { V } )  =  ( ( ( 1 ... ( V  -  1 ) )  u.  { V } )  \  { V } ) )
329 difun2 4048 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( 1 ... ( V  -  1 ) )  u.  { V } )  \  { V } )  =  ( ( 1 ... ( V  -  1 ) )  \  { V } )
33028ltm1d 10956 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( V  -  1 )  <  V )
331228, 28ltnled 10184 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( ( V  - 
1 )  <  V  <->  -.  V  <_  ( V  -  1 ) ) )
332330, 331mpbid 222 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  -.  V  <_  ( V  -  1 ) )
333 elfzle2 12345 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( V  e.  ( 1 ... ( V  -  1 ) )  ->  V  <_  ( V  -  1 ) )
334332, 333nsyl 135 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  -.  V  e.  ( 1 ... ( V  -  1 ) ) )
335 difsn 4328 . . . . . . . . . . . . . . . . . . . . 21  |-  ( -.  V  e.  ( 1 ... ( V  - 
1 ) )  -> 
( ( 1 ... ( V  -  1 ) )  \  { V } )  =  ( 1 ... ( V  -  1 ) ) )
336334, 335syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( 1 ... ( V  -  1 ) )  \  { V } )  =  ( 1 ... ( V  -  1 ) ) )
337329, 336syl5eq 2668 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( ( 1 ... ( V  - 
1 ) )  u. 
{ V } ) 
\  { V }
)  =  ( 1 ... ( V  - 
1 ) ) )
338328, 337eqtrd 2656 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( 1 ... V )  \  { V } )  =  ( 1 ... ( V  -  1 ) ) )
339 elfzle1 12344 . . . . . . . . . . . . . . . . . . . 20  |-  ( V  e.  ( ( V  +  1 ) ... N )  ->  ( V  +  1 )  <_  V )
34033, 339nsyl 135 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  -.  V  e.  ( ( V  +  1 ) ... N ) )
341 difsn 4328 . . . . . . . . . . . . . . . . . . 19  |-  ( -.  V  e.  ( ( V  +  1 ) ... N )  -> 
( ( ( V  +  1 ) ... N )  \  { V } )  =  ( ( V  +  1 ) ... N ) )
342340, 341syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( ( V  +  1 ) ... N )  \  { V } )  =  ( ( V  +  1 ) ... N ) )
343338, 342uneq12d 3768 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( ( 1 ... V )  \  { V } )  u.  ( ( ( V  +  1 ) ... N )  \  { V } ) )  =  ( ( 1 ... ( V  -  1 ) )  u.  (
( V  +  1 ) ... N ) ) )
344313, 343syl5eq 2668 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( 1 ... V )  u.  ( ( V  + 
1 ) ... N
) )  \  { V } )  =  ( ( 1 ... ( V  -  1 ) )  u.  ( ( V  +  1 ) ... N ) ) )
345312, 344eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( 1 ... N )  \  { V } )  =  ( ( 1 ... ( V  -  1 ) )  u.  ( ( V  +  1 ) ... N ) ) )
346345imaeq2d 5466 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( U " (
( 1 ... N
)  \  { V } ) )  =  ( U " (
( 1 ... ( V  -  1 ) )  u.  ( ( V  +  1 ) ... N ) ) ) )
347311, 346eqtr3d 2658 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( U "
( 1 ... N
) )  \  ( U " { V }
) )  =  ( U " ( ( 1 ... ( V  -  1 ) )  u.  ( ( V  +  1 ) ... N ) ) ) )
348 imaundi 5545 . . . . . . . . . . . . 13  |-  ( U
" ( ( 1 ... ( V  - 
1 ) )  u.  ( ( V  + 
1 ) ... N
) ) )  =  ( ( U "
( 1 ... ( V  -  1 ) ) )  u.  ( U " ( ( V  +  1 ) ... N ) ) )
349347, 348syl6eq 2672 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( U "
( 1 ... N
) )  \  ( U " { V }
) )  =  ( ( U " (
1 ... ( V  - 
1 ) ) )  u.  ( U "
( ( V  + 
1 ) ... N
) ) ) )
350349eleq2d 2687 . . . . . . . . . . 11  |-  ( ph  ->  ( n  e.  ( ( U " (
1 ... N ) ) 
\  ( U " { V } ) )  <-> 
n  e.  ( ( U " ( 1 ... ( V  - 
1 ) ) )  u.  ( U "
( ( V  + 
1 ) ... N
) ) ) ) )
351 eldif 3584 . . . . . . . . . . 11  |-  ( n  e.  ( ( U
" ( 1 ... N ) )  \ 
( U " { V } ) )  <->  ( n  e.  ( U " (
1 ... N ) )  /\  -.  n  e.  ( U " { V } ) ) )
352 elun 3753 . . . . . . . . . . 11  |-  ( n  e.  ( ( U
" ( 1 ... ( V  -  1 ) ) )  u.  ( U " (
( V  +  1 ) ... N ) ) )  <->  ( n  e.  ( U " (
1 ... ( V  - 
1 ) ) )  \/  n  e.  ( U " ( ( V  +  1 ) ... N ) ) ) )
353350, 351, 3523bitr3g 302 . . . . . . . . . 10  |-  ( ph  ->  ( ( n  e.  ( U " (
1 ... N ) )  /\  -.  n  e.  ( U " { V } ) )  <->  ( n  e.  ( U " (
1 ... ( V  - 
1 ) ) )  \/  n  e.  ( U " ( ( V  +  1 ) ... N ) ) ) ) )
354353adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  V  <  M )  ->  ( (
n  e.  ( U
" ( 1 ... N ) )  /\  -.  n  e.  ( U " { V }
) )  <->  ( n  e.  ( U " (
1 ... ( V  - 
1 ) ) )  \/  n  e.  ( U " ( ( V  +  1 ) ... N ) ) ) ) )
355 imassrn 5477 . . . . . . . . . . . . . . . 16  |-  ( U
" ( 1 ... ( V  -  1 ) ) )  C_  ran  U
356355, 65syl5ss 3614 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( U " (
1 ... ( V  - 
1 ) ) ) 
C_  ( 1 ... N ) )
357356sselda 3603 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  n  e.  ( 1 ... N
) )
35870adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  T  Fn  ( 1 ... N
) )
359 fnconstg 6093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 1  e.  _V  ->  (
( U " (
1 ... ( V  - 
1 ) ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... ( V  -  1 ) ) ) )
36072, 359ax-mp 5 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... ( V  -  1 ) ) )
361 fnconstg 6093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 0  e.  _V  ->  (
( U " ( V ... N ) )  X.  { 0 } )  Fn  ( U
" ( V ... N ) ) )
36275, 361ax-mp 5 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( U " ( V ... N ) )  X.  { 0 } )  Fn  ( U
" ( V ... N ) )
363360, 362pm3.2i 471 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( U " (
1 ... ( V  - 
1 ) ) )  X.  { 1 } )  Fn  ( U
" ( 1 ... ( V  -  1 ) ) )  /\  ( ( U "
( V ... N
) )  X.  {
0 } )  Fn  ( U " ( V ... N ) ) )
364 imain 5974 . . . . . . . . . . . . . . . . . . . . 21  |-  ( Fun  `' U  ->  ( U
" ( ( 1 ... ( V  - 
1 ) )  i^i  ( V ... N
) ) )  =  ( ( U "
( 1 ... ( V  -  1 ) ) )  i^i  ( U " ( V ... N ) ) ) )
3654, 364syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( U " (
( 1 ... ( V  -  1 ) )  i^i  ( V ... N ) ) )  =  ( ( U " ( 1 ... ( V  - 
1 ) ) )  i^i  ( U "
( V ... N
) ) ) )
366 fzdisj 12368 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( V  -  1 )  <  V  ->  (
( 1 ... ( V  -  1 ) )  i^i  ( V ... N ) )  =  (/) )
367330, 366syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( 1 ... ( V  -  1 ) )  i^i  ( V ... N ) )  =  (/) )
368367imaeq2d 5466 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( U " (
( 1 ... ( V  -  1 ) )  i^i  ( V ... N ) ) )  =  ( U
" (/) ) )
369368, 84syl6eq 2672 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( U " (
( 1 ... ( V  -  1 ) )  i^i  ( V ... N ) ) )  =  (/) )
370365, 369eqtr3d 2658 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( U "
( 1 ... ( V  -  1 ) ) )  i^i  ( U " ( V ... N ) ) )  =  (/) )
371 fnun 5997 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } )  Fn  ( U "
( 1 ... ( V  -  1 ) ) )  /\  (
( U " ( V ... N ) )  X.  { 0 } )  Fn  ( U
" ( V ... N ) ) )  /\  ( ( U
" ( 1 ... ( V  -  1 ) ) )  i^i  ( U " ( V ... N ) ) )  =  (/) )  -> 
( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( V ... N ) )  X. 
{ 0 } ) )  Fn  ( ( U " ( 1 ... ( V  - 
1 ) ) )  u.  ( U "
( V ... N
) ) ) )
372363, 370, 371sylancr 695 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( V ... N ) )  X. 
{ 0 } ) )  Fn  ( ( U " ( 1 ... ( V  - 
1 ) ) )  u.  ( U "
( V ... N
) ) ) )
373 imaundi 5545 . . . . . . . . . . . . . . . . . . . 20  |-  ( U
" ( ( 1 ... ( V  - 
1 ) )  u.  ( V ... N
) ) )  =  ( ( U "
( 1 ... ( V  -  1 ) ) )  u.  ( U " ( V ... N ) ) )
374 uzss 11708 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( V  e.  ( ZZ>= `  ( V  -  1 ) )  ->  ( ZZ>= `  V )  C_  ( ZZ>=
`  ( V  - 
1 ) ) )
375319, 374syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( ZZ>= `  V )  C_  ( ZZ>= `  ( V  -  1 ) ) )
376 elfzuz3 12339 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( V  e.  ( 1 ... ( N  -  1 ) )  ->  ( N  -  1 )  e.  ( ZZ>= `  V
) )
3777, 376syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( N  -  1 )  e.  ( ZZ>= `  V ) )
378375, 377sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  ->  ( N  -  1 )  e.  ( ZZ>= `  ( V  -  1
) ) )
379 peano2uz 11741 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( N  -  1 )  e.  ( ZZ>= `  ( V  -  1 ) )  ->  ( ( N  -  1 )  +  1 )  e.  ( ZZ>= `  ( V  -  1 ) ) )
380378, 379syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  ( ( N  - 
1 )  +  1 )  e.  ( ZZ>= `  ( V  -  1
) ) )
38113, 380eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  N  e.  ( ZZ>= `  ( V  -  1
) ) )
382 fzsplit2 12366 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( V  - 
1 )  +  1 )  e.  ( ZZ>= ` 
1 )  /\  N  e.  ( ZZ>= `  ( V  -  1 ) ) )  ->  ( 1 ... N )  =  ( ( 1 ... ( V  -  1 ) )  u.  (
( ( V  - 
1 )  +  1 ) ... N ) ) )
383314, 381, 382syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( 1 ... N
)  =  ( ( 1 ... ( V  -  1 ) )  u.  ( ( ( V  -  1 )  +  1 ) ... N ) ) )
384215oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ( ( ( V  -  1 )  +  1 ) ... N
)  =  ( V ... N ) )
385384uneq2d 3767 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( ( 1 ... ( V  -  1 ) )  u.  (
( ( V  - 
1 )  +  1 ) ... N ) )  =  ( ( 1 ... ( V  -  1 ) )  u.  ( V ... N ) ) )
386383, 385eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( 1 ... N
)  =  ( ( 1 ... ( V  -  1 ) )  u.  ( V ... N ) ) )
387386imaeq2d 5466 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( U " (
1 ... N ) )  =  ( U "
( ( 1 ... ( V  -  1 ) )  u.  ( V ... N ) ) ) )
388387, 107eqtr3d 2658 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( U " (
( 1 ... ( V  -  1 ) )  u.  ( V ... N ) ) )  =  ( 1 ... N ) )
389373, 388syl5eqr 2670 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( U "
( 1 ... ( V  -  1 ) ) )  u.  ( U " ( V ... N ) ) )  =  ( 1 ... N ) )
390389fneq2d 5982 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) )  Fn  (
( U " (
1 ... ( V  - 
1 ) ) )  u.  ( U "
( V ... N
) ) )  <->  ( (
( U " (
1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) ) )
391372, 390mpbid 222 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( V ... N ) )  X. 
{ 0 } ) )  Fn  ( 1 ... N ) )
392391adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  ( (
( U " (
1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) )
393 fzfid 12772 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  ( 1 ... N )  e. 
Fin )
394 eqidd 2623 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... ( V  - 
1 ) ) ) )  /\  n  e.  ( 1 ... N
) )  ->  ( T `  n )  =  ( T `  n ) )
395 fvun1 6269 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  Fn  ( U " (
1 ... ( V  - 
1 ) ) )  /\  ( ( U
" ( V ... N ) )  X. 
{ 0 } )  Fn  ( U "
( V ... N
) )  /\  (
( ( U "
( 1 ... ( V  -  1 ) ) )  i^i  ( U " ( V ... N ) ) )  =  (/)  /\  n  e.  ( U " (
1 ... ( V  - 
1 ) ) ) ) )  ->  (
( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( V ... N ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } ) `  n ) )
396360, 362, 395mp3an12 1414 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( U "
( 1 ... ( V  -  1 ) ) )  i^i  ( U " ( V ... N ) ) )  =  (/)  /\  n  e.  ( U " (
1 ... ( V  - 
1 ) ) ) )  ->  ( (
( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } ) `
 n ) )
397370, 396sylan 488 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  ( (
( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } ) `
 n ) )
39872fvconst2 6469 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  ( U "
( 1 ... ( V  -  1 ) ) )  ->  (
( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } ) `  n )  =  1 )
399398adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  ( (
( U " (
1 ... ( V  - 
1 ) ) )  X.  { 1 } ) `  n )  =  1 )
400397, 399eqtrd 2656 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  ( (
( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) `
 n )  =  1 )
401400adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... ( V  - 
1 ) ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( V ... N ) )  X. 
{ 0 } ) ) `  n )  =  1 )
402358, 392, 393, 393, 114, 394, 401ofval 6906 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... ( V  - 
1 ) ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T `  n
)  +  1 ) )
403111adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  ( (
( U " (
1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) )
404 fzss2 12381 . . . . . . . . . . . . . . . . . . . . 21  |-  ( V  e.  ( ZZ>= `  ( V  -  1 ) )  ->  ( 1 ... ( V  - 
1 ) )  C_  ( 1 ... V
) )
405319, 404syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( 1 ... ( V  -  1 ) )  C_  ( 1 ... V ) )
406 imass2 5501 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( 1 ... ( V  -  1 ) ) 
C_  ( 1 ... V )  ->  ( U " ( 1 ... ( V  -  1 ) ) )  C_  ( U " ( 1 ... V ) ) )
407405, 406syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( U " (
1 ... ( V  - 
1 ) ) ) 
C_  ( U "
( 1 ... V
) ) )
408407sselda 3603 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  n  e.  ( U " ( 1 ... V ) ) )
409408, 121syldan 487 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  ( (
( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) `
 n )  =  1 )
410409adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... ( V  - 
1 ) ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  1 )
411358, 403, 393, 393, 114, 394, 410ofval 6906 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... ( V  - 
1 ) ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T `  n
)  +  1 ) )
412402, 411eqtr4d 2659 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( U " (
1 ... ( V  - 
1 ) ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
413357, 412mpdan 702 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  ( U " ( 1 ... ( V  - 
1 ) ) ) )  ->  ( ( T  oF  +  ( ( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) ) `  n ) )
414 imassrn 5477 . . . . . . . . . . . . . . . 16  |-  ( U
" ( ( V  +  1 ) ... N ) )  C_  ran  U
415414, 65syl5ss 3614 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( U " (
( V  +  1 ) ... N ) )  C_  ( 1 ... N ) )
416415sselda 3603 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  n  e.  ( 1 ... N
) )
41770adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  T  Fn  ( 1 ... N
) )
418391adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  ( (
( U " (
1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) )
419 fzfid 12772 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  ( 1 ... N )  e. 
Fin )
420 eqidd 2623 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
( V  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  ( T `  n )  =  ( T `  n ) )
421 fzss1 12380 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( V  +  1 )  e.  ( ZZ>= `  V
)  ->  ( ( V  +  1 ) ... N )  C_  ( V ... N ) )
422148, 421syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( V  + 
1 ) ... N
)  C_  ( V ... N ) )
423 imass2 5501 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( V  +  1 ) ... N ) 
C_  ( V ... N )  ->  ( U " ( ( V  +  1 ) ... N ) )  C_  ( U " ( V ... N ) ) )
424422, 423syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( U " (
( V  +  1 ) ... N ) )  C_  ( U " ( V ... N
) ) )
425424sselda 3603 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  n  e.  ( U " ( V ... N ) ) )
426 fvun2 6270 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  Fn  ( U " (
1 ... ( V  - 
1 ) ) )  /\  ( ( U
" ( V ... N ) )  X. 
{ 0 } )  Fn  ( U "
( V ... N
) )  /\  (
( ( U "
( 1 ... ( V  -  1 ) ) )  i^i  ( U " ( V ... N ) ) )  =  (/)  /\  n  e.  ( U " ( V ... N ) ) ) )  ->  (
( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( V ... N ) )  X. 
{ 0 } ) ) `  n )  =  ( ( ( U " ( V ... N ) )  X.  { 0 } ) `  n ) )
427360, 362, 426mp3an12 1414 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( U "
( 1 ... ( V  -  1 ) ) )  i^i  ( U " ( V ... N ) ) )  =  (/)  /\  n  e.  ( U " ( V ... N ) ) )  ->  ( (
( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( V ... N ) )  X. 
{ 0 } ) `
 n ) )
428370, 427sylan 488 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  n  e.  ( U " ( V ... N ) ) )  ->  ( (
( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) `
 n )  =  ( ( ( U
" ( V ... N ) )  X. 
{ 0 } ) `
 n ) )
42975fvconst2 6469 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  ( U "
( V ... N
) )  ->  (
( ( U "
( V ... N
) )  X.  {
0 } ) `  n )  =  0 )
430429adantl 482 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  n  e.  ( U " ( V ... N ) ) )  ->  ( (
( U " ( V ... N ) )  X.  { 0 } ) `  n )  =  0 )
431428, 430eqtrd 2656 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  ( U " ( V ... N ) ) )  ->  ( (
( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) `
 n )  =  0 )
432425, 431syldan 487 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  ( (
( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) `
 n )  =  0 )
433432adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
( V  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( V ... N ) )  X. 
{ 0 } ) ) `  n )  =  0 )
434417, 418, 419, 419, 114, 420, 433ofval 6906 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  ( U " (
( V  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T `  n
)  +  0 ) )
435111adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  ( (
( U " (
1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) )  Fn  (
1 ... N ) )
436186adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( U " (
( V  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) ) `  n )  =  0 )
437417, 435, 419, 419, 114, 420, 436ofval 6906 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  ( U " (
( V  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T `  n
)  +  0 ) )
438434, 437eqtr4d 2659 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( U " (
( V  +  1 ) ... N ) ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
439416, 438mpdan 702 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  ( U " ( ( V  +  1 ) ... N ) ) )  ->  ( ( T  oF  +  ( ( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) ) `  n ) )
440413, 439jaodan 826 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( n  e.  ( U " (
1 ... ( V  - 
1 ) ) )  \/  n  e.  ( U " ( ( V  +  1 ) ... N ) ) ) )  ->  (
( T  oF  +  ( ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
441440adantlr 751 . . . . . . . . . . 11  |-  ( ( ( ph  /\  V  <  M )  /\  (
n  e.  ( U
" ( 1 ... ( V  -  1 ) ) )  \/  n  e.  ( U
" ( ( V  +  1 ) ... N ) ) ) )  ->  ( ( T  oF  +  ( ( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) ) `  n )  =  ( ( T  oF  +  ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) ) `  n ) )
442203adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  V  <  M )  ->  F  =  ( y  e.  ( 0 ... ( N  -  1 ) ) 
|->  [_ if ( y  <  M ,  y ,  ( y  +  1 ) )  / 
j ]_ ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) ) ) )
443207a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  V  <  M )  /\  y  =  ( V  - 
1 ) )  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  e.  _V )
444217adantlr 751 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  V  <  M )  /\  y  =  ( V  - 
1 ) )  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  =  if ( ( V  -  1 )  <  M , 
( V  -  1 ) ,  V ) )
445 lttr 10114 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( V  -  1 )  e.  RR  /\  V  e.  RR  /\  M  e.  RR )  ->  (
( ( V  - 
1 )  <  V  /\  V  <  M )  ->  ( V  - 
1 )  <  M
) )
446228, 28, 225, 445syl3anc 1326 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( ( V  -  1 )  < 
V  /\  V  <  M )  ->  ( V  -  1 )  < 
M ) )
447330, 446mpand 711 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( V  <  M  ->  ( V  -  1 )  <  M ) )
448447imp 445 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  V  <  M )  ->  ( V  -  1 )  < 
M )
449448iftrued 4094 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  V  <  M )  ->  if (
( V  -  1 )  <  M , 
( V  -  1 ) ,  V )  =  ( V  - 
1 ) )
450449adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  V  <  M )  /\  y  =  ( V  - 
1 ) )  ->  if ( ( V  - 
1 )  <  M ,  ( V  - 
1 ) ,  V
)  =  ( V  -  1 ) )
451444, 450eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  V  <  M )  /\  y  =  ( V  - 
1 ) )  ->  if ( y  <  M ,  y ,  ( y  +  1 ) )  =  ( V  -  1 ) )
452 simpll 790 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  V  <  M )  /\  y  =  ( V  - 
1 ) )  ->  ph )
453 oveq2 6658 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  =  ( V  - 
1 )  ->  (
1 ... j )  =  ( 1 ... ( V  -  1 ) ) )
454453imaeq2d 5466 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  ( V  - 
1 )  ->  ( U " ( 1 ... j ) )  =  ( U " (
1 ... ( V  - 
1 ) ) ) )
455454xpeq1d 5138 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  ( V  - 
1 )  ->  (
( U " (
1 ... j ) )  X.  { 1 } )  =  ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } ) )
456455adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  j  =  ( V  -  1
) )  ->  (
( U " (
1 ... j ) )  X.  { 1 } )  =  ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } ) )
457 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( j  =  ( V  - 
1 )  ->  (
j  +  1 )  =  ( ( V  -  1 )  +  1 ) )
458457, 215sylan9eqr 2678 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  j  =  ( V  -  1
) )  ->  (
j  +  1 )  =  V )
459458oveq1d 6665 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  j  =  ( V  -  1
) )  ->  (
( j  +  1 ) ... N )  =  ( V ... N ) )
460459imaeq2d 5466 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  j  =  ( V  -  1
) )  ->  ( U " ( ( j  +  1 ) ... N ) )  =  ( U " ( V ... N ) ) )
461460xpeq1d 5138 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  j  =  ( V  -  1
) )  ->  (
( U " (
( j  +  1 ) ... N ) )  X.  { 0 } )  =  ( ( U " ( V ... N ) )  X.  { 0 } ) )
462456, 461uneq12d 3768 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  j  =  ( V  -  1
) )  ->  (
( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) )  =  ( ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) ) )
463462oveq2d 6666 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  j  =  ( V  -  1
) )  ->  ( T  oF  +  ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) ) )  =  ( T  oF  +  ( ( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) ) )
464452, 463sylan 488 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  V  <  M )  /\  y  =  ( V  -  1 ) )  /\  j  =  ( V  -  1 ) )  ->  ( T  oF  +  (
( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) ) )  =  ( T  oF  +  ( ( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) ) )
465443, 451, 464csbied2 3561 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  V  <  M )  /\  y  =  ( V  - 
1 ) )  ->  [_ if ( y  < 
M ,  y ,  ( y  +  1 ) )  /  j ]_ ( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) )  =  ( T  oF  +  ( ( ( U " ( 1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) ) ) )
466250adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  V  <  M )  ->  ( V  -  1 )  e.  ( 0 ... ( N  -  1 ) ) )
467 ovexd 6680 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  V  <  M )  ->  ( T  oF  +  (
( ( U "
( 1 ... ( V  -  1 ) ) )  X.  {
1 } )  u.  ( ( U "
( V ... N
) )  X.  {
0 } ) ) )  e.  _V )
468442, 465, 466, 467fvmptd 6288 . . . . . . . . . . . . 13  |-  ( (
ph  /\  V  <  M )  ->  ( F `  ( V  -  1 ) )  =  ( T  oF  +  ( ( ( U
" ( 1 ... ( V  -  1 ) ) )  X. 
{ 1 } )  u.  ( ( U
" ( V ... N ) )  X. 
{ 0 } ) ) ) )
469468fveq1d 6193 . . . . . . . . . . . 12  |-  ( (
ph  /\  V  <  M )  ->  ( ( F `  ( V  -  1 ) ) `
 n )  =  ( ( T  oF  +  ( (
( U " (
1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) ) ) `  n ) )
470469adantr 481 . . . . . . . . . . 11  |-  ( ( ( ph  /\  V  <  M )  /\  (
n  e.  ( U
" ( 1 ... ( V  -  1 ) ) )  \/  n  e.  ( U
" ( ( V  +  1 ) ... N ) ) ) )  ->  ( ( F `  ( V  -  1 ) ) `
 n )  =  ( ( T  oF  +  ( (
( U " (
1 ... ( V  - 
1 ) ) )  X.  { 1 } )  u.  ( ( U " ( V ... N ) )  X.  { 0 } ) ) ) `  n ) )
471207a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( V  <  M  /\  y  =  V )  ->  if ( y  < 
M ,  y ,  ( y  +  1 ) )  e.  _V )
472 iftrue 4092 . . . . . . . . . . . . . . . . . . . 20  |-  ( V  <  M  ->  if ( V  <  M ,  V ,  ( V  +  1 ) )  =  V )
473260, 472sylan9eqr 2678 . . . . . . . . . . . . . . . . . . 19  |-  ( ( V  <  M  /\  y  =  V )  ->  if ( y  < 
M ,  y ,  ( y  +  1 ) )  =  V )
474473eqeq2d 2632 . . . . . . . . . . . . . . . . . 18  |-  ( ( V  <  M  /\  y  =  V )  ->  ( j  =  if ( y  <  M ,  y ,  ( y  +  1 ) )  <->  j  =  V ) )
475474biimpa 501 . . . . . . . . . . . . . . . . 17  |-  ( ( ( V  <  M  /\  y  =  V
)  /\  j  =  if ( y  <  M ,  y ,  ( y  +  1 ) ) )  ->  j  =  V )
476475, 245syl 17 . . . . . . . . . . . . . . . 16  |-  ( ( ( V  <  M  /\  y  =  V
)  /\  j  =  if ( y  <  M ,  y ,  ( y  +  1 ) ) )  ->  ( T  oF  +  ( ( ( U "
( 1 ... j
) )  X.  {
1 } )  u.  ( ( U "
( ( j  +  1 ) ... N
) )  X.  {
0 } ) ) )  =  ( T  oF  +  ( ( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) ) )
477471, 476csbied 3560 . . . . . . . . . . . . . . 15  |-  ( ( V  <  M  /\  y  =  V )  ->  [_ if ( y  <  M ,  y ,  ( y  +  1 ) )  / 
j ]_ ( T  oF  +  ( (
( U " (
1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) )  =  ( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) )
478477adantll 750 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  V  <  M )  /\  y  =  V )  ->  [_ if ( y  <  M ,  y ,  ( y  +  1 ) )  /  j ]_ ( T  oF  +  ( ( ( U " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( U " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) )  =  ( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) )
479282adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  V  <  M )  ->  V  e.  ( 0 ... ( N  -  1 ) ) )
480 ovexd 6680 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  V  <  M )  ->  ( T  oF  +  (
( ( U "
( 1 ... V
) )  X.  {
1 } )  u.  ( ( U "
( ( V  + 
1 ) ... N
) )  X.  {
0 } ) ) )  e.  _V )
481442, 478, 479, 480fvmptd 6288 . . . . . . . . . . . . 13  |-  ( (
ph  /\  V  <  M )  ->  ( F `  V )  =  ( T  oF  +  ( ( ( U
" ( 1 ... V ) )  X. 
{ 1 } )  u.  ( ( U
" ( ( V  +  1 ) ... N ) )  X. 
{ 0 } ) ) ) )
482481fveq1d 6193 . . . . . . . . . . . 12  |-  ( (
ph  /\  V  <  M )  ->  ( ( F `  V ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
483482adantr 481 . . . . . . . . . . 11  |-  ( ( ( ph  /\  V  <  M )  /\  (
n  e.  ( U
" ( 1 ... ( V  -  1 ) ) )  \/  n  e.  ( U
" ( ( V  +  1 ) ... N ) ) ) )  ->  ( ( F `  V ) `  n )  =  ( ( T  oF  +  ( ( ( U " ( 1 ... V ) )  X.  { 1 } )  u.  ( ( U " ( ( V  +  1 ) ... N ) )  X.  { 0 } ) ) ) `  n ) )
484441, 470, 4833eqtr4d 2666 . . . . . . . . . 10  |-  ( ( ( ph  /\  V  <  M )  /\  (
n  e.  ( U
" ( 1 ... ( V  -  1 ) ) )  \/  n  e.  ( U
" ( ( V  +  1 ) ... N ) ) ) )  ->  ( ( F `  ( V  -  1 ) ) `
 n )  =  ( ( F `  V ) `  n
) )
485484ex 450 . . . . . . . . 9  |-  ( (
ph  /\  V  <  M )  ->  ( (
n  e.  ( U
" ( 1 ... ( V  -  1 ) ) )  \/  n  e.  ( U
" ( ( V  +  1 ) ... N ) ) )  ->  ( ( F `
 ( V  - 
1 ) ) `  n )  =  ( ( F `  V
) `  n )
) )
486354, 485sylbid 230 . . . . . . . 8  |-  ( (
ph  /\  V  <  M )  ->  ( (
n  e.  ( U
" ( 1 ... N ) )  /\  -.  n  e.  ( U " { V }
) )  ->  (
( F `  ( V  -  1 ) ) `  n )  =  ( ( F `
 V ) `  n ) ) )
487486expdimp 453 . . . . . . 7  |-  ( ( ( ph  /\  V  <  M )  /\  n  e.  ( U " (
1 ... N ) ) )  ->  ( -.  n  e.  ( U " { V } )  ->  ( ( F `
 ( V  - 
1 ) ) `  n )  =  ( ( F `  V
) `  n )
) )
488487necon1ad 2811 . . . . . 6  |-  ( ( ( ph  /\  V  <  M )  /\  n  e.  ( U " (
1 ... N ) ) )  ->  ( (
( F `  ( V  -  1 ) ) `  n )  =/=  ( ( F `
 V ) `  n )  ->  n  e.  ( U " { V } ) ) )
489 elimasni 5492 . . . . . . . 8  |-  ( n  e.  ( U " { V } )  ->  V U n )
490 eqcom 2629 . . . . . . . . 9  |-  ( n  =  ( U `  V )  <->  ( U `  V )  =  n )
491 fnbrfvb 6236 . . . . . . . . . 10  |-  ( ( U  Fn  ( 1 ... N )  /\  V  e.  ( 1 ... N ) )  ->  ( ( U `
 V )  =  n  <->  V U n ) )
492296, 100, 491syl2anc 693 . . . . . . . . 9  |-  ( ph  ->  ( ( U `  V )  =  n  <-> 
V U n ) )
493490, 492syl5bb 272 . . . . . . . 8  |-  ( ph  ->  ( n  =  ( U `  V )  <-> 
V U n ) )
494489, 493syl5ibr 236 . . . . . . 7  |-  ( ph  ->  ( n  e.  ( U " { V } )  ->  n  =  ( U `  V ) ) )
495494ad2antrr 762 . . . . . 6  |-  ( ( ( ph  /\  V  <  M )  /\  n  e.  ( U " (
1 ... N ) ) )  ->  ( n  e.  ( U " { V } )  ->  n  =  ( U `  V ) ) )
496488, 495syld 47 . . . . 5  |-  ( ( ( ph  /\  V  <  M )  /\  n  e.  ( U " (
1 ... N ) ) )  ->  ( (
( F `  ( V  -  1 ) ) `  n )  =/=  ( ( F `
 V ) `  n )  ->  n  =  ( U `  V ) ) )
497496ralrimiva 2966 . . . 4  |-  ( (
ph  /\  V  <  M )  ->  A. n  e.  ( U " (
1 ... N ) ) ( ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )  ->  n  =  ( U `
 V ) ) )
498 fvex 6201 . . . . 5  |-  ( U `
 V )  e. 
_V
499 eqeq2 2633 . . . . . . 7  |-  ( m  =  ( U `  V )  ->  (
n  =  m  <->  n  =  ( U `  V ) ) )
500499imbi2d 330 . . . . . 6  |-  ( m  =  ( U `  V )  ->  (
( ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )  ->  n  =  m )  <-> 
( ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )  ->  n  =  ( U `
 V ) ) ) )
501500ralbidv 2986 . . . . 5  |-  ( m  =  ( U `  V )  ->  ( A. n  e.  ( U " ( 1 ... N ) ) ( ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n )  ->  n  =  m )  <->  A. n  e.  ( U
" ( 1 ... N ) ) ( ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n )  ->  n  =  ( U `  V ) ) ) )
502498, 501spcev 3300 . . . 4  |-  ( A. n  e.  ( U " ( 1 ... N
) ) ( ( ( F `  ( V  -  1 ) ) `  n )  =/=  ( ( F `
 V ) `  n )  ->  n  =  ( U `  V ) )  ->  E. m A. n  e.  ( U " (
1 ... N ) ) ( ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )  ->  n  =  m ) )
503497, 502syl 17 . . 3  |-  ( (
ph  /\  V  <  M )  ->  E. m A. n  e.  ( U " ( 1 ... N ) ) ( ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n )  ->  n  =  m )
)
504 eldifsni 4320 . . . . 5  |-  ( M  e.  ( ( 0 ... N )  \  { V } )  ->  M  =/=  V )
505219, 504syl 17 . . . 4  |-  ( ph  ->  M  =/=  V )
506225, 28lttri2d 10176 . . . 4  |-  ( ph  ->  ( M  =/=  V  <->  ( M  <  V  \/  V  <  M ) ) )
507505, 506mpbid 222 . . 3  |-  ( ph  ->  ( M  <  V  \/  V  <  M ) )
508309, 503, 507mpjaodan 827 . 2  |-  ( ph  ->  E. m A. n  e.  ( U " (
1 ... N ) ) ( ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )  ->  n  =  m ) )
509 nfv 1843 . . . 4  |-  F/ m
( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n )
510509rmo2 3526 . . 3  |-  ( E* n  e.  ( U
" ( 1 ... N ) ) ( ( F `  ( V  -  1 ) ) `  n )  =/=  ( ( F `
 V ) `  n )  <->  E. m A. n  e.  ( U " ( 1 ... N ) ) ( ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n )  ->  n  =  m )
)
511 rmoeq1 3141 . . . 4  |-  ( ( U " ( 1 ... N ) )  =  ( 1 ... N )  ->  ( E* n  e.  ( U " ( 1 ... N ) ) ( ( F `  ( V  -  1 ) ) `  n )  =/=  ( ( F `
 V ) `  n )  <->  E* n  e.  ( 1 ... N
) ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )
) )
512107, 511syl 17 . . 3  |-  ( ph  ->  ( E* n  e.  ( U " (
1 ... N ) ) ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n )  <->  E* n  e.  ( 1 ... N
) ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )
) )
513510, 512syl5bbr 274 . 2  |-  ( ph  ->  ( E. m A. n  e.  ( U " ( 1 ... N
) ) ( ( ( F `  ( V  -  1 ) ) `  n )  =/=  ( ( F `
 V ) `  n )  ->  n  =  m )  <->  E* n  e.  ( 1 ... N
) ( ( F `
 ( V  - 
1 ) ) `  n )  =/=  (
( F `  V
) `  n )
) )
514508, 513mpbid 222 1  |-  ( ph  ->  E* n  e.  ( 1 ... N ) ( ( F `  ( V  -  1
) ) `  n
)  =/=  ( ( F `  V ) `
 n ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    = wceq 1483   E.wex 1704    e. wcel 1990    =/= wne 2794   A.wral 2912   E*wrmo 2915   _Vcvv 3200   [_csb 3533    \ cdif 3571    u. cun 3572    i^i cin 3573    C_ wss 3574   (/)c0 3915   ifcif 4086   {csn 4177   class class class wbr 4653    |-> cmpt 4729    X. cxp 5112   `'ccnv 5113   ran crn 5115   "cima 5117   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   Fincfn 7955   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939    < clt 10074    <_ cle 10075    - cmin 10266   NNcn 11020   ZZcz 11377   ZZ>=cuz 11687   ...cfz 12326
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-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-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-1o 7560  df-er 7742  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  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
This theorem is referenced by:  poimirlem8  33417  poimirlem18  33427  poimirlem21  33430  poimirlem22  33431
  Copyright terms: Public domain W3C validator