cryptol/tests/issues/issue185.cry

4 lines
127 B
Plaintext
Raw Normal View History

2014-04-18 02:34:25 +04:00
group : {perGroup, a, b, c} (fin perGroup, c == perGroup * a)
=> [c]b -> [a][perGroup]b
group xs = split`{each=perGroup}xs