mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-29 10:53:31 +03:00
9 lines
250 B
Plaintext
9 lines
250 B
Plaintext
gt_words : {a} (fin a) => [a][32] -> [a][32] -> Bit
|
|
gt_words l0 l1 = ss!0
|
|
where
|
|
ss = [ False ] # [ s \/ (i > j) | i <- l0 | j <- l1 | s <- ss ]
|
|
|
|
gt_words' l0 l1 = ss!0
|
|
where
|
|
ss = [ False ] # [ s \/ (i > j) | i <- l0 | j <- l1 | s <- ss ]
|