mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-26 17:32:30 +03:00
8 lines
160 B
Plaintext
8 lines
160 B
Plaintext
|
// Testing shifts at types [a] -> [b] -> [a] with 2^b < a
|
||
|
|
||
|
thm1 : [2] -> Bit
|
||
|
thm1 i = 0x01 << i == 0x01 << i
|
||
|
|
||
|
thm2 : [2] -> Bit
|
||
|
thm2 i = 0x80 >> i == 0x80 >> i
|