mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-23 11:58:47 +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
|