mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 18:52:13 +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
|