mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-26 01:13:09 +03:00
b4fbec108e
The core AST now always prints fully-qualified names.
34 lines
920 B
Plaintext
34 lines
920 B
Plaintext
Loading module Cryptol
|
|
Loading module Cryptol
|
|
Loading module test01
|
|
module test01
|
|
import Cryptol
|
|
/* Not recursive */
|
|
test01::a : {a, b} (fin a) => [a]b -> [2 * a]b
|
|
test01::a = \{a, b} (fin a) ->
|
|
(\ (x : [a]b) ->
|
|
test01::f a x
|
|
where
|
|
/* Not recursive */
|
|
test01::f : {c} [c]b -> [a + c]b
|
|
test01::f = \{c} (y : [c]b) -> (Cryptol::#) a c b <> x y
|
|
|
|
) : [a]b -> [2 * a]b
|
|
|
|
Loading module Cryptol
|
|
Loading module test01
|
|
module test01
|
|
import Cryptol
|
|
/* Not recursive */
|
|
test01::a : {a, b} (fin a) => [a]b -> [2 * a]b
|
|
test01::a = \{a, b} (fin a) ->
|
|
(\ (x : [a]b) ->
|
|
test01::f x
|
|
where
|
|
/* Not recursive */
|
|
test01::f : [a]b -> [a + a]b
|
|
test01::f = \ (y : [a]b) -> (Cryptol::#) a a b <> x y
|
|
|
|
) : [a]b -> [2 * a]b
|
|
|