1
1
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-19 05:51:43 +03:00
cryptol/tests/issues/issue158.cry
2015-01-15 16:24:21 -08:00

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