mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-16 11:22:33 +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
|