mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-21 02:48:14 +03:00
11 lines
258 B
Plaintext
11 lines
258 B
Plaintext
|
tail : {n, a} (fin n) => [n]a -> [(max n 1) - 1]a
|
||
|
|
tail xs | n == 0 => xs
|
||
|
|
| n >= 1 => drop `{1} xs
|
||
|
|
|
||
|
|
property tail_correct =
|
||
|
|
(tail [] == []) &&
|
||
|
|
(tail [1] == []) &&
|
||
|
|
(tail [1,2] == [2]) &&
|
||
|
|
(tail [1,2,3] == [2,3]) &&
|
||
|
|
(tail [1,2,3,4] == [2,3,4])
|