mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 02:01:39 +03:00
7 lines
104 B
Plaintext
7 lines
104 B
Plaintext
|
module specialize where
|
||
|
|
||
|
top (x, y) = f`{Bit,Bit} (x, y)
|
||
|
|
||
|
f : {a, b} (a, b) -> (a, b)
|
||
|
f (x, y) = (x, y)
|