mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-23 11:58:47 +03:00
4 lines
159 B
Plaintext
4 lines
159 B
Plaintext
|
let ashr x y = if head x then ~ (~ x >> y) else x >> y
|
||
|
|
:exhaust \(x : [8]) (y : [8]) -> x >>$ y == ashr x y
|
||
|
|
:prove \(x : [8]) (y : [8]) -> x >>$ y == ashr x y
|