mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 02:01:39 +03:00
8 lines
178 B
Plaintext
8 lines
178 B
Plaintext
ick : [1][8] -> [8]
|
|
ick [x] = x
|
|
|
|
uck : [8][1] -> [8]
|
|
uck [a, b, c, d, e, f, g, h] = a # b # c # d # e # f # g # h
|
|
|
|
check13 = (ick (split 150) == 150) && (uck (split 150) == 150)
|