mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-13 10:58:23 +03:00
3 lines
92 B
Plaintext
3 lines
92 B
Plaintext
|
bm : {r} (fin r, r >= 1) => [2*r] -> [2*r]
|
||
|
bm B = (B @@ [0,2..2*r-2]) # (B @@ [1,3..2*r-1])
|