mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 18:52:13 +03:00
22 lines
393 B
Plaintext
22 lines
393 B
Plaintext
Loading module Cryptol
|
|
{n, a} (Logic a) => n == min (1 + n) n
|
|
{n, a} (Logic a) => Logic a
|
|
{n, a} (Logic a) => Logic a
|
|
{n, a} (Logic a) => True
|
|
(s
|
|
where
|
|
s x =
|
|
(bs
|
|
where
|
|
bs = [~b | b <- [~x] # bs
|
|
| _ <- bs]
|
|
)
|
|
) : {n, a} (Logic a) => a -> [n]a
|
|
{n, a} n == n
|
|
(bs
|
|
where
|
|
bs = [b | b <- bs]
|
|
) : {n, a} [n]a
|
|
1 == 1
|
|
[b | b <- [True]] : [1]
|