mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-28 09:23:04 +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
|