mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-29 10:53:31 +03:00
5 lines
144 B
Plaintext
5 lines
144 B
Plaintext
// fails for both b == a*a and b == width a, but works for exponential
|
|
// constraints
|
|
f : {a,b} (fin a, b >= 1, b == a*a) => [a] -> [b]
|
|
f x = 1
|