mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-11 07:00:49 +03:00
15 lines
442 B
Plaintext
15 lines
442 B
Plaintext
:set show-examples = no
|
|
:set prover-stats=no
|
|
|
|
:set prover=z3
|
|
|
|
:prove \(n:Integer, p : Bit) -> p ==> (x != x where x = (2 : Integer) ^^ n)
|
|
:sat \(a:[8], b:[8]) -> a == ~zero /\ a@b == False
|
|
:prove \(a:[8], b:[8]) -> a == zero ==> a@b == False
|
|
|
|
:set prover=w4-z3
|
|
|
|
:prove \(n:Integer, p : Bit) -> p ==> (x != x where x = (2 : Integer) ^^ n)
|
|
:sat \(a:[8], b:[8]) -> a == ~zero /\ a@b == False
|
|
:prove \(a:[8], b:[8]) -> a == zero ==> a@b == False
|