1
1
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-26 17:32:30 +03:00
cryptol/tests/issues/issue158.cry

8 lines
160 B
Plaintext
Raw Normal View History

2015-01-16 03:24:21 +03:00
// 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