mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-11 07:00:49 +03:00
7 lines
135 B
Plaintext
7 lines
135 B
Plaintext
f : {m, n, k} (n == max 2 m k == m + 1) => [m] -> [k][n]
|
|
f x = zero
|
|
|
|
|
|
g : {n, k} (fin n, fin k, 0 < n <= k) => [n] -> [k]
|
|
g x = sext x
|