mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-10-26 22:29:08 +03:00
10 lines
282 B
Plaintext
10 lines
282 B
Plaintext
:set prover-stats = no
|
|
|
|
:safe (\x -> assert x "asdf" "asdf")
|
|
:safe (\(x:[4]) -> [0..14]@x == x)
|
|
:safe (\y -> (10:Integer) / y)
|
|
|
|
:safe (\x -> if x then "OK!!" else assert (~x) "not OK!" "asdf")
|
|
:safe (\(x:[4]) -> [0..15]@x == x)
|
|
:safe (\y -> if y == 0 then 42 else (10:Integer) / y)
|