ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  bitsmod Unicode version

Theorem bitsmod 12453
Description: Truncating the bit sequence after some  M is equivalent to reducing the argument  mod  2 ^ M. (Contributed by Mario Carneiro, 6-Sep-2016.)
Assertion
Ref Expression
bitsmod  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
(bits `  ( N  mod  ( 2 ^ M
) ) )  =  ( (bits `  N
)  i^i  ( 0..^ M ) ) )

Proof of Theorem bitsmod
Dummy variable  x is distinct from all other variables.
StepHypRef Expression
1 simpl 109 . . . . . . . 8  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  ->  N  e.  ZZ )
2 2nn 9260 . . . . . . . . . 10  |-  2  e.  NN
32a1i 9 . . . . . . . . 9  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
2  e.  NN )
4 simpr 110 . . . . . . . . 9  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  ->  M  e.  NN0 )
53, 4nnexpcld 10904 . . . . . . . 8  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
( 2 ^ M
)  e.  NN )
61, 5zmodcld 10554 . . . . . . 7  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
( N  mod  (
2 ^ M ) )  e.  NN0 )
76nn0zd 9555 . . . . . 6  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
( N  mod  (
2 ^ M ) )  e.  ZZ )
87biantrurd 305 . . . . 5  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
( ( x  e. 
NN0  /\  -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) ) )  <->  ( ( N  mod  ( 2 ^ M ) )  e.  ZZ  /\  ( x  e.  NN0  /\  -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) ) ) ) ) )
91ad2antrr 488 . . . . . . . . . . 11  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  N  e.  ZZ )
10 simplr 528 . . . . . . . . . . 11  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  x  e.  NN0 )
11 bitsval2 12441 . . . . . . . . . . 11  |-  ( ( N  e.  ZZ  /\  x  e.  NN0 )  -> 
( x  e.  (bits `  N )  <->  -.  2  ||  ( |_ `  ( N  /  ( 2 ^ x ) ) ) ) )
129, 10, 11syl2anc 411 . . . . . . . . . 10  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
x  e.  (bits `  N )  <->  -.  2  ||  ( |_ `  ( N  /  ( 2 ^ x ) ) ) ) )
13 simpr 110 . . . . . . . . . . 11  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  x  <  M )
1413biantrud 304 . . . . . . . . . 10  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
x  e.  (bits `  N )  <->  ( x  e.  (bits `  N )  /\  x  <  M ) ) )
15 2z 9462 . . . . . . . . . . . . 13  |-  2  e.  ZZ
1615a1i 9 . . . . . . . . . . . 12  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  2  e.  ZZ )
172a1i 9 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  2  e.  NN )
1817, 10nnexpcld 10904 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ x )  e.  NN )
19 znq 9807 . . . . . . . . . . . . . 14  |-  ( ( N  e.  ZZ  /\  ( 2 ^ x
)  e.  NN )  ->  ( N  / 
( 2 ^ x
) )  e.  QQ )
209, 18, 19syl2anc 411 . . . . . . . . . . . . 13  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( N  /  ( 2 ^ x ) )  e.  QQ )
2120flqcld 10484 . . . . . . . . . . . 12  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( |_ `  ( N  / 
( 2 ^ x
) ) )  e.  ZZ )
227ad2antrr 488 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( N  mod  ( 2 ^ M ) )  e.  ZZ )
23 znq 9807 . . . . . . . . . . . . . 14  |-  ( ( ( N  mod  (
2 ^ M ) )  e.  ZZ  /\  ( 2 ^ x
)  e.  NN )  ->  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) )  e.  QQ )
2422, 18, 23syl2anc 411 . . . . . . . . . . . . 13  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) )  e.  QQ )
2524flqcld 10484 . . . . . . . . . . . 12  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( |_ `  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) ) )  e.  ZZ )
2618nnzd 9556 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ x )  e.  ZZ )
2726, 16zmulcld 9563 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( 2 ^ x
)  x.  2 )  e.  ZZ )
285ad2antrr 488 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ M )  e.  NN )
2928nnzd 9556 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ M )  e.  ZZ )
309, 22zsubcld 9562 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( N  -  ( N  mod  ( 2 ^ M
) ) )  e.  ZZ )
31 2cnd 9171 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  2  e.  CC )
3231, 10expp1d 10883 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ ( x  +  1 ) )  =  ( ( 2 ^ x )  x.  2 ) )
33 1nn0 9373 . . . . . . . . . . . . . . . . . . . 20  |-  1  e.  NN0
3433a1i 9 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  1  e.  NN0 )
3510, 34nn0addcld 9414 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
x  +  1 )  e.  NN0 )
3635nn0zd 9555 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
x  +  1 )  e.  ZZ )
37 simplr 528 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( N  e.  ZZ  /\  M  e.  NN0 )  /\  x  e.  NN0 )  ->  M  e.  NN0 )
3837adantr 276 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  M  e.  NN0 )
3938nn0zd 9555 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  M  e.  ZZ )
40 nn0ltp1le 9497 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( x  e.  NN0  /\  M  e.  NN0 )  -> 
( x  <  M  <->  ( x  +  1 )  <_  M ) )
4110, 38, 40syl2anc 411 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
x  <  M  <->  ( x  +  1 )  <_  M ) )
4213, 41mpbid 147 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
x  +  1 )  <_  M )
43 eluz2 9716 . . . . . . . . . . . . . . . . . . 19  |-  ( M  e.  ( ZZ>= `  (
x  +  1 ) )  <->  ( ( x  +  1 )  e.  ZZ  /\  M  e.  ZZ  /\  ( x  +  1 )  <_  M ) )
4436, 39, 42, 43syl3anbrc 1205 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  M  e.  ( ZZ>= `  ( x  +  1 ) ) )
45 dvdsexp 12358 . . . . . . . . . . . . . . . . . 18  |-  ( ( 2  e.  ZZ  /\  ( x  +  1
)  e.  NN0  /\  M  e.  ( ZZ>= `  ( x  +  1
) ) )  -> 
( 2 ^ (
x  +  1 ) )  ||  ( 2 ^ M ) )
4616, 35, 44, 45syl3anc 1271 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ ( x  +  1 ) ) 
||  ( 2 ^ M ) )
4732, 46eqbrtrrd 4106 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( 2 ^ x
)  x.  2 ) 
||  ( 2 ^ M ) )
48 zq 9809 . . . . . . . . . . . . . . . . . . 19  |-  ( N  e.  ZZ  ->  N  e.  QQ )
499, 48syl 14 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  N  e.  QQ )
50 nnq 9816 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 2 ^ M )  e.  NN  ->  (
2 ^ M )  e.  QQ )
5128, 50syl 14 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ M )  e.  QQ )
5228nngt0d 9142 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  0  <  ( 2 ^ M
) )
53 modqdifz 10545 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  e.  QQ  /\  ( 2 ^ M
)  e.  QQ  /\  0  <  ( 2 ^ M ) )  -> 
( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ M ) )  e.  ZZ )
5449, 51, 52, 53syl3anc 1271 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ M ) )  e.  ZZ )
5528nnne0d 9143 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ M )  =/=  0 )
56 dvdsval2 12287 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( 2 ^ M
)  e.  ZZ  /\  ( 2 ^ M
)  =/=  0  /\  ( N  -  ( N  mod  ( 2 ^ M ) ) )  e.  ZZ )  -> 
( ( 2 ^ M )  ||  ( N  -  ( N  mod  ( 2 ^ M
) ) )  <->  ( ( N  -  ( N  mod  ( 2 ^ M
) ) )  / 
( 2 ^ M
) )  e.  ZZ ) )
5729, 55, 30, 56syl3anc 1271 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( 2 ^ M
)  ||  ( N  -  ( N  mod  ( 2 ^ M
) ) )  <->  ( ( N  -  ( N  mod  ( 2 ^ M
) ) )  / 
( 2 ^ M
) )  e.  ZZ ) )
5854, 57mpbird 167 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ M ) 
||  ( N  -  ( N  mod  ( 2 ^ M ) ) ) )
5927, 29, 30, 47, 58dvdstrd 12327 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( 2 ^ x
)  x.  2 ) 
||  ( N  -  ( N  mod  ( 2 ^ M ) ) ) )
6030zcnd 9558 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( N  -  ( N  mod  ( 2 ^ M
) ) )  e.  CC )
6118nncnd 9112 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ x )  e.  CC )
6218nnap0d 9144 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ x ) #  0 )
6360, 61, 62divcanap2d 8927 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( 2 ^ x
)  x.  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) )  =  ( N  -  ( N  mod  ( 2 ^ M ) ) ) )
6459, 63breqtrrd 4110 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( 2 ^ x
)  x.  2 ) 
||  ( ( 2 ^ x )  x.  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) )
6510nn0zd 9555 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  x  e.  ZZ )
6610nn0red 9411 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  x  e.  RR )
6738nn0red 9411 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  M  e.  RR )
6866, 67, 13ltled 8253 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  x  <_  M )
69 eluz2 9716 . . . . . . . . . . . . . . . . . . 19  |-  ( M  e.  ( ZZ>= `  x
)  <->  ( x  e.  ZZ  /\  M  e.  ZZ  /\  x  <_  M ) )
7065, 39, 68, 69syl3anbrc 1205 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  M  e.  ( ZZ>= `  x )
)
71 dvdsexp 12358 . . . . . . . . . . . . . . . . . 18  |-  ( ( 2  e.  ZZ  /\  x  e.  NN0  /\  M  e.  ( ZZ>= `  x )
)  ->  ( 2 ^ x )  ||  ( 2 ^ M
) )
7216, 10, 70, 71syl3anc 1271 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ x ) 
||  ( 2 ^ M ) )
7326, 29, 30, 72, 58dvdstrd 12327 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ x ) 
||  ( N  -  ( N  mod  ( 2 ^ M ) ) ) )
7418nnne0d 9143 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2 ^ x )  =/=  0 )
75 dvdsval2 12287 . . . . . . . . . . . . . . . . 17  |-  ( ( ( 2 ^ x
)  e.  ZZ  /\  ( 2 ^ x
)  =/=  0  /\  ( N  -  ( N  mod  ( 2 ^ M ) ) )  e.  ZZ )  -> 
( ( 2 ^ x )  ||  ( N  -  ( N  mod  ( 2 ^ M
) ) )  <->  ( ( N  -  ( N  mod  ( 2 ^ M
) ) )  / 
( 2 ^ x
) )  e.  ZZ ) )
7626, 74, 30, 75syl3anc 1271 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( 2 ^ x
)  ||  ( N  -  ( N  mod  ( 2 ^ M
) ) )  <->  ( ( N  -  ( N  mod  ( 2 ^ M
) ) )  / 
( 2 ^ x
) )  e.  ZZ ) )
7773, 76mpbid 147 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) )  e.  ZZ )
78 dvdscmulr 12317 . . . . . . . . . . . . . . 15  |-  ( ( 2  e.  ZZ  /\  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) )  e.  ZZ  /\  (
( 2 ^ x
)  e.  ZZ  /\  ( 2 ^ x
)  =/=  0 ) )  ->  ( (
( 2 ^ x
)  x.  2 ) 
||  ( ( 2 ^ x )  x.  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) )  <->  2  ||  (
( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) )
7916, 77, 26, 74, 78syl112anc 1275 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( ( 2 ^ x )  x.  2 )  ||  ( ( 2 ^ x )  x.  ( ( N  -  ( N  mod  ( 2 ^ M
) ) )  / 
( 2 ^ x
) ) )  <->  2  ||  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) )
8064, 79mpbid 147 . . . . . . . . . . . . 13  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  2  ||  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) )
8125zcnd 9558 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( |_ `  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) ) )  e.  CC )
8277zcnd 9558 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) )  e.  CC )
8322zcnd 9558 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( N  mod  ( 2 ^ M ) )  e.  CC )
849zcnd 9558 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  N  e.  CC )
8583, 84pncan3d 8448 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( N  mod  (
2 ^ M ) )  +  ( N  -  ( N  mod  ( 2 ^ M
) ) ) )  =  N )
8685oveq1d 6009 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( ( N  mod  ( 2 ^ M
) )  +  ( N  -  ( N  mod  ( 2 ^ M ) ) ) )  /  ( 2 ^ x ) )  =  ( N  / 
( 2 ^ x
) ) )
8783, 60, 61, 62divdirapd 8964 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( ( N  mod  ( 2 ^ M
) )  +  ( N  -  ( N  mod  ( 2 ^ M ) ) ) )  /  ( 2 ^ x ) )  =  ( ( ( N  mod  ( 2 ^ M ) )  /  ( 2 ^ x ) )  +  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) )
8886, 87eqtr3d 2264 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( N  /  ( 2 ^ x ) )  =  ( ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) )  +  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) )
8988fveq2d 5627 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( |_ `  ( N  / 
( 2 ^ x
) ) )  =  ( |_ `  (
( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) )  +  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) ) )
90 flqaddz 10504 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) )  e.  QQ  /\  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) )  e.  ZZ )  -> 
( |_ `  (
( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) )  +  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) )  =  ( ( |_ `  ( ( N  mod  ( 2 ^ M ) )  /  ( 2 ^ x ) ) )  +  ( ( N  -  ( N  mod  ( 2 ^ M
) ) )  / 
( 2 ^ x
) ) ) )
9124, 77, 90syl2anc 411 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( |_ `  ( ( ( N  mod  ( 2 ^ M ) )  /  ( 2 ^ x ) )  +  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) )  =  ( ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) )  +  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) )
9289, 91eqtrd 2262 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( |_ `  ( N  / 
( 2 ^ x
) ) )  =  ( ( |_ `  ( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) ) )  +  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) ) )
9381, 82, 92mvrladdd 8501 . . . . . . . . . . . . 13  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( |_ `  ( N  /  ( 2 ^ x ) ) )  -  ( |_ `  ( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) ) ) )  =  ( ( N  -  ( N  mod  ( 2 ^ M ) ) )  /  ( 2 ^ x ) ) )
9480, 93breqtrrd 4110 . . . . . . . . . . . 12  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  2  ||  ( ( |_ `  ( N  /  (
2 ^ x ) ) )  -  ( |_ `  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) ) ) ) )
95 dvdssub2 12332 . . . . . . . . . . . 12  |-  ( ( ( 2  e.  ZZ  /\  ( |_ `  ( N  /  ( 2 ^ x ) ) )  e.  ZZ  /\  ( |_ `  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) ) )  e.  ZZ )  /\  2  ||  ( ( |_ `  ( N  /  (
2 ^ x ) ) )  -  ( |_ `  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) ) ) ) )  ->  ( 2 
||  ( |_ `  ( N  /  (
2 ^ x ) ) )  <->  2  ||  ( |_ `  ( ( N  mod  ( 2 ^ M ) )  /  ( 2 ^ x ) ) ) ) )
9616, 21, 25, 94, 95syl31anc 1274 . . . . . . . . . . 11  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
2  ||  ( |_ `  ( N  /  (
2 ^ x ) ) )  <->  2  ||  ( |_ `  ( ( N  mod  ( 2 ^ M ) )  /  ( 2 ^ x ) ) ) ) )
9796notbid 671 . . . . . . . . . 10  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  ( -.  2  ||  ( |_
`  ( N  / 
( 2 ^ x
) ) )  <->  -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) ) ) )
9812, 14, 973bitr3d 218 . . . . . . . . 9  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  x  <  M )  ->  (
( x  e.  (bits `  N )  /\  x  <  M )  <->  -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) ) ) )
99 simpr 110 . . . . . . . . . . 11  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  -.  x  <  M )
10099intnand 936 . . . . . . . . . 10  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  -.  ( x  e.  (bits `  N )  /\  x  <  M ) )
101 z0even 12408 . . . . . . . . . . . 12  |-  2  ||  0
1021ad2antrr 488 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  N  e.  ZZ )
103102, 48syl 14 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  N  e.  QQ )
1045ad2antrr 488 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( 2 ^ M
)  e.  NN )
105104, 50syl 14 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( 2 ^ M
)  e.  QQ )
106 2rp 9842 . . . . . . . . . . . . . . . . . . 19  |-  2  e.  RR+
107106a1i 9 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
2  e.  RR+ )
10837nn0zd 9555 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( N  e.  ZZ  /\  M  e.  NN0 )  /\  x  e.  NN0 )  ->  M  e.  ZZ )
109108adantr 276 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  M  e.  ZZ )
110107, 109rpexpcld 10906 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( 2 ^ M
)  e.  RR+ )
111110rpgt0d 9883 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
0  <  ( 2 ^ M ) )
112103, 105, 111modqcld 10537 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( N  mod  (
2 ^ M ) )  e.  QQ )
113 qre 9808 . . . . . . . . . . . . . . 15  |-  ( ( N  mod  ( 2 ^ M ) )  e.  QQ  ->  ( N  mod  ( 2 ^ M ) )  e.  RR )
114112, 113syl 14 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( N  mod  (
2 ^ M ) )  e.  RR )
115 simplr 528 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  x  e.  NN0 )
116115nn0zd 9555 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  x  e.  ZZ )
117107, 116rpexpcld 10906 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( 2 ^ x
)  e.  RR+ )
1186ad2antrr 488 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( N  mod  (
2 ^ M ) )  e.  NN0 )
119118nn0ge0d 9413 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
0  <_  ( N  mod  ( 2 ^ M
) ) )
120114, 117, 119divge0d 9921 . . . . . . . . . . . . 13  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
0  <_  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) ) )
121110rpred 9880 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( 2 ^ M
)  e.  RR )
122117rpred 9880 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( 2 ^ x
)  e.  RR )
123 modqlt 10542 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  e.  QQ  /\  ( 2 ^ M
)  e.  QQ  /\  0  <  ( 2 ^ M ) )  -> 
( N  mod  (
2 ^ M ) )  <  ( 2 ^ M ) )
124103, 105, 111, 123syl3anc 1271 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( N  mod  (
2 ^ M ) )  <  ( 2 ^ M ) )
125107rpred 9880 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
2  e.  RR )
126 1le2 9307 . . . . . . . . . . . . . . . . . . 19  |-  1  <_  2
127126a1i 9 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
1  <_  2 )
128109zred 9557 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  M  e.  RR )
129115nn0red 9411 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  x  e.  RR )
130128, 129, 99nltled 8255 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  M  <_  x )
131 eluz2 9716 . . . . . . . . . . . . . . . . . . 19  |-  ( x  e.  ( ZZ>= `  M
)  <->  ( M  e.  ZZ  /\  x  e.  ZZ  /\  M  <_  x ) )
132109, 116, 130, 131syl3anbrc 1205 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  x  e.  ( ZZ>= `  M ) )
133125, 127, 132leexp2ad 10911 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( 2 ^ M
)  <_  ( 2 ^ x ) )
134114, 121, 122, 124, 133ltletrd 8558 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( N  mod  (
2 ^ M ) )  <  ( 2 ^ x ) )
135117rpcnd 9882 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( 2 ^ x
)  e.  CC )
136135mulridd 8151 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( ( 2 ^ x )  x.  1 )  =  ( 2 ^ x ) )
137134, 136breqtrrd 4110 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( N  mod  (
2 ^ M ) )  <  ( ( 2 ^ x )  x.  1 ) )
138 1red 8149 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
1  e.  RR )
139114, 138, 117ltdivmuld 9932 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) )  <  1  <->  ( N  mod  ( 2 ^ M ) )  <  ( ( 2 ^ x )  x.  1 ) ) )
140137, 139mpbird 167 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) )  <  1 )
141 1e0p1 9607 . . . . . . . . . . . . . 14  |-  1  =  ( 0  +  1 )
142140, 141breqtrdi 4123 . . . . . . . . . . . . 13  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) )  <  ( 0  +  1 ) )
1437ad2antrr 488 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( N  mod  (
2 ^ M ) )  e.  ZZ )
1442a1i 9 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
2  e.  NN )
145144, 115nnexpcld 10904 . . . . . . . . . . . . . . 15  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( 2 ^ x
)  e.  NN )
146143, 145, 23syl2anc 411 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) )  e.  QQ )
147 0z 9445 . . . . . . . . . . . . . 14  |-  0  e.  ZZ
148 flqbi 10497 . . . . . . . . . . . . . 14  |-  ( ( ( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) )  e.  QQ  /\  0  e.  ZZ )  ->  ( ( |_ `  ( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) ) )  =  0  <-> 
( 0  <_  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) )  /\  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) )  <  (
0  +  1 ) ) ) )
149146, 147, 148sylancl 413 . . . . . . . . . . . . 13  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( ( |_ `  ( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) ) )  =  0  <-> 
( 0  <_  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) )  /\  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) )  <  (
0  +  1 ) ) ) )
150120, 142, 149mpbir2and 950 . . . . . . . . . . . 12  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) )  =  0 )
151101, 150breqtrrid 4120 . . . . . . . . . . 11  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
2  ||  ( |_ `  ( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) ) ) )
152151notnotd 633 . . . . . . . . . 10  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  ->  -.  -.  2  ||  ( |_ `  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) ) ) )
153100, 1522falsed 707 . . . . . . . . 9  |-  ( ( ( ( N  e.  ZZ  /\  M  e. 
NN0 )  /\  x  e.  NN0 )  /\  -.  x  <  M )  -> 
( ( x  e.  (bits `  N )  /\  x  <  M )  <->  -.  2  ||  ( |_
`  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) ) ) ) )
154 nn0z 9454 . . . . . . . . . . 11  |-  ( x  e.  NN0  ->  x  e.  ZZ )
155 zdclt 9512 . . . . . . . . . . 11  |-  ( ( x  e.  ZZ  /\  M  e.  ZZ )  -> DECID  x  <  M )
156154, 108, 155syl2an2 596 . . . . . . . . . 10  |-  ( ( ( N  e.  ZZ  /\  M  e.  NN0 )  /\  x  e.  NN0 )  -> DECID 
x  <  M )
157 exmiddc 841 . . . . . . . . . 10  |-  (DECID  x  < 
M  ->  ( x  <  M  \/  -.  x  <  M ) )
158156, 157syl 14 . . . . . . . . 9  |-  ( ( ( N  e.  ZZ  /\  M  e.  NN0 )  /\  x  e.  NN0 )  ->  ( x  < 
M  \/  -.  x  <  M ) )
15998, 153, 158mpjaodan 803 . . . . . . . 8  |-  ( ( ( N  e.  ZZ  /\  M  e.  NN0 )  /\  x  e.  NN0 )  ->  ( ( x  e.  (bits `  N
)  /\  x  <  M )  <->  -.  2  ||  ( |_ `  ( ( N  mod  ( 2 ^ M ) )  /  ( 2 ^ x ) ) ) ) )
160108biantrurd 305 . . . . . . . 8  |-  ( ( ( N  e.  ZZ  /\  M  e.  NN0 )  /\  x  e.  NN0 )  ->  ( ( x  e.  (bits `  N
)  /\  x  <  M )  <->  ( M  e.  ZZ  /\  ( x  e.  (bits `  N
)  /\  x  <  M ) ) ) )
161159, 160bitr3d 190 . . . . . . 7  |-  ( ( ( N  e.  ZZ  /\  M  e.  NN0 )  /\  x  e.  NN0 )  ->  ( -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) )  <->  ( M  e.  ZZ  /\  ( x  e.  (bits `  N
)  /\  x  <  M ) ) ) )
162 an12 561 . . . . . . 7  |-  ( ( M  e.  ZZ  /\  ( x  e.  (bits `  N )  /\  x  <  M ) )  <->  ( x  e.  (bits `  N )  /\  ( M  e.  ZZ  /\  x  <  M ) ) )
163161, 162bitrdi 196 . . . . . 6  |-  ( ( ( N  e.  ZZ  /\  M  e.  NN0 )  /\  x  e.  NN0 )  ->  ( -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) )  <->  ( x  e.  (bits `  N )  /\  ( M  e.  ZZ  /\  x  <  M ) ) ) )
164163pm5.32da 452 . . . . 5  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
( ( x  e. 
NN0  /\  -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) ) )  <->  ( x  e.  NN0  /\  ( x  e.  (bits `  N
)  /\  ( M  e.  ZZ  /\  x  < 
M ) ) ) ) )
1658, 164bitr3d 190 . . . 4  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
( ( ( N  mod  ( 2 ^ M ) )  e.  ZZ  /\  ( x  e.  NN0  /\  -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) ) ) )  <->  ( x  e.  NN0  /\  ( x  e.  (bits `  N
)  /\  ( M  e.  ZZ  /\  x  < 
M ) ) ) ) )
166 3anass 1006 . . . 4  |-  ( ( ( N  mod  (
2 ^ M ) )  e.  ZZ  /\  x  e.  NN0  /\  -.  2  ||  ( |_ `  ( ( N  mod  ( 2 ^ M
) )  /  (
2 ^ x ) ) ) )  <->  ( ( N  mod  ( 2 ^ M ) )  e.  ZZ  /\  ( x  e.  NN0  /\  -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) ) ) ) )
167 elfzo2 10334 . . . . . . 7  |-  ( x  e.  ( 0..^ M )  <->  ( x  e.  ( ZZ>= `  0 )  /\  M  e.  ZZ  /\  x  <  M ) )
168 elnn0uz 9748 . . . . . . . 8  |-  ( x  e.  NN0  <->  x  e.  ( ZZ>=
`  0 ) )
1691683anbi1i 1214 . . . . . . 7  |-  ( ( x  e.  NN0  /\  M  e.  ZZ  /\  x  <  M )  <->  ( x  e.  ( ZZ>= `  0 )  /\  M  e.  ZZ  /\  x  <  M ) )
170 3anass 1006 . . . . . . 7  |-  ( ( x  e.  NN0  /\  M  e.  ZZ  /\  x  <  M )  <->  ( x  e.  NN0  /\  ( M  e.  ZZ  /\  x  <  M ) ) )
171167, 169, 1703bitr2i 208 . . . . . 6  |-  ( x  e.  ( 0..^ M )  <->  ( x  e. 
NN0  /\  ( M  e.  ZZ  /\  x  < 
M ) ) )
172171anbi2i 457 . . . . 5  |-  ( ( x  e.  (bits `  N )  /\  x  e.  ( 0..^ M ) )  <->  ( x  e.  (bits `  N )  /\  ( x  e.  NN0  /\  ( M  e.  ZZ  /\  x  <  M ) ) ) )
173 an12 561 . . . . 5  |-  ( ( x  e.  (bits `  N )  /\  (
x  e.  NN0  /\  ( M  e.  ZZ  /\  x  <  M ) ) )  <->  ( x  e.  NN0  /\  ( x  e.  (bits `  N
)  /\  ( M  e.  ZZ  /\  x  < 
M ) ) ) )
174172, 173bitri 184 . . . 4  |-  ( ( x  e.  (bits `  N )  /\  x  e.  ( 0..^ M ) )  <->  ( x  e. 
NN0  /\  ( x  e.  (bits `  N )  /\  ( M  e.  ZZ  /\  x  <  M ) ) ) )
175165, 166, 1743bitr4g 223 . . 3  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
( ( ( N  mod  ( 2 ^ M ) )  e.  ZZ  /\  x  e. 
NN0  /\  -.  2  ||  ( |_ `  (
( N  mod  (
2 ^ M ) )  /  ( 2 ^ x ) ) ) )  <->  ( x  e.  (bits `  N )  /\  x  e.  (
0..^ M ) ) ) )
176 bitsval 12440 . . 3  |-  ( x  e.  (bits `  ( N  mod  ( 2 ^ M ) ) )  <-> 
( ( N  mod  ( 2 ^ M
) )  e.  ZZ  /\  x  e.  NN0  /\  -.  2  ||  ( |_
`  ( ( N  mod  ( 2 ^ M ) )  / 
( 2 ^ x
) ) ) ) )
177 elin 3387 . . 3  |-  ( x  e.  ( (bits `  N )  i^i  (
0..^ M ) )  <-> 
( x  e.  (bits `  N )  /\  x  e.  ( 0..^ M ) ) )
178175, 176, 1773bitr4g 223 . 2  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
( x  e.  (bits `  ( N  mod  (
2 ^ M ) ) )  <->  x  e.  ( (bits `  N )  i^i  ( 0..^ M ) ) ) )
179178eqrdv 2227 1  |-  ( ( N  e.  ZZ  /\  M  e.  NN0 )  -> 
(bits `  ( N  mod  ( 2 ^ M
) ) )  =  ( (bits `  N
)  i^i  ( 0..^ M ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 104    <-> wb 105    \/ wo 713  DECID wdc 839    /\ w3a 1002    = wceq 1395    e. wcel 2200    =/= wne 2400    i^i cin 3196   class class class wbr 4082   ` cfv 5314  (class class class)co 5994   RRcr 7986   0cc0 7987   1c1 7988    + caddc 7990    x. cmul 7992    < clt 8169    <_ cle 8170    - cmin 8305    / cdiv 8807   NNcn 9098   2c2 9149   NN0cn0 9357   ZZcz 9434   ZZ>=cuz 9710   QQcq 9802   RR+crp 9837  ..^cfzo 10326   |_cfl 10475    mod cmo 10531   ^cexp 10747    || cdvds 12284  bitscbits 12437
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 617  ax-in2 618  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-13 2202  ax-14 2203  ax-ext 2211  ax-coll 4198  ax-sep 4201  ax-nul 4209  ax-pow 4257  ax-pr 4292  ax-un 4521  ax-setind 4626  ax-iinf 4677  ax-cnex 8078  ax-resscn 8079  ax-1cn 8080  ax-1re 8081  ax-icn 8082  ax-addcl 8083  ax-addrcl 8084  ax-mulcl 8085  ax-mulrcl 8086  ax-addcom 8087  ax-mulcom 8088  ax-addass 8089  ax-mulass 8090  ax-distr 8091  ax-i2m1 8092  ax-0lt1 8093  ax-1rid 8094  ax-0id 8095  ax-rnegex 8096  ax-precex 8097  ax-cnre 8098  ax-pre-ltirr 8099  ax-pre-ltwlin 8100  ax-pre-lttrn 8101  ax-pre-apti 8102  ax-pre-ltadd 8103  ax-pre-mulgt0 8104  ax-pre-mulext 8105  ax-arch 8106
This theorem depends on definitions:  df-bi 117  df-dc 840  df-3or 1003  df-3an 1004  df-tru 1398  df-fal 1401  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ne 2401  df-nel 2496  df-ral 2513  df-rex 2514  df-reu 2515  df-rmo 2516  df-rab 2517  df-v 2801  df-sbc 3029  df-csb 3125  df-dif 3199  df-un 3201  df-in 3203  df-ss 3210  df-nul 3492  df-if 3603  df-pw 3651  df-sn 3672  df-pr 3673  df-op 3675  df-uni 3888  df-int 3923  df-iun 3966  df-br 4083  df-opab 4145  df-mpt 4146  df-tr 4182  df-id 4381  df-po 4384  df-iso 4385  df-iord 4454  df-on 4456  df-ilim 4457  df-suc 4459  df-iom 4680  df-xp 4722  df-rel 4723  df-cnv 4724  df-co 4725  df-dm 4726  df-rn 4727  df-res 4728  df-ima 4729  df-iota 5274  df-fun 5316  df-fn 5317  df-f 5318  df-f1 5319  df-fo 5320  df-f1o 5321  df-fv 5322  df-riota 5947  df-ov 5997  df-oprab 5998  df-mpo 5999  df-1st 6276  df-2nd 6277  df-recs 6441  df-frec 6527  df-pnf 8171  df-mnf 8172  df-xr 8173  df-ltxr 8174  df-le 8175  df-sub 8307  df-neg 8308  df-reap 8710  df-ap 8717  df-div 8808  df-inn 9099  df-2 9157  df-n0 9358  df-z 9435  df-uz 9711  df-q 9803  df-rp 9838  df-fz 10193  df-fzo 10327  df-fl 10477  df-mod 10532  df-seqfrec 10657  df-exp 10748  df-dvds 12285  df-bits 12438
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator