mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-17 21:11:35 +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
|