Metamath Proof Explorer


Theorem pco1

Description: The ending point of a path concatenation. (Contributed by Jeff Madsen, 15-Jun-2010)

Ref Expression
Hypotheses pcoval.2 โŠข ( ๐œ‘ โ†’ ๐น โˆˆ ( II Cn ๐ฝ ) )
pcoval.3 โŠข ( ๐œ‘ โ†’ ๐บ โˆˆ ( II Cn ๐ฝ ) )
Assertion pco1 ( ๐œ‘ โ†’ ( ( ๐น ( *๐‘ โ€˜ ๐ฝ ) ๐บ ) โ€˜ 1 ) = ( ๐บ โ€˜ 1 ) )

Proof

Step Hyp Ref Expression
1 pcoval.2 โŠข ( ๐œ‘ โ†’ ๐น โˆˆ ( II Cn ๐ฝ ) )
2 pcoval.3 โŠข ( ๐œ‘ โ†’ ๐บ โˆˆ ( II Cn ๐ฝ ) )
3 1 2 pcoval โŠข ( ๐œ‘ โ†’ ( ๐น ( *๐‘ โ€˜ ๐ฝ ) ๐บ ) = ( ๐‘ฅ โˆˆ ( 0 [,] 1 ) โ†ฆ if ( ๐‘ฅ โ‰ค ( 1 / 2 ) , ( ๐น โ€˜ ( 2 ยท ๐‘ฅ ) ) , ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) ) ) )
4 3 fveq1d โŠข ( ๐œ‘ โ†’ ( ( ๐น ( *๐‘ โ€˜ ๐ฝ ) ๐บ ) โ€˜ 1 ) = ( ( ๐‘ฅ โˆˆ ( 0 [,] 1 ) โ†ฆ if ( ๐‘ฅ โ‰ค ( 1 / 2 ) , ( ๐น โ€˜ ( 2 ยท ๐‘ฅ ) ) , ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) ) ) โ€˜ 1 ) )
5 1elunit โŠข 1 โˆˆ ( 0 [,] 1 )
6 halflt1 โŠข ( 1 / 2 ) < 1
7 halfre โŠข ( 1 / 2 ) โˆˆ โ„
8 1re โŠข 1 โˆˆ โ„
9 7 8 ltnlei โŠข ( ( 1 / 2 ) < 1 โ†” ยฌ 1 โ‰ค ( 1 / 2 ) )
10 6 9 mpbi โŠข ยฌ 1 โ‰ค ( 1 / 2 )
11 breq1 โŠข ( ๐‘ฅ = 1 โ†’ ( ๐‘ฅ โ‰ค ( 1 / 2 ) โ†” 1 โ‰ค ( 1 / 2 ) ) )
12 10 11 mtbiri โŠข ( ๐‘ฅ = 1 โ†’ ยฌ ๐‘ฅ โ‰ค ( 1 / 2 ) )
13 12 iffalsed โŠข ( ๐‘ฅ = 1 โ†’ if ( ๐‘ฅ โ‰ค ( 1 / 2 ) , ( ๐น โ€˜ ( 2 ยท ๐‘ฅ ) ) , ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) ) = ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) )
14 oveq2 โŠข ( ๐‘ฅ = 1 โ†’ ( 2 ยท ๐‘ฅ ) = ( 2 ยท 1 ) )
15 2t1e2 โŠข ( 2 ยท 1 ) = 2
16 14 15 eqtrdi โŠข ( ๐‘ฅ = 1 โ†’ ( 2 ยท ๐‘ฅ ) = 2 )
17 16 oveq1d โŠข ( ๐‘ฅ = 1 โ†’ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) = ( 2 โˆ’ 1 ) )
18 2m1e1 โŠข ( 2 โˆ’ 1 ) = 1
19 17 18 eqtrdi โŠข ( ๐‘ฅ = 1 โ†’ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) = 1 )
20 19 fveq2d โŠข ( ๐‘ฅ = 1 โ†’ ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) = ( ๐บ โ€˜ 1 ) )
21 13 20 eqtrd โŠข ( ๐‘ฅ = 1 โ†’ if ( ๐‘ฅ โ‰ค ( 1 / 2 ) , ( ๐น โ€˜ ( 2 ยท ๐‘ฅ ) ) , ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) ) = ( ๐บ โ€˜ 1 ) )
22 eqid โŠข ( ๐‘ฅ โˆˆ ( 0 [,] 1 ) โ†ฆ if ( ๐‘ฅ โ‰ค ( 1 / 2 ) , ( ๐น โ€˜ ( 2 ยท ๐‘ฅ ) ) , ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) ) ) = ( ๐‘ฅ โˆˆ ( 0 [,] 1 ) โ†ฆ if ( ๐‘ฅ โ‰ค ( 1 / 2 ) , ( ๐น โ€˜ ( 2 ยท ๐‘ฅ ) ) , ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) ) )
23 fvex โŠข ( ๐บ โ€˜ 1 ) โˆˆ V
24 21 22 23 fvmpt โŠข ( 1 โˆˆ ( 0 [,] 1 ) โ†’ ( ( ๐‘ฅ โˆˆ ( 0 [,] 1 ) โ†ฆ if ( ๐‘ฅ โ‰ค ( 1 / 2 ) , ( ๐น โ€˜ ( 2 ยท ๐‘ฅ ) ) , ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) ) ) โ€˜ 1 ) = ( ๐บ โ€˜ 1 ) )
25 5 24 ax-mp โŠข ( ( ๐‘ฅ โˆˆ ( 0 [,] 1 ) โ†ฆ if ( ๐‘ฅ โ‰ค ( 1 / 2 ) , ( ๐น โ€˜ ( 2 ยท ๐‘ฅ ) ) , ( ๐บ โ€˜ ( ( 2 ยท ๐‘ฅ ) โˆ’ 1 ) ) ) ) โ€˜ 1 ) = ( ๐บ โ€˜ 1 )
26 4 25 eqtrdi โŠข ( ๐œ‘ โ†’ ( ( ๐น ( *๐‘ โ€˜ ๐ฝ ) ๐บ ) โ€˜ 1 ) = ( ๐บ โ€˜ 1 ) )