mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 18:52:13 +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)
|