mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-16 03:05:44 +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)
|