Metamath Proof Explorer


Theorem blennn0em1

Description: The binary length of the half of an even positive integer is the binary length of the integer minus 1. (Contributed by AV, 30-May-2010)

Ref Expression
Assertion blennn0em1 ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( #b โ€˜ ( ๐‘ / 2 ) ) = ( ( #b โ€˜ ๐‘ ) โˆ’ 1 ) )

Proof

Step Hyp Ref Expression
1 nncn โŠข ( ๐‘ โˆˆ โ„• โ†’ ๐‘ โˆˆ โ„‚ )
2 2cnd โŠข ( ๐‘ โˆˆ โ„• โ†’ 2 โˆˆ โ„‚ )
3 2ne0 โŠข 2 โ‰  0
4 3 a1i โŠข ( ๐‘ โˆˆ โ„• โ†’ 2 โ‰  0 )
5 1 2 4 3jca โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ๐‘ โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) )
6 5 adantr โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( ๐‘ โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) )
7 divcan2 โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) โ†’ ( 2 ยท ( ๐‘ / 2 ) ) = ๐‘ )
8 7 eqcomd โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) โ†’ ๐‘ = ( 2 ยท ( ๐‘ / 2 ) ) )
9 6 8 syl โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ๐‘ = ( 2 ยท ( ๐‘ / 2 ) ) )
10 9 fveq2d โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( #b โ€˜ ๐‘ ) = ( #b โ€˜ ( 2 ยท ( ๐‘ / 2 ) ) ) )
11 nn0enne โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( ๐‘ / 2 ) โˆˆ โ„•0 โ†” ( ๐‘ / 2 ) โˆˆ โ„• ) )
12 11 biimpa โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( ๐‘ / 2 ) โˆˆ โ„• )
13 blennnt2 โŠข ( ( ๐‘ / 2 ) โˆˆ โ„• โ†’ ( #b โ€˜ ( 2 ยท ( ๐‘ / 2 ) ) ) = ( ( #b โ€˜ ( ๐‘ / 2 ) ) + 1 ) )
14 12 13 syl โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( #b โ€˜ ( 2 ยท ( ๐‘ / 2 ) ) ) = ( ( #b โ€˜ ( ๐‘ / 2 ) ) + 1 ) )
15 10 14 eqtr2d โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( ( #b โ€˜ ( ๐‘ / 2 ) ) + 1 ) = ( #b โ€˜ ๐‘ ) )
16 blennnelnn โŠข ( ๐‘ โˆˆ โ„• โ†’ ( #b โ€˜ ๐‘ ) โˆˆ โ„• )
17 16 nncnd โŠข ( ๐‘ โˆˆ โ„• โ†’ ( #b โ€˜ ๐‘ ) โˆˆ โ„‚ )
18 17 adantr โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( #b โ€˜ ๐‘ ) โˆˆ โ„‚ )
19 1cnd โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ 1 โˆˆ โ„‚ )
20 blennn0elnn โŠข ( ( ๐‘ / 2 ) โˆˆ โ„•0 โ†’ ( #b โ€˜ ( ๐‘ / 2 ) ) โˆˆ โ„• )
21 20 nncnd โŠข ( ( ๐‘ / 2 ) โˆˆ โ„•0 โ†’ ( #b โ€˜ ( ๐‘ / 2 ) ) โˆˆ โ„‚ )
22 21 adantl โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( #b โ€˜ ( ๐‘ / 2 ) ) โˆˆ โ„‚ )
23 18 19 22 subadd2d โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( ( ( #b โ€˜ ๐‘ ) โˆ’ 1 ) = ( #b โ€˜ ( ๐‘ / 2 ) ) โ†” ( ( #b โ€˜ ( ๐‘ / 2 ) ) + 1 ) = ( #b โ€˜ ๐‘ ) ) )
24 15 23 mpbird โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( ( #b โ€˜ ๐‘ ) โˆ’ 1 ) = ( #b โ€˜ ( ๐‘ / 2 ) ) )
25 24 eqcomd โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐‘ / 2 ) โˆˆ โ„•0 ) โ†’ ( #b โ€˜ ( ๐‘ / 2 ) ) = ( ( #b โ€˜ ๐‘ ) โˆ’ 1 ) )