mirror of
https://github.com/GaloisInc/cryptol.git
synced 2025-01-01 04:14:24 +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 ]
|