mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-24 06:52:44 +03:00
5 lines
127 B
Plaintext
5 lines
127 B
Plaintext
copy : [inf] -> [inf]
|
|
copy ([b] # x) = if b then [True] # copy x else [False] # copy x
|
|
|
|
property ok = copy ([True] # zero) @ 0
|