mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-28 01:13:34 +03:00
8 lines
166 B
Plaintext
8 lines
166 B
Plaintext
type constraint T n = (fin n, n >= 1)
|
|
|
|
type constraint Both p q = (p, q)
|
|
|
|
type constraint Fin2 i j = Both (fin i) (fin j)
|
|
|
|
type constraint i <=> j = (i <= j, i >= j)
|