Metamath Proof Explorer


Theorem bitsmod

Description: Truncating the bit sequence after some M is equivalent to reducing the argument mod 2 ^ M . (Contributed by Mario Carneiro, 6-Sep-2016)

Ref Expression
Assertion bitsmod ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( bits โ€˜ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) = ( ( bits โ€˜ ๐‘ ) โˆฉ ( 0 ..^ ๐‘€ ) ) )

Proof

Step Hyp Ref Expression
1 simpl โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ๐‘ โˆˆ โ„ค )
2 2nn โŠข 2 โˆˆ โ„•
3 2 a1i โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ 2 โˆˆ โ„• )
4 simpr โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ๐‘€ โˆˆ โ„•0 )
5 3 4 nnexpcld โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( 2 โ†‘ ๐‘€ ) โˆˆ โ„• )
6 1 5 zmodcld โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„•0 )
7 6 nn0zd โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค )
8 7 biantrurd โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘ฅ โˆˆ โ„•0 โˆง ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) โ†” ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค โˆง ( ๐‘ฅ โˆˆ โ„•0 โˆง ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) ) ) )
9 1 ad2antrr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ โˆˆ โ„ค )
10 simplr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ฅ โˆˆ โ„•0 )
11 bitsval2 โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„•0 ) โ†’ ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โ†” ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
12 9 10 11 syl2anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โ†” ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
13 simpr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ฅ < ๐‘€ )
14 13 biantrud โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โ†” ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) ) )
15 2z โŠข 2 โˆˆ โ„ค
16 15 a1i โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ 2 โˆˆ โ„ค )
17 9 zred โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ โˆˆ โ„ )
18 2 a1i โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ 2 โˆˆ โ„• )
19 18 10 nnexpcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โˆˆ โ„• )
20 17 19 nndivred โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ )
21 20 flcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) โˆˆ โ„ค )
22 7 ad2antrr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค )
23 22 zred โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ )
24 23 19 nndivred โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ )
25 24 flcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) โˆˆ โ„ค )
26 19 nnzd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โˆˆ โ„ค )
27 26 16 zmulcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( 2 โ†‘ ๐‘ฅ ) ยท 2 ) โˆˆ โ„ค )
28 5 ad2antrr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘€ ) โˆˆ โ„• )
29 28 nnzd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘€ ) โˆˆ โ„ค )
30 9 22 zsubcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โˆˆ โ„ค )
31 2cnd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ 2 โˆˆ โ„‚ )
32 31 10 expp1d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ( ๐‘ฅ + 1 ) ) = ( ( 2 โ†‘ ๐‘ฅ ) ยท 2 ) )
33 1nn0 โŠข 1 โˆˆ โ„•0
34 33 a1i โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ 1 โˆˆ โ„•0 )
35 10 34 nn0addcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ฅ + 1 ) โˆˆ โ„•0 )
36 35 nn0zd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ฅ + 1 ) โˆˆ โ„ค )
37 simplr โŠข ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โ†’ ๐‘€ โˆˆ โ„•0 )
38 37 adantr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘€ โˆˆ โ„•0 )
39 38 nn0zd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘€ โˆˆ โ„ค )
40 nn0ltp1le โŠข ( ( ๐‘ฅ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ๐‘ฅ < ๐‘€ โ†” ( ๐‘ฅ + 1 ) โ‰ค ๐‘€ ) )
41 10 38 40 syl2anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ฅ < ๐‘€ โ†” ( ๐‘ฅ + 1 ) โ‰ค ๐‘€ ) )
42 13 41 mpbid โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ฅ + 1 ) โ‰ค ๐‘€ )
43 eluz2 โŠข ( ๐‘€ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ๐‘ฅ + 1 ) ) โ†” ( ( ๐‘ฅ + 1 ) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ( ๐‘ฅ + 1 ) โ‰ค ๐‘€ ) )
44 36 39 42 43 syl3anbrc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘€ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ๐‘ฅ + 1 ) ) )
45 dvdsexp โŠข ( ( 2 โˆˆ โ„ค โˆง ( ๐‘ฅ + 1 ) โˆˆ โ„•0 โˆง ๐‘€ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ๐‘ฅ + 1 ) ) ) โ†’ ( 2 โ†‘ ( ๐‘ฅ + 1 ) ) โˆฅ ( 2 โ†‘ ๐‘€ ) )
46 16 35 44 45 syl3anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ( ๐‘ฅ + 1 ) ) โˆฅ ( 2 โ†‘ ๐‘€ ) )
47 32 46 eqbrtrrd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( 2 โ†‘ ๐‘ฅ ) ยท 2 ) โˆฅ ( 2 โ†‘ ๐‘€ ) )
48 28 nnrpd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘€ ) โˆˆ โ„+ )
49 moddifz โŠข ( ( ๐‘ โˆˆ โ„ โˆง ( 2 โ†‘ ๐‘€ ) โˆˆ โ„+ ) โ†’ ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค )
50 17 48 49 syl2anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค )
51 2ne0 โŠข 2 โ‰  0
52 51 a1i โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ 2 โ‰  0 )
53 31 52 39 expne0d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘€ ) โ‰  0 )
54 dvdsval2 โŠข ( ( ( 2 โ†‘ ๐‘€ ) โˆˆ โ„ค โˆง ( 2 โ†‘ ๐‘€ ) โ‰  0 โˆง ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โˆˆ โ„ค ) โ†’ ( ( 2 โ†‘ ๐‘€ ) โˆฅ ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โ†” ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค ) )
55 29 53 30 54 syl3anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( 2 โ†‘ ๐‘€ ) โˆฅ ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โ†” ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค ) )
56 50 55 mpbird โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘€ ) โˆฅ ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) )
57 27 29 30 47 56 dvdstrd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( 2 โ†‘ ๐‘ฅ ) ยท 2 ) โˆฅ ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) )
58 30 zcnd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โˆˆ โ„‚ )
59 19 nncnd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โˆˆ โ„‚ )
60 10 nn0zd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ฅ โˆˆ โ„ค )
61 31 52 60 expne0d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โ‰  0 )
62 58 59 61 divcan2d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( 2 โ†‘ ๐‘ฅ ) ยท ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) = ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) )
63 57 62 breqtrrd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( 2 โ†‘ ๐‘ฅ ) ยท 2 ) โˆฅ ( ( 2 โ†‘ ๐‘ฅ ) ยท ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) )
64 10 nn0red โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ฅ โˆˆ โ„ )
65 38 nn0red โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘€ โˆˆ โ„ )
66 64 65 13 ltled โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ฅ โ‰ค ๐‘€ )
67 eluz2 โŠข ( ๐‘€ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘ฅ ) โ†” ( ๐‘ฅ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ โ‰ค ๐‘€ ) )
68 60 39 66 67 syl3anbrc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘€ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘ฅ ) )
69 dvdsexp โŠข ( ( 2 โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘ฅ ) ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โˆฅ ( 2 โ†‘ ๐‘€ ) )
70 16 10 68 69 syl3anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โˆฅ ( 2 โ†‘ ๐‘€ ) )
71 26 29 30 70 56 dvdstrd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โˆฅ ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) )
72 dvdsval2 โŠข ( ( ( 2 โ†‘ ๐‘ฅ ) โˆˆ โ„ค โˆง ( 2 โ†‘ ๐‘ฅ ) โ‰  0 โˆง ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โˆˆ โ„ค ) โ†’ ( ( 2 โ†‘ ๐‘ฅ ) โˆฅ ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โ†” ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ค ) )
73 26 61 30 72 syl3anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( 2 โ†‘ ๐‘ฅ ) โˆฅ ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โ†” ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ค ) )
74 71 73 mpbid โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ค )
75 dvdscmulr โŠข ( ( 2 โˆˆ โ„ค โˆง ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ค โˆง ( ( 2 โ†‘ ๐‘ฅ ) โˆˆ โ„ค โˆง ( 2 โ†‘ ๐‘ฅ ) โ‰  0 ) ) โ†’ ( ( ( 2 โ†‘ ๐‘ฅ ) ยท 2 ) โˆฅ ( ( 2 โ†‘ ๐‘ฅ ) ยท ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) โ†” 2 โˆฅ ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) )
76 16 74 26 61 75 syl112anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( ( 2 โ†‘ ๐‘ฅ ) ยท 2 ) โˆฅ ( ( 2 โ†‘ ๐‘ฅ ) ยท ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) โ†” 2 โˆฅ ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) )
77 63 76 mpbid โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ 2 โˆฅ ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) )
78 25 zcnd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) โˆˆ โ„‚ )
79 74 zcnd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„‚ )
80 22 zcnd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„‚ )
81 9 zcnd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ โˆˆ โ„‚ )
82 80 81 pncan3d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) + ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) ) = ๐‘ )
83 82 oveq1d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) + ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) = ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) )
84 80 58 59 61 divdird โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) + ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) = ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) + ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) )
85 83 84 eqtr3d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) = ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) + ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) )
86 85 fveq2d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) = ( โŒŠ โ€˜ ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) + ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
87 fladdz โŠข ( ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ โˆง ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ค ) โ†’ ( โŒŠ โ€˜ ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) + ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) = ( ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) + ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) )
88 24 74 87 syl2anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( โŒŠ โ€˜ ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) + ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) = ( ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) + ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) )
89 86 88 eqtrd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) = ( ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) + ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) )
90 78 79 89 mvrladdd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) โˆ’ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) = ( ( ๐‘ โˆ’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) / ( 2 โ†‘ ๐‘ฅ ) ) )
91 77 90 breqtrrd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ 2 โˆฅ ( ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) โˆ’ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
92 dvdssub2 โŠข ( ( ( 2 โˆˆ โ„ค โˆง ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) โˆˆ โ„ค โˆง ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) โˆˆ โ„ค ) โˆง 2 โˆฅ ( ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) โˆ’ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) ) โ†’ ( 2 โˆฅ ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) โ†” 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
93 16 21 25 91 92 syl31anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โˆฅ ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) โ†” 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
94 93 notbid โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ๐‘ / ( 2 โ†‘ ๐‘ฅ ) ) ) โ†” ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
95 12 14 94 3bitr3d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) โ†” ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
96 z0even โŠข 2 โˆฅ 0
97 1 ad2antrr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ โˆˆ โ„ค )
98 97 zred โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ โˆˆ โ„ )
99 2rp โŠข 2 โˆˆ โ„+
100 99 a1i โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ 2 โˆˆ โ„+ )
101 37 nn0zd โŠข ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โ†’ ๐‘€ โˆˆ โ„ค )
102 101 adantr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ๐‘€ โˆˆ โ„ค )
103 100 102 rpexpcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘€ ) โˆˆ โ„+ )
104 98 103 modcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ )
105 simplr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ฅ โˆˆ โ„•0 )
106 105 nn0zd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ฅ โˆˆ โ„ค )
107 100 106 rpexpcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โˆˆ โ„+ )
108 6 ad2antrr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„•0 )
109 108 nn0ge0d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ 0 โ‰ค ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) )
110 104 107 109 divge0d โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ 0 โ‰ค ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) )
111 103 rpred โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘€ ) โˆˆ โ„ )
112 107 rpred โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โˆˆ โ„ )
113 modlt โŠข ( ( ๐‘ โˆˆ โ„ โˆง ( 2 โ†‘ ๐‘€ ) โˆˆ โ„+ ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) < ( 2 โ†‘ ๐‘€ ) )
114 98 103 113 syl2anc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) < ( 2 โ†‘ ๐‘€ ) )
115 100 rpred โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ 2 โˆˆ โ„ )
116 1le2 โŠข 1 โ‰ค 2
117 116 a1i โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ 1 โ‰ค 2 )
118 102 zred โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ๐‘€ โˆˆ โ„ )
119 105 nn0red โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ฅ โˆˆ โ„ )
120 simpr โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ยฌ ๐‘ฅ < ๐‘€ )
121 118 119 120 nltled โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ๐‘€ โ‰ค ๐‘ฅ )
122 eluz2 โŠข ( ๐‘ฅ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) โ†” ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„ค โˆง ๐‘€ โ‰ค ๐‘ฅ ) )
123 102 106 121 122 syl3anbrc โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ๐‘ฅ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) )
124 115 117 123 leexp2ad โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘€ ) โ‰ค ( 2 โ†‘ ๐‘ฅ ) )
125 104 111 112 114 124 ltletrd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) < ( 2 โ†‘ ๐‘ฅ ) )
126 107 rpcnd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โ†‘ ๐‘ฅ ) โˆˆ โ„‚ )
127 126 mulridd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ( 2 โ†‘ ๐‘ฅ ) ยท 1 ) = ( 2 โ†‘ ๐‘ฅ ) )
128 125 127 breqtrrd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) < ( ( 2 โ†‘ ๐‘ฅ ) ยท 1 ) )
129 1red โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ 1 โˆˆ โ„ )
130 104 129 107 ltdivmuld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) < 1 โ†” ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) < ( ( 2 โ†‘ ๐‘ฅ ) ยท 1 ) ) )
131 128 130 mpbird โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) < 1 )
132 1e0p1 โŠข 1 = ( 0 + 1 )
133 131 132 breqtrdi โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) < ( 0 + 1 ) )
134 104 107 rerpdivcld โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ )
135 0z โŠข 0 โˆˆ โ„ค
136 flbi โŠข ( ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆˆ โ„ โˆง 0 โˆˆ โ„ค ) โ†’ ( ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) = 0 โ†” ( 0 โ‰ค ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆง ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) < ( 0 + 1 ) ) ) )
137 134 135 136 sylancl โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) = 0 โ†” ( 0 โ‰ค ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) โˆง ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) < ( 0 + 1 ) ) ) )
138 110 133 137 mpbir2and โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) = 0 )
139 96 138 breqtrrid โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) )
140 120 intnand โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ยฌ ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) )
141 139 140 2thd โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) โ†” ยฌ ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) ) )
142 141 con2bid โŠข ( ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โˆง ยฌ ๐‘ฅ < ๐‘€ ) โ†’ ( ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) โ†” ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
143 95 142 pm2.61dan โŠข ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โ†’ ( ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) โ†” ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
144 101 biantrurd โŠข ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โ†’ ( ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) โ†” ( ๐‘€ โˆˆ โ„ค โˆง ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) ) ) )
145 143 144 bitr3d โŠข ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โ†’ ( ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) โ†” ( ๐‘€ โˆˆ โ„ค โˆง ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) ) ) )
146 an12 โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ < ๐‘€ ) ) โ†” ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) )
147 145 146 bitrdi โŠข ( ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โˆง ๐‘ฅ โˆˆ โ„•0 ) โ†’ ( ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) โ†” ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) ) )
148 147 pm5.32da โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘ฅ โˆˆ โ„•0 โˆง ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) โ†” ( ๐‘ฅ โˆˆ โ„•0 โˆง ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) ) ) )
149 8 148 bitr3d โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค โˆง ( ๐‘ฅ โˆˆ โ„•0 โˆง ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) ) โ†” ( ๐‘ฅ โˆˆ โ„•0 โˆง ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) ) ) )
150 3anass โŠข ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„•0 โˆง ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) โ†” ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค โˆง ( ๐‘ฅ โˆˆ โ„•0 โˆง ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) ) )
151 elfzo2 โŠข ( ๐‘ฅ โˆˆ ( 0 ..^ ๐‘€ ) โ†” ( ๐‘ฅ โˆˆ ( โ„คโ‰ฅ โ€˜ 0 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) )
152 elnn0uz โŠข ( ๐‘ฅ โˆˆ โ„•0 โ†” ๐‘ฅ โˆˆ ( โ„คโ‰ฅ โ€˜ 0 ) )
153 152 3anbi1i โŠข ( ( ๐‘ฅ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) โ†” ( ๐‘ฅ โˆˆ ( โ„คโ‰ฅ โ€˜ 0 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) )
154 3anass โŠข ( ( ๐‘ฅ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) โ†” ( ๐‘ฅ โˆˆ โ„•0 โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) )
155 151 153 154 3bitr2i โŠข ( ๐‘ฅ โˆˆ ( 0 ..^ ๐‘€ ) โ†” ( ๐‘ฅ โˆˆ โ„•0 โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) )
156 155 anbi2i โŠข ( ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ โˆˆ ( 0 ..^ ๐‘€ ) ) โ†” ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ( ๐‘ฅ โˆˆ โ„•0 โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) ) )
157 an12 โŠข ( ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ( ๐‘ฅ โˆˆ โ„•0 โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) ) โ†” ( ๐‘ฅ โˆˆ โ„•0 โˆง ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) ) )
158 156 157 bitri โŠข ( ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ โˆˆ ( 0 ..^ ๐‘€ ) ) โ†” ( ๐‘ฅ โˆˆ โ„•0 โˆง ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ < ๐‘€ ) ) ) )
159 149 150 158 3bitr4g โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„•0 โˆง ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) โ†” ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ โˆˆ ( 0 ..^ ๐‘€ ) ) ) )
160 bitsval โŠข ( ๐‘ฅ โˆˆ ( bits โ€˜ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โ†” ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„•0 โˆง ยฌ 2 โˆฅ ( โŒŠ โ€˜ ( ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) / ( 2 โ†‘ ๐‘ฅ ) ) ) ) )
161 elin โŠข ( ๐‘ฅ โˆˆ ( ( bits โ€˜ ๐‘ ) โˆฉ ( 0 ..^ ๐‘€ ) ) โ†” ( ๐‘ฅ โˆˆ ( bits โ€˜ ๐‘ ) โˆง ๐‘ฅ โˆˆ ( 0 ..^ ๐‘€ ) ) )
162 159 160 161 3bitr4g โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ๐‘ฅ โˆˆ ( bits โ€˜ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) โ†” ๐‘ฅ โˆˆ ( ( bits โ€˜ ๐‘ ) โˆฉ ( 0 ..^ ๐‘€ ) ) ) )
163 162 eqrdv โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( bits โ€˜ ( ๐‘ mod ( 2 โ†‘ ๐‘€ ) ) ) = ( ( bits โ€˜ ๐‘ ) โˆฉ ( 0 ..^ ๐‘€ ) ) )