MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  pcohtpylem Structured version   Unicode version

Theorem pcohtpylem 21282
Description: Lemma for pcohtpy 21283. (Contributed by Jeff Madsen, 15-Jun-2010.) (Revised by Mario Carneiro, 24-Feb-2015.)
Hypotheses
Ref Expression
pcohtpy.4  |-  ( ph  ->  ( F `  1
)  =  ( G `
 0 ) )
pcohtpy.5  |-  ( ph  ->  F (  ~=ph  `  J
) H )
pcohtpy.6  |-  ( ph  ->  G (  ~=ph  `  J
) K )
pcohtpylem.7  |-  P  =  ( x  e.  ( 0 [,] 1 ) ,  y  e.  ( 0 [,] 1 ) 
|->  if ( x  <_ 
( 1  /  2
) ,  ( ( 2  x.  x ) M y ) ,  ( ( ( 2  x.  x )  - 
1 ) N y ) ) )
pcohtpylem.8  |-  ( ph  ->  M  e.  ( F ( PHtpy `  J ) H ) )
pcohtpylem.9  |-  ( ph  ->  N  e.  ( G ( PHtpy `  J ) K ) )
Assertion
Ref Expression
pcohtpylem  |-  ( ph  ->  P  e.  ( ( F ( *p `  J ) G ) ( PHtpy `  J )
( H ( *p
`  J ) K ) ) )
Distinct variable groups:    x, y, F    x, M, y    x, N, y    ph, x, y   
x, G, y    x, H, y    x, J, y   
x, K, y
Allowed substitution hints:    P( x, y)

Proof of Theorem pcohtpylem
Dummy variables  s 
z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pcohtpy.5 . . . . 5  |-  ( ph  ->  F (  ~=ph  `  J
) H )
2 isphtpc 21257 . . . . 5  |-  ( F (  ~=ph  `  J ) H  <->  ( F  e.  ( II  Cn  J
)  /\  H  e.  ( II  Cn  J
)  /\  ( F
( PHtpy `  J ) H )  =/=  (/) ) )
31, 2sylib 196 . . . 4  |-  ( ph  ->  ( F  e.  ( II  Cn  J )  /\  H  e.  ( II  Cn  J )  /\  ( F (
PHtpy `  J ) H )  =/=  (/) ) )
43simp1d 1008 . . 3  |-  ( ph  ->  F  e.  ( II 
Cn  J ) )
5 pcohtpy.6 . . . . 5  |-  ( ph  ->  G (  ~=ph  `  J
) K )
6 isphtpc 21257 . . . . 5  |-  ( G (  ~=ph  `  J ) K  <->  ( G  e.  ( II  Cn  J
)  /\  K  e.  ( II  Cn  J
)  /\  ( G
( PHtpy `  J ) K )  =/=  (/) ) )
75, 6sylib 196 . . . 4  |-  ( ph  ->  ( G  e.  ( II  Cn  J )  /\  K  e.  ( II  Cn  J )  /\  ( G (
PHtpy `  J ) K )  =/=  (/) ) )
87simp1d 1008 . . 3  |-  ( ph  ->  G  e.  ( II 
Cn  J ) )
9 pcohtpy.4 . . 3  |-  ( ph  ->  ( F `  1
)  =  ( G `
 0 ) )
104, 8, 9pcocn 21280 . 2  |-  ( ph  ->  ( F ( *p
`  J ) G )  e.  ( II 
Cn  J ) )
113simp2d 1009 . . 3  |-  ( ph  ->  H  e.  ( II 
Cn  J ) )
127simp2d 1009 . . 3  |-  ( ph  ->  K  e.  ( II 
Cn  J ) )
13 pcohtpylem.8 . . . . . 6  |-  ( ph  ->  M  e.  ( F ( PHtpy `  J ) H ) )
144, 11, 13phtpy01 21248 . . . . 5  |-  ( ph  ->  ( ( F ` 
0 )  =  ( H `  0 )  /\  ( F ` 
1 )  =  ( H `  1 ) ) )
1514simprd 463 . . . 4  |-  ( ph  ->  ( F `  1
)  =  ( H `
 1 ) )
16 pcohtpylem.9 . . . . . 6  |-  ( ph  ->  N  e.  ( G ( PHtpy `  J ) K ) )
178, 12, 16phtpy01 21248 . . . . 5  |-  ( ph  ->  ( ( G ` 
0 )  =  ( K `  0 )  /\  ( G ` 
1 )  =  ( K `  1 ) ) )
1817simpld 459 . . . 4  |-  ( ph  ->  ( G `  0
)  =  ( K `
 0 ) )
199, 15, 183eqtr3d 2516 . . 3  |-  ( ph  ->  ( H `  1
)  =  ( K `
 0 ) )
2011, 12, 19pcocn 21280 . 2  |-  ( ph  ->  ( H ( *p
`  J ) K )  e.  ( II 
Cn  J ) )
21 pcohtpylem.7 . . 3  |-  P  =  ( x  e.  ( 0 [,] 1 ) ,  y  e.  ( 0 [,] 1 ) 
|->  if ( x  <_ 
( 1  /  2
) ,  ( ( 2  x.  x ) M y ) ,  ( ( ( 2  x.  x )  - 
1 ) N y ) ) )
22 eqid 2467 . . . 4  |-  ( topGen ` 
ran  (,) )  =  (
topGen `  ran  (,) )
23 eqid 2467 . . . 4  |-  ( (
topGen `  ran  (,) )t  (
0 [,] ( 1  /  2 ) ) )  =  ( (
topGen `  ran  (,) )t  (
0 [,] ( 1  /  2 ) ) )
24 eqid 2467 . . . 4  |-  ( (
topGen `  ran  (,) )t  (
( 1  /  2
) [,] 1 ) )  =  ( (
topGen `  ran  (,) )t  (
( 1  /  2
) [,] 1 ) )
25 dfii2 21149 . . . 4  |-  II  =  ( ( topGen `  ran  (,) )t  ( 0 [,] 1
) )
26 0red 9597 . . . 4  |-  ( ph  ->  0  e.  RR )
27 1red 9611 . . . 4  |-  ( ph  ->  1  e.  RR )
28 halfre 10754 . . . . . 6  |-  ( 1  /  2 )  e.  RR
29 0re 9596 . . . . . . 7  |-  0  e.  RR
30 halfgt0 10756 . . . . . . 7  |-  0  <  ( 1  /  2
)
3129, 28, 30ltleii 9707 . . . . . 6  |-  0  <_  ( 1  /  2
)
32 1re 9595 . . . . . . 7  |-  1  e.  RR
33 halflt1 10757 . . . . . . 7  |-  ( 1  /  2 )  <  1
3428, 32, 33ltleii 9707 . . . . . 6  |-  ( 1  /  2 )  <_ 
1
3529, 32elicc2i 11590 . . . . . 6  |-  ( ( 1  /  2 )  e.  ( 0 [,] 1 )  <->  ( (
1  /  2 )  e.  RR  /\  0  <_  ( 1  /  2
)  /\  ( 1  /  2 )  <_ 
1 ) )
3628, 31, 34, 35mpbir3an 1178 . . . . 5  |-  ( 1  /  2 )  e.  ( 0 [,] 1
)
3736a1i 11 . . . 4  |-  ( ph  ->  ( 1  /  2
)  e.  ( 0 [,] 1 ) )
38 iitopon 21146 . . . . 5  |-  II  e.  (TopOn `  ( 0 [,] 1 ) )
3938a1i 11 . . . 4  |-  ( ph  ->  II  e.  (TopOn `  ( 0 [,] 1
) ) )
409adantr 465 . . . . . 6  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( F `  1
)  =  ( G `
 0 ) )
414, 11, 13phtpyi 21247 . . . . . . . 8  |-  ( (
ph  /\  y  e.  ( 0 [,] 1
) )  ->  (
( 0 M y )  =  ( F `
 0 )  /\  ( 1 M y )  =  ( F `
 1 ) ) )
4241simprd 463 . . . . . . 7  |-  ( (
ph  /\  y  e.  ( 0 [,] 1
) )  ->  (
1 M y )  =  ( F ` 
1 ) )
4342adantrl 715 . . . . . 6  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( 1 M y )  =  ( F `
 1 ) )
448, 12, 16phtpyi 21247 . . . . . . . 8  |-  ( (
ph  /\  y  e.  ( 0 [,] 1
) )  ->  (
( 0 N y )  =  ( G `
 0 )  /\  ( 1 N y )  =  ( G `
 1 ) ) )
4544simpld 459 . . . . . . 7  |-  ( (
ph  /\  y  e.  ( 0 [,] 1
) )  ->  (
0 N y )  =  ( G ` 
0 ) )
4645adantrl 715 . . . . . 6  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( 0 N y )  =  ( G `
 0 ) )
4740, 43, 463eqtr4d 2518 . . . . 5  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( 1 M y )  =  ( 0 N y ) )
48 simprl 755 . . . . . . . 8  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  ->  x  =  ( 1  /  2 ) )
4948oveq2d 6300 . . . . . . 7  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( 2  x.  x
)  =  ( 2  x.  ( 1  / 
2 ) ) )
50 2cn 10606 . . . . . . . 8  |-  2  e.  CC
51 2ne0 10628 . . . . . . . 8  |-  2  =/=  0
5250, 51recidi 10275 . . . . . . 7  |-  ( 2  x.  ( 1  / 
2 ) )  =  1
5349, 52syl6eq 2524 . . . . . 6  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( 2  x.  x
)  =  1 )
5453oveq1d 6299 . . . . 5  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( ( 2  x.  x ) M y )  =  ( 1 M y ) )
5553oveq1d 6299 . . . . . . 7  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( ( 2  x.  x )  -  1 )  =  ( 1  -  1 ) )
56 1m1e0 10604 . . . . . . 7  |-  ( 1  -  1 )  =  0
5755, 56syl6eq 2524 . . . . . 6  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( ( 2  x.  x )  -  1 )  =  0 )
5857oveq1d 6299 . . . . 5  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( ( ( 2  x.  x )  - 
1 ) N y )  =  ( 0 N y ) )
5947, 54, 583eqtr4d 2518 . . . 4  |-  ( (
ph  /\  ( x  =  ( 1  / 
2 )  /\  y  e.  ( 0 [,] 1
) ) )  -> 
( ( 2  x.  x ) M y )  =  ( ( ( 2  x.  x
)  -  1 ) N y ) )
60 retopon 21033 . . . . . . 7  |-  ( topGen ` 
ran  (,) )  e.  (TopOn `  RR )
61 iccssre 11606 . . . . . . . 8  |-  ( ( 0  e.  RR  /\  ( 1  /  2
)  e.  RR )  ->  ( 0 [,] ( 1  /  2
) )  C_  RR )
6229, 28, 61mp2an 672 . . . . . . 7  |-  ( 0 [,] ( 1  / 
2 ) )  C_  RR
63 resttopon 19456 . . . . . . 7  |-  ( ( ( topGen `  ran  (,) )  e.  (TopOn `  RR )  /\  ( 0 [,] (
1  /  2 ) )  C_  RR )  ->  ( ( topGen `  ran  (,) )t  ( 0 [,] (
1  /  2 ) ) )  e.  (TopOn `  ( 0 [,] (
1  /  2 ) ) ) )
6460, 62, 63mp2an 672 . . . . . 6  |-  ( (
topGen `  ran  (,) )t  (
0 [,] ( 1  /  2 ) ) )  e.  (TopOn `  ( 0 [,] (
1  /  2 ) ) )
6564a1i 11 . . . . 5  |-  ( ph  ->  ( ( topGen `  ran  (,) )t  ( 0 [,] (
1  /  2 ) ) )  e.  (TopOn `  ( 0 [,] (
1  /  2 ) ) ) )
6665, 39cnmpt1st 19932 . . . . . 6  |-  ( ph  ->  ( x  e.  ( 0 [,] ( 1  /  2 ) ) ,  y  e.  ( 0 [,] 1 ) 
|->  x )  e.  ( ( ( ( topGen ` 
ran  (,) )t  ( 0 [,] ( 1  /  2
) ) )  tX  II )  Cn  (
( topGen `  ran  (,) )t  (
0 [,] ( 1  /  2 ) ) ) ) )
6723iihalf1cn 21195 . . . . . . 7  |-  ( z  e.  ( 0 [,] ( 1  /  2
) )  |->  ( 2  x.  z ) )  e.  ( ( (
topGen `  ran  (,) )t  (
0 [,] ( 1  /  2 ) ) )  Cn  II )
6867a1i 11 . . . . . 6  |-  ( ph  ->  ( z  e.  ( 0 [,] ( 1  /  2 ) ) 
|->  ( 2  x.  z
) )  e.  ( ( ( topGen `  ran  (,) )t  ( 0 [,] (
1  /  2 ) ) )  Cn  II ) )
69 oveq2 6292 . . . . . 6  |-  ( z  =  x  ->  (
2  x.  z )  =  ( 2  x.  x ) )
7065, 39, 66, 65, 68, 69cnmpt21 19935 . . . . 5  |-  ( ph  ->  ( x  e.  ( 0 [,] ( 1  /  2 ) ) ,  y  e.  ( 0 [,] 1 ) 
|->  ( 2  x.  x
) )  e.  ( ( ( ( topGen ` 
ran  (,) )t  ( 0 [,] ( 1  /  2
) ) )  tX  II )  Cn  II ) )
7165, 39cnmpt2nd 19933 . . . . 5  |-  ( ph  ->  ( x  e.  ( 0 [,] ( 1  /  2 ) ) ,  y  e.  ( 0 [,] 1 ) 
|->  y )  e.  ( ( ( ( topGen ` 
ran  (,) )t  ( 0 [,] ( 1  /  2
) ) )  tX  II )  Cn  II ) )
724, 11phtpycn 21246 . . . . . 6  |-  ( ph  ->  ( F ( PHtpy `  J ) H ) 
C_  ( ( II 
tX  II )  Cn  J ) )
7372, 13sseldd 3505 . . . . 5  |-  ( ph  ->  M  e.  ( ( II  tX  II )  Cn  J ) )
7465, 39, 70, 71, 73cnmpt22f 19939 . . . 4  |-  ( ph  ->  ( x  e.  ( 0 [,] ( 1  /  2 ) ) ,  y  e.  ( 0 [,] 1 ) 
|->  ( ( 2  x.  x ) M y ) )  e.  ( ( ( ( topGen ` 
ran  (,) )t  ( 0 [,] ( 1  /  2
) ) )  tX  II )  Cn  J
) )
75 iccssre 11606 . . . . . . . 8  |-  ( ( ( 1  /  2
)  e.  RR  /\  1  e.  RR )  ->  ( ( 1  / 
2 ) [,] 1
)  C_  RR )
7628, 32, 75mp2an 672 . . . . . . 7  |-  ( ( 1  /  2 ) [,] 1 )  C_  RR
77 resttopon 19456 . . . . . . 7  |-  ( ( ( topGen `  ran  (,) )  e.  (TopOn `  RR )  /\  ( ( 1  / 
2 ) [,] 1
)  C_  RR )  ->  ( ( topGen `  ran  (,) )t  ( ( 1  / 
2 ) [,] 1
) )  e.  (TopOn `  ( ( 1  / 
2 ) [,] 1
) ) )
7860, 76, 77mp2an 672 . . . . . 6  |-  ( (
topGen `  ran  (,) )t  (
( 1  /  2
) [,] 1 ) )  e.  (TopOn `  ( ( 1  / 
2 ) [,] 1
) )
7978a1i 11 . . . . 5  |-  ( ph  ->  ( ( topGen `  ran  (,) )t  ( ( 1  / 
2 ) [,] 1
) )  e.  (TopOn `  ( ( 1  / 
2 ) [,] 1
) ) )
8079, 39cnmpt1st 19932 . . . . . 6  |-  ( ph  ->  ( x  e.  ( ( 1  /  2
) [,] 1 ) ,  y  e.  ( 0 [,] 1 ) 
|->  x )  e.  ( ( ( ( topGen ` 
ran  (,) )t  ( ( 1  /  2 ) [,] 1 ) )  tX  II )  Cn  (
( topGen `  ran  (,) )t  (
( 1  /  2
) [,] 1 ) ) ) )
8124iihalf2cn 21197 . . . . . . 7  |-  ( z  e.  ( ( 1  /  2 ) [,] 1 )  |->  ( ( 2  x.  z )  -  1 ) )  e.  ( ( (
topGen `  ran  (,) )t  (
( 1  /  2
) [,] 1 ) )  Cn  II )
8281a1i 11 . . . . . 6  |-  ( ph  ->  ( z  e.  ( ( 1  /  2
) [,] 1 ) 
|->  ( ( 2  x.  z )  -  1 ) )  e.  ( ( ( topGen `  ran  (,) )t  ( ( 1  / 
2 ) [,] 1
) )  Cn  II ) )
8369oveq1d 6299 . . . . . 6  |-  ( z  =  x  ->  (
( 2  x.  z
)  -  1 )  =  ( ( 2  x.  x )  - 
1 ) )
8479, 39, 80, 79, 82, 83cnmpt21 19935 . . . . 5  |-  ( ph  ->  ( x  e.  ( ( 1  /  2
) [,] 1 ) ,  y  e.  ( 0 [,] 1 ) 
|->  ( ( 2  x.  x )  -  1 ) )  e.  ( ( ( ( topGen ` 
ran  (,) )t  ( ( 1  /  2 ) [,] 1 ) )  tX  II )  Cn  II ) )
8579, 39cnmpt2nd 19933 . . . . 5  |-  ( ph  ->  ( x  e.  ( ( 1  /  2
) [,] 1 ) ,  y  e.  ( 0 [,] 1 ) 
|->  y )  e.  ( ( ( ( topGen ` 
ran  (,) )t  ( ( 1  /  2 ) [,] 1 ) )  tX  II )  Cn  II ) )
868, 12phtpycn 21246 . . . . . 6  |-  ( ph  ->  ( G ( PHtpy `  J ) K ) 
C_  ( ( II 
tX  II )  Cn  J ) )
8786, 16sseldd 3505 . . . . 5  |-  ( ph  ->  N  e.  ( ( II  tX  II )  Cn  J ) )
8879, 39, 84, 85, 87cnmpt22f 19939 . . . 4  |-  ( ph  ->  ( x  e.  ( ( 1  /  2
) [,] 1 ) ,  y  e.  ( 0 [,] 1 ) 
|->  ( ( ( 2  x.  x )  - 
1 ) N y ) )  e.  ( ( ( ( topGen ` 
ran  (,) )t  ( ( 1  /  2 ) [,] 1 ) )  tX  II )  Cn  J
) )
8922, 23, 24, 25, 26, 27, 37, 39, 59, 74, 88cnmpt2pc 21191 . . 3  |-  ( ph  ->  ( x  e.  ( 0 [,] 1 ) ,  y  e.  ( 0 [,] 1 ) 
|->  if ( x  <_ 
( 1  /  2
) ,  ( ( 2  x.  x ) M y ) ,  ( ( ( 2  x.  x )  - 
1 ) N y ) ) )  e.  ( ( II  tX  II )  Cn  J
) )
9021, 89syl5eqel 2559 . 2  |-  ( ph  ->  P  e.  ( ( II  tX  II )  Cn  J ) )
91 simpll 753 . . . . . . 7  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  ph )
92 elii1 21198 . . . . . . . . 9  |-  ( s  e.  ( 0 [,] ( 1  /  2
) )  <->  ( s  e.  ( 0 [,] 1
)  /\  s  <_  ( 1  /  2 ) ) )
93 iihalf1 21194 . . . . . . . . 9  |-  ( s  e.  ( 0 [,] ( 1  /  2
) )  ->  (
2  x.  s )  e.  ( 0 [,] 1 ) )
9492, 93sylbir 213 . . . . . . . 8  |-  ( ( s  e.  ( 0 [,] 1 )  /\  s  <_  ( 1  / 
2 ) )  -> 
( 2  x.  s
)  e.  ( 0 [,] 1 ) )
9594adantll 713 . . . . . . 7  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  (
2  x.  s )  e.  ( 0 [,] 1 ) )
964, 11phtpyhtpy 21245 . . . . . . . . 9  |-  ( ph  ->  ( F ( PHtpy `  J ) H ) 
C_  ( F ( II Htpy  J ) H ) )
9796, 13sseldd 3505 . . . . . . . 8  |-  ( ph  ->  M  e.  ( F ( II Htpy  J ) H ) )
9839, 4, 11, 97htpyi 21237 . . . . . . 7  |-  ( (
ph  /\  ( 2  x.  s )  e.  ( 0 [,] 1
) )  ->  (
( ( 2  x.  s ) M 0 )  =  ( F `
 ( 2  x.  s ) )  /\  ( ( 2  x.  s ) M 1 )  =  ( H `
 ( 2  x.  s ) ) ) )
9991, 95, 98syl2anc 661 . . . . . 6  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  (
( ( 2  x.  s ) M 0 )  =  ( F `
 ( 2  x.  s ) )  /\  ( ( 2  x.  s ) M 1 )  =  ( H `
 ( 2  x.  s ) ) ) )
10099simpld 459 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  (
( 2  x.  s
) M 0 )  =  ( F `  ( 2  x.  s
) ) )
101 iftrue 3945 . . . . . 6  |-  ( s  <_  ( 1  / 
2 )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s )  -  1 ) N 0 ) )  =  ( ( 2  x.  s ) M 0 ) )
102101adantl 466 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s )  -  1 ) N 0 ) )  =  ( ( 2  x.  s ) M 0 ) )
103 iftrue 3945 . . . . . 6  |-  ( s  <_  ( 1  / 
2 )  ->  if ( s  <_  (
1  /  2 ) ,  ( F `  ( 2  x.  s
) ) ,  ( G `  ( ( 2  x.  s )  -  1 ) ) )  =  ( F `
 ( 2  x.  s ) ) )
104103adantl 466 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  if ( s  <_  (
1  /  2 ) ,  ( F `  ( 2  x.  s
) ) ,  ( G `  ( ( 2  x.  s )  -  1 ) ) )  =  ( F `
 ( 2  x.  s ) ) )
105100, 102, 1043eqtr4d 2518 . . . 4  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s )  -  1 ) N 0 ) )  =  if ( s  <_  ( 1  /  2 ) ,  ( F `  (
2  x.  s ) ) ,  ( G `
 ( ( 2  x.  s )  - 
1 ) ) ) )
106 simpll 753 . . . . . . 7  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  ->  ph )
107 elii2 21199 . . . . . . . . 9  |-  ( ( s  e.  ( 0 [,] 1 )  /\  -.  s  <_  ( 1  /  2 ) )  ->  s  e.  ( ( 1  /  2
) [,] 1 ) )
108107adantll 713 . . . . . . . 8  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  -> 
s  e.  ( ( 1  /  2 ) [,] 1 ) )
109 iihalf2 21196 . . . . . . . 8  |-  ( s  e.  ( ( 1  /  2 ) [,] 1 )  ->  (
( 2  x.  s
)  -  1 )  e.  ( 0 [,] 1 ) )
110108, 109syl 16 . . . . . . 7  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  -> 
( ( 2  x.  s )  -  1 )  e.  ( 0 [,] 1 ) )
1118, 12phtpyhtpy 21245 . . . . . . . . 9  |-  ( ph  ->  ( G ( PHtpy `  J ) K ) 
C_  ( G ( II Htpy  J ) K ) )
112111, 16sseldd 3505 . . . . . . . 8  |-  ( ph  ->  N  e.  ( G ( II Htpy  J ) K ) )
11339, 8, 12, 112htpyi 21237 . . . . . . 7  |-  ( (
ph  /\  ( (
2  x.  s )  -  1 )  e.  ( 0 [,] 1
) )  ->  (
( ( ( 2  x.  s )  - 
1 ) N 0 )  =  ( G `
 ( ( 2  x.  s )  - 
1 ) )  /\  ( ( ( 2  x.  s )  - 
1 ) N 1 )  =  ( K `
 ( ( 2  x.  s )  - 
1 ) ) ) )
114106, 110, 113syl2anc 661 . . . . . 6  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  -> 
( ( ( ( 2  x.  s )  -  1 ) N 0 )  =  ( G `  ( ( 2  x.  s )  -  1 ) )  /\  ( ( ( 2  x.  s )  -  1 ) N 1 )  =  ( K `  ( ( 2  x.  s )  -  1 ) ) ) )
115114simpld 459 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  -> 
( ( ( 2  x.  s )  - 
1 ) N 0 )  =  ( G `
 ( ( 2  x.  s )  - 
1 ) ) )
116 iffalse 3948 . . . . . 6  |-  ( -.  s  <_  ( 1  /  2 )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s )  -  1 ) N 0 ) )  =  ( ( ( 2  x.  s
)  -  1 ) N 0 ) )
117116adantl 466 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s )  -  1 ) N 0 ) )  =  ( ( ( 2  x.  s
)  -  1 ) N 0 ) )
118 iffalse 3948 . . . . . 6  |-  ( -.  s  <_  ( 1  /  2 )  ->  if ( s  <_  (
1  /  2 ) ,  ( F `  ( 2  x.  s
) ) ,  ( G `  ( ( 2  x.  s )  -  1 ) ) )  =  ( G `
 ( ( 2  x.  s )  - 
1 ) ) )
119118adantl 466 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  ->  if ( s  <_  (
1  /  2 ) ,  ( F `  ( 2  x.  s
) ) ,  ( G `  ( ( 2  x.  s )  -  1 ) ) )  =  ( G `
 ( ( 2  x.  s )  - 
1 ) ) )
120115, 117, 1193eqtr4d 2518 . . . 4  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s )  -  1 ) N 0 ) )  =  if ( s  <_  ( 1  /  2 ) ,  ( F `  (
2  x.  s ) ) ,  ( G `
 ( ( 2  x.  s )  - 
1 ) ) ) )
121105, 120pm2.61dan 789 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s )  -  1 ) N 0 ) )  =  if ( s  <_  ( 1  /  2 ) ,  ( F `  (
2  x.  s ) ) ,  ( G `
 ( ( 2  x.  s )  - 
1 ) ) ) )
122 simpr 461 . . . 4  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  s  e.  ( 0 [,] 1
) )
123 0elunit 11638 . . . 4  |-  0  e.  ( 0 [,] 1
)
124 simpl 457 . . . . . . 7  |-  ( ( x  =  s  /\  y  =  0 )  ->  x  =  s )
125124breq1d 4457 . . . . . 6  |-  ( ( x  =  s  /\  y  =  0 )  ->  ( x  <_ 
( 1  /  2
)  <->  s  <_  (
1  /  2 ) ) )
126124oveq2d 6300 . . . . . . 7  |-  ( ( x  =  s  /\  y  =  0 )  ->  ( 2  x.  x )  =  ( 2  x.  s ) )
127 simpr 461 . . . . . . 7  |-  ( ( x  =  s  /\  y  =  0 )  ->  y  =  0 )
128126, 127oveq12d 6302 . . . . . 6  |-  ( ( x  =  s  /\  y  =  0 )  ->  ( ( 2  x.  x ) M y )  =  ( ( 2  x.  s
) M 0 ) )
129126oveq1d 6299 . . . . . . 7  |-  ( ( x  =  s  /\  y  =  0 )  ->  ( ( 2  x.  x )  - 
1 )  =  ( ( 2  x.  s
)  -  1 ) )
130129, 127oveq12d 6302 . . . . . 6  |-  ( ( x  =  s  /\  y  =  0 )  ->  ( ( ( 2  x.  x )  -  1 ) N y )  =  ( ( ( 2  x.  s )  -  1 ) N 0 ) )
131125, 128, 130ifbieq12d 3966 . . . . 5  |-  ( ( x  =  s  /\  y  =  0 )  ->  if ( x  <_  ( 1  / 
2 ) ,  ( ( 2  x.  x
) M y ) ,  ( ( ( 2  x.  x )  -  1 ) N y ) )  =  if ( s  <_ 
( 1  /  2
) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s )  - 
1 ) N 0 ) ) )
132 ovex 6309 . . . . . 6  |-  ( ( 2  x.  s ) M 0 )  e. 
_V
133 ovex 6309 . . . . . 6  |-  ( ( ( 2  x.  s
)  -  1 ) N 0 )  e. 
_V
134132, 133ifex 4008 . . . . 5  |-  if ( s  <_  ( 1  /  2 ) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s
)  -  1 ) N 0 ) )  e.  _V
135131, 21, 134ovmpt2a 6417 . . . 4  |-  ( ( s  e.  ( 0 [,] 1 )  /\  0  e.  ( 0 [,] 1 ) )  ->  ( s P 0 )  =  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 0 ) ,  ( ( ( 2  x.  s )  -  1 ) N 0 ) ) )
136122, 123, 135sylancl 662 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
s P 0 )  =  if ( s  <_  ( 1  / 
2 ) ,  ( ( 2  x.  s
) M 0 ) ,  ( ( ( 2  x.  s )  -  1 ) N 0 ) ) )
1374, 8pcovalg 21275 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
( F ( *p
`  J ) G ) `  s )  =  if ( s  <_  ( 1  / 
2 ) ,  ( F `  ( 2  x.  s ) ) ,  ( G `  ( ( 2  x.  s )  -  1 ) ) ) )
138121, 136, 1373eqtr4d 2518 . 2  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
s P 0 )  =  ( ( F ( *p `  J
) G ) `  s ) )
13999simprd 463 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  (
( 2  x.  s
) M 1 )  =  ( H `  ( 2  x.  s
) ) )
140 iftrue 3945 . . . . . 6  |-  ( s  <_  ( 1  / 
2 )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s )  -  1 ) N 1 ) )  =  ( ( 2  x.  s ) M 1 ) )
141140adantl 466 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s )  -  1 ) N 1 ) )  =  ( ( 2  x.  s ) M 1 ) )
142 iftrue 3945 . . . . . 6  |-  ( s  <_  ( 1  / 
2 )  ->  if ( s  <_  (
1  /  2 ) ,  ( H `  ( 2  x.  s
) ) ,  ( K `  ( ( 2  x.  s )  -  1 ) ) )  =  ( H `
 ( 2  x.  s ) ) )
143142adantl 466 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  if ( s  <_  (
1  /  2 ) ,  ( H `  ( 2  x.  s
) ) ,  ( K `  ( ( 2  x.  s )  -  1 ) ) )  =  ( H `
 ( 2  x.  s ) ) )
144139, 141, 1433eqtr4d 2518 . . . 4  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  s  <_  ( 1  /  2
) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s )  -  1 ) N 1 ) )  =  if ( s  <_  ( 1  /  2 ) ,  ( H `  (
2  x.  s ) ) ,  ( K `
 ( ( 2  x.  s )  - 
1 ) ) ) )
145114simprd 463 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  -> 
( ( ( 2  x.  s )  - 
1 ) N 1 )  =  ( K `
 ( ( 2  x.  s )  - 
1 ) ) )
146 iffalse 3948 . . . . . 6  |-  ( -.  s  <_  ( 1  /  2 )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s )  -  1 ) N 1 ) )  =  ( ( ( 2  x.  s
)  -  1 ) N 1 ) )
147146adantl 466 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s )  -  1 ) N 1 ) )  =  ( ( ( 2  x.  s
)  -  1 ) N 1 ) )
148 iffalse 3948 . . . . . 6  |-  ( -.  s  <_  ( 1  /  2 )  ->  if ( s  <_  (
1  /  2 ) ,  ( H `  ( 2  x.  s
) ) ,  ( K `  ( ( 2  x.  s )  -  1 ) ) )  =  ( K `
 ( ( 2  x.  s )  - 
1 ) ) )
149148adantl 466 . . . . 5  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  ->  if ( s  <_  (
1  /  2 ) ,  ( H `  ( 2  x.  s
) ) ,  ( K `  ( ( 2  x.  s )  -  1 ) ) )  =  ( K `
 ( ( 2  x.  s )  - 
1 ) ) )
150145, 147, 1493eqtr4d 2518 . . . 4  |-  ( ( ( ph  /\  s  e.  ( 0 [,] 1
) )  /\  -.  s  <_  ( 1  / 
2 ) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s )  -  1 ) N 1 ) )  =  if ( s  <_  ( 1  /  2 ) ,  ( H `  (
2  x.  s ) ) ,  ( K `
 ( ( 2  x.  s )  - 
1 ) ) ) )
151144, 150pm2.61dan 789 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s )  -  1 ) N 1 ) )  =  if ( s  <_  ( 1  /  2 ) ,  ( H `  (
2  x.  s ) ) ,  ( K `
 ( ( 2  x.  s )  - 
1 ) ) ) )
152 1elunit 11639 . . . 4  |-  1  e.  ( 0 [,] 1
)
153 simpl 457 . . . . . . 7  |-  ( ( x  =  s  /\  y  =  1 )  ->  x  =  s )
154153breq1d 4457 . . . . . 6  |-  ( ( x  =  s  /\  y  =  1 )  ->  ( x  <_ 
( 1  /  2
)  <->  s  <_  (
1  /  2 ) ) )
155153oveq2d 6300 . . . . . . 7  |-  ( ( x  =  s  /\  y  =  1 )  ->  ( 2  x.  x )  =  ( 2  x.  s ) )
156 simpr 461 . . . . . . 7  |-  ( ( x  =  s  /\  y  =  1 )  ->  y  =  1 )
157155, 156oveq12d 6302 . . . . . 6  |-  ( ( x  =  s  /\  y  =  1 )  ->  ( ( 2  x.  x ) M y )  =  ( ( 2  x.  s
) M 1 ) )
158155oveq1d 6299 . . . . . . 7  |-  ( ( x  =  s  /\  y  =  1 )  ->  ( ( 2  x.  x )  - 
1 )  =  ( ( 2  x.  s
)  -  1 ) )
159158, 156oveq12d 6302 . . . . . 6  |-  ( ( x  =  s  /\  y  =  1 )  ->  ( ( ( 2  x.  x )  -  1 ) N y )  =  ( ( ( 2  x.  s )  -  1 ) N 1 ) )
160154, 157, 159ifbieq12d 3966 . . . . 5  |-  ( ( x  =  s  /\  y  =  1 )  ->  if ( x  <_  ( 1  / 
2 ) ,  ( ( 2  x.  x
) M y ) ,  ( ( ( 2  x.  x )  -  1 ) N y ) )  =  if ( s  <_ 
( 1  /  2
) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s )  - 
1 ) N 1 ) ) )
161 ovex 6309 . . . . . 6  |-  ( ( 2  x.  s ) M 1 )  e. 
_V
162 ovex 6309 . . . . . 6  |-  ( ( ( 2  x.  s
)  -  1 ) N 1 )  e. 
_V
163161, 162ifex 4008 . . . . 5  |-  if ( s  <_  ( 1  /  2 ) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s
)  -  1 ) N 1 ) )  e.  _V
164160, 21, 163ovmpt2a 6417 . . . 4  |-  ( ( s  e.  ( 0 [,] 1 )  /\  1  e.  ( 0 [,] 1 ) )  ->  ( s P 1 )  =  if ( s  <_  (
1  /  2 ) ,  ( ( 2  x.  s ) M 1 ) ,  ( ( ( 2  x.  s )  -  1 ) N 1 ) ) )
165122, 152, 164sylancl 662 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
s P 1 )  =  if ( s  <_  ( 1  / 
2 ) ,  ( ( 2  x.  s
) M 1 ) ,  ( ( ( 2  x.  s )  -  1 ) N 1 ) ) )
16611, 12pcovalg 21275 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
( H ( *p
`  J ) K ) `  s )  =  if ( s  <_  ( 1  / 
2 ) ,  ( H `  ( 2  x.  s ) ) ,  ( K `  ( ( 2  x.  s )  -  1 ) ) ) )
167151, 165, 1663eqtr4d 2518 . 2  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
s P 1 )  =  ( ( H ( *p `  J
) K ) `  s ) )
1684, 11, 13phtpyi 21247 . . . 4  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
( 0 M s )  =  ( F `
 0 )  /\  ( 1 M s )  =  ( F `
 1 ) ) )
169168simpld 459 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
0 M s )  =  ( F ` 
0 ) )
170 simpl 457 . . . . . . . 8  |-  ( ( x  =  0  /\  y  =  s )  ->  x  =  0 )
171170, 31syl6eqbr 4484 . . . . . . 7  |-  ( ( x  =  0  /\  y  =  s )  ->  x  <_  (
1  /  2 ) )
172 iftrue 3945 . . . . . . 7  |-  ( x  <_  ( 1  / 
2 )  ->  if ( x  <_  ( 1  /  2 ) ,  ( ( 2  x.  x ) M y ) ,  ( ( ( 2  x.  x
)  -  1 ) N y ) )  =  ( ( 2  x.  x ) M y ) )
173171, 172syl 16 . . . . . 6  |-  ( ( x  =  0  /\  y  =  s )  ->  if ( x  <_  ( 1  / 
2 ) ,  ( ( 2  x.  x
) M y ) ,  ( ( ( 2  x.  x )  -  1 ) N y ) )  =  ( ( 2  x.  x ) M y ) )
174170oveq2d 6300 . . . . . . . 8  |-  ( ( x  =  0  /\  y  =  s )  ->  ( 2  x.  x )  =  ( 2  x.  0 ) )
175 2t0e0 10691 . . . . . . . 8  |-  ( 2  x.  0 )  =  0
176174, 175syl6eq 2524 . . . . . . 7  |-  ( ( x  =  0  /\  y  =  s )  ->  ( 2  x.  x )  =  0 )
177 simpr 461 . . . . . . 7  |-  ( ( x  =  0  /\  y  =  s )  ->  y  =  s )
178176, 177oveq12d 6302 . . . . . 6  |-  ( ( x  =  0  /\  y  =  s )  ->  ( ( 2  x.  x ) M y )  =  ( 0 M s ) )
179173, 178eqtrd 2508 . . . . 5  |-  ( ( x  =  0  /\  y  =  s )  ->  if ( x  <_  ( 1  / 
2 ) ,  ( ( 2  x.  x
) M y ) ,  ( ( ( 2  x.  x )  -  1 ) N y ) )  =  ( 0 M s ) )
180 ovex 6309 . . . . 5  |-  ( 0 M s )  e. 
_V
181179, 21, 180ovmpt2a 6417 . . . 4  |-  ( ( 0  e.  ( 0 [,] 1 )  /\  s  e.  ( 0 [,] 1 ) )  ->  ( 0 P s )  =  ( 0 M s ) )
182123, 122, 181sylancr 663 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
0 P s )  =  ( 0 M s ) )
1834, 8pco0 21277 . . . 4  |-  ( ph  ->  ( ( F ( *p `  J ) G ) `  0
)  =  ( F `
 0 ) )
184183adantr 465 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
( F ( *p
`  J ) G ) `  0 )  =  ( F ` 
0 ) )
185169, 182, 1843eqtr4d 2518 . 2  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
0 P s )  =  ( ( F ( *p `  J
) G ) ` 
0 ) )
1868, 12, 16phtpyi 21247 . . . 4  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
( 0 N s )  =  ( G `
 0 )  /\  ( 1 N s )  =  ( G `
 1 ) ) )
187186simprd 463 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
1 N s )  =  ( G ` 
1 ) )
18828, 32ltnlei 9705 . . . . . . . . 9  |-  ( ( 1  /  2 )  <  1  <->  -.  1  <_  ( 1  /  2
) )
18933, 188mpbi 208 . . . . . . . 8  |-  -.  1  <_  ( 1  /  2
)
190 simpl 457 . . . . . . . . 9  |-  ( ( x  =  1  /\  y  =  s )  ->  x  =  1 )
191190breq1d 4457 . . . . . . . 8  |-  ( ( x  =  1  /\  y  =  s )  ->  ( x  <_ 
( 1  /  2
)  <->  1  <_  (
1  /  2 ) ) )
192189, 191mtbiri 303 . . . . . . 7  |-  ( ( x  =  1  /\  y  =  s )  ->  -.  x  <_  ( 1  /  2 ) )
193 iffalse 3948 . . . . . . 7  |-  ( -.  x  <_  ( 1  /  2 )  ->  if ( x  <_  (
1  /  2 ) ,  ( ( 2  x.  x ) M y ) ,  ( ( ( 2  x.  x )  -  1 ) N y ) )  =  ( ( ( 2  x.  x
)  -  1 ) N y ) )
194192, 193syl 16 . . . . . 6  |-  ( ( x  =  1  /\  y  =  s )  ->  if ( x  <_  ( 1  / 
2 ) ,  ( ( 2  x.  x
) M y ) ,  ( ( ( 2  x.  x )  -  1 ) N y ) )  =  ( ( ( 2  x.  x )  - 
1 ) N y ) )
195190oveq2d 6300 . . . . . . . . . 10  |-  ( ( x  =  1  /\  y  =  s )  ->  ( 2  x.  x )  =  ( 2  x.  1 ) )
196 2t1e2 10684 . . . . . . . . . 10  |-  ( 2  x.  1 )  =  2
197195, 196syl6eq 2524 . . . . . . . . 9  |-  ( ( x  =  1  /\  y  =  s )  ->  ( 2  x.  x )  =  2 )
198197oveq1d 6299 . . . . . . . 8  |-  ( ( x  =  1  /\  y  =  s )  ->  ( ( 2  x.  x )  - 
1 )  =  ( 2  -  1 ) )
199 2m1e1 10650 . . . . . . . 8  |-  ( 2  -  1 )  =  1
200198, 199syl6eq 2524 . . . . . . 7  |-  ( ( x  =  1  /\  y  =  s )  ->  ( ( 2  x.  x )  - 
1 )  =  1 )
201 simpr 461 . . . . . . 7  |-  ( ( x  =  1  /\  y  =  s )  ->  y  =  s )
202200, 201oveq12d 6302 . . . . . 6  |-  ( ( x  =  1  /\  y  =  s )  ->  ( ( ( 2  x.  x )  -  1 ) N y )  =  ( 1 N s ) )
203194, 202eqtrd 2508 . . . . 5  |-  ( ( x  =  1  /\  y  =  s )  ->  if ( x  <_  ( 1  / 
2 ) ,  ( ( 2  x.  x
) M y ) ,  ( ( ( 2  x.  x )  -  1 ) N y ) )  =  ( 1 N s ) )
204 ovex 6309 . . . . 5  |-  ( 1 N s )  e. 
_V
205203, 21, 204ovmpt2a 6417 . . . 4  |-  ( ( 1  e.  ( 0 [,] 1 )  /\  s  e.  ( 0 [,] 1 ) )  ->  ( 1 P s )  =  ( 1 N s ) )
206152, 122, 205sylancr 663 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
1 P s )  =  ( 1 N s ) )
2074, 8pco1 21278 . . . 4  |-  ( ph  ->  ( ( F ( *p `  J ) G ) `  1
)  =  ( G `
 1 ) )
208207adantr 465 . . 3  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
( F ( *p
`  J ) G ) `  1 )  =  ( G ` 
1 ) )
209187, 206, 2083eqtr4d 2518 . 2  |-  ( (
ph  /\  s  e.  ( 0 [,] 1
) )  ->  (
1 P s )  =  ( ( F ( *p `  J
) G ) ` 
1 ) )
21010, 20, 90, 138, 167, 185, 209isphtpy2d 21250 1  |-  ( ph  ->  P  e.  ( ( F ( *p `  J ) G ) ( PHtpy `  J )
( H ( *p
`  J ) K ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 369    /\ w3a 973    = wceq 1379    e. wcel 1767    =/= wne 2662    C_ wss 3476   (/)c0 3785   ifcif 3939   class class class wbr 4447    |-> cmpt 4505   ran crn 5000   ` cfv 5588  (class class class)co 6284    |-> cmpt2 6286   RRcr 9491   0cc0 9492   1c1 9493    x. cmul 9497    < clt 9628    <_ cle 9629    - cmin 9805    / cdiv 10206   2c2 10585   (,)cioo 11529   [,]cicc 11532   ↾t crest 14676   topGenctg 14693  TopOnctopon 19190    Cn ccn 19519    tX ctx 19824   IIcii 21142   Htpy chtpy 21230   PHtpycphtpy 21231    ~=ph cphtpc 21232   *pcpco 21263
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1601  ax-4 1612  ax-5 1680  ax-6 1719  ax-7 1739  ax-8 1769  ax-9 1771  ax-10 1786  ax-11 1791  ax-12 1803  ax-13 1968  ax-ext 2445  ax-rep 4558  ax-sep 4568  ax-nul 4576  ax-pow 4625  ax-pr 4686  ax-un 6576  ax-inf2 8058  ax-cnex 9548  ax-resscn 9549  ax-1cn 9550  ax-icn 9551  ax-addcl 9552  ax-addrcl 9553  ax-mulcl 9554  ax-mulrcl 9555  ax-mulcom 9556  ax-addass 9557  ax-mulass 9558  ax-distr 9559  ax-i2m1 9560  ax-1ne0 9561  ax-1rid 9562  ax-rnegex 9563  ax-rrecex 9564  ax-cnre 9565  ax-pre-lttri 9566  ax-pre-lttrn 9567  ax-pre-ltadd 9568  ax-pre-mulgt0 9569  ax-pre-sup 9570  ax-mulf 9572
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 974  df-3an 975  df-tru 1382  df-ex 1597  df-nf 1600  df-sb 1712  df-eu 2279  df-mo 2280  df-clab 2453  df-cleq 2459  df-clel 2462  df-nfc 2617  df-ne 2664  df-nel 2665  df-ral 2819  df-rex 2820  df-reu 2821  df-rmo 2822  df-rab 2823  df-v 3115  df-sbc 3332  df-csb 3436  df-dif 3479  df-un 3481  df-in 3483  df-ss 3490  df-pss 3492  df-nul 3786  df-if 3940  df-pw 4012  df-sn 4028  df-pr 4030  df-tp 4032  df-op 4034  df-uni 4246  df-int 4283  df-iun 4327  df-iin 4328  df-br 4448  df-opab 4506  df-mpt 4507  df-tr 4541  df-eprel 4791  df-id 4795  df-po 4800  df-so 4801  df-fr 4838  df-se 4839  df-we 4840  df-ord 4881  df-on 4882  df-lim 4883  df-suc 4884  df-xp 5005  df-rel 5006  df-cnv 5007  df-co 5008  df-dm 5009  df-rn 5010  df-res 5011  df-ima 5012  df-iota 5551  df-fun 5590  df-fn 5591  df-f 5592  df-f1 5593  df-fo 5594  df-f1o 5595  df-fv 5596  df-isom 5597  df-riota 6245  df-ov 6287  df-oprab 6288  df-mpt2 6289  df-of 6524  df-om 6685  df-1st 6784  df-2nd 6785  df-supp 6902  df-recs 7042  df-rdg 7076  df-1o 7130  df-2o 7131  df-oadd 7134  df-er 7311  df-map 7422  df-ixp 7470  df-en 7517  df-dom 7518  df-sdom 7519  df-fin 7520  df-fsupp 7830  df-fi 7871  df-sup 7901  df-oi 7935  df-card 8320  df-cda 8548  df-pnf 9630  df-mnf 9631  df-xr 9632  df-ltxr 9633  df-le 9634  df-sub 9807  df-neg 9808  df-div 10207  df-nn 10537  df-2 10594  df-3 10595  df-4 10596  df-5 10597  df-6 10598  df-7 10599  df-8 10600  df-9 10601  df-10 10602  df-n0 10796  df-z 10865  df-dec 10977  df-uz 11083  df-q 11183  df-rp 11221  df-xneg 11318  df-xadd 11319  df-xmul 11320  df-ioo 11533  df-icc 11536  df-fz 11673  df-fzo 11793  df-seq 12076  df-exp 12135  df-hash 12374  df-cj 12895  df-re 12896  df-im 12897  df-sqrt 13031  df-abs 13032  df-struct 14492  df-ndx 14493  df-slot 14494  df-base 14495  df-sets 14496  df-ress 14497  df-plusg 14568  df-mulr 14569  df-starv 14570  df-sca 14571  df-vsca 14572  df-ip 14573  df-tset 14574  df-ple 14575  df-ds 14577  df-unif 14578  df-hom 14579  df-cco 14580  df-rest 14678  df-topn 14679  df-0g 14697  df-gsum 14698  df-topgen 14699  df-pt 14700  df-prds 14703  df-xrs 14757  df-qtop 14762  df-imas 14763  df-xps 14765  df-mre 14841  df-mrc 14842  df-acs 14844  df-mnd 15732  df-submnd 15787  df-mulg 15870  df-cntz 16160  df-cmn 16606  df-psmet 18210  df-xmet 18211  df-met 18212  df-bl 18213  df-mopn 18214  df-cnfld 18220  df-top 19194  df-bases 19196  df-topon 19197  df-topsp 19198  df-cld 19314  df-cn 19522  df-cnp 19523  df-tx 19826  df-hmeo 20019  df-xms 20586  df-ms 20587  df-tms 20588  df-ii 21144  df-htpy 21233  df-phtpy 21234  df-phtpc 21255  df-pco 21268
This theorem is referenced by:  pcohtpy  21283
  Copyright terms: Public domain W3C validator