mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 10:46:37 +03:00
11 lines
193 B
Plaintext
11 lines
193 B
Plaintext
// None of these should typecheck without fin constraints.
|
|
|
|
some : {n} [n] -> Bit
|
|
some x = x != 0
|
|
|
|
last : {n, a} (n >= 1) => [n]a -> a
|
|
last xs = xs ! 0
|
|
|
|
pad : {n} [n] -> [inf]
|
|
pad x = x # zero
|