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