mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-21 19:08:51 +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)
|