mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-24 15:08:58 +03:00
27 lines
297 B
Plaintext
27 lines
297 B
Plaintext
|
x = [True, False]
|
||
|
|
y = [False, True]
|
||
|
|
z = x + y
|
||
|
|
|
||
|
|
property p1 = z == 3
|
||
|
|
|
||
|
|
xx = [[True,False]]
|
||
|
|
yy = [[False, True]]
|
||
|
|
zz = xx + yy
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
t : {a} [a*3] -> [a*3][a*3]
|
||
|
|
t d = zero
|
||
|
|
/*
|
||
|
|
|
||
|
|
|
||
|
|
t1 : [8] -> [2][2][2]
|
||
|
|
t1 x = split (split x)
|
||
|
|
|
||
|
|
t2 : [8] -> ([4],[4])
|
||
|
|
t2 x = splitAt x
|
||
|
|
|
||
|
|
t3 : [8] ->[8] -> [16]
|
||
|
|
t3 x y = x # y
|
||
|
|
|
||
|
|
*/
|