cryptol/tests/issues/issue214.cry

mirror of https://github.com/GaloisInc/cryptol.git synced 2024-11-28 01:13:34 +03:00
bm : {r} (fin r, r >= 1) => [2*r] -> [2*r]
bm B = (B @@ [0,2..2*r-2]) # (B @@ [1,3..2*r-1])
	`bm : {r} (fin r, r >= 1) => [2r] -> [2r]`
	`bm B = (B @@ [0,2..2r-2]) # (B @@ [1,3..2r-1])`