mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-24 06:52:44 +03:00
22 lines
609 B
Plaintext
22 lines
609 B
Plaintext
Loading module Cryptol
|
|
Loading module Cryptol
|
|
Loading module test04
|
|
module test04
|
|
import Cryptol
|
|
/* Not recursive */
|
|
test04::test : {a, b} (Literal 10 b) => a -> ((a, ()), (a, b))
|
|
test04::test = \{a, b} (Literal 10 b) (a : a) ->
|
|
(test04::f () (), test04::f b (Cryptol::number 10 b <>))
|
|
where
|
|
/* Not recursive */
|
|
test04::f : {c} c -> (a, c)
|
|
test04::f = \{c} (x : c) -> (a, x)
|
|
|
|
|
|
|
|
Loading module Cryptol
|
|
Loading module test04
|
|
|
|
[error] at test04.cry:1:1--5:14:
|
|
Type '()' does not support literals.
|