2014-12-16 04:48:25 +03:00
|
|
|
Loading module Cryptol
|
|
|
|
Loading module Cryptol
|
|
|
|
Loading module test02
|
|
|
|
module test02
|
|
|
|
import Cryptol
|
|
|
|
/* Not recursive */
|
|
|
|
test02::test : {a, b} a -> b
|
|
|
|
test02::test = \{a, b} (a : a) ->
|
2015-09-28 03:56:58 +03:00
|
|
|
test02::f b a
|
2014-12-16 04:48:25 +03:00
|
|
|
where
|
|
|
|
/* Recursive */
|
2015-09-28 03:56:58 +03:00
|
|
|
test02::f : {c} a -> c
|
|
|
|
test02::f = \{c} (x : a) -> test02::g c a
|
|
|
|
test02::g : {c} a -> c
|
|
|
|
test02::g = \{c} (x : a) -> test02::f c x
|
2014-12-16 04:48:25 +03:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Loading module Cryptol
|
|
|
|
Loading module test02
|
|
|
|
module test02
|
|
|
|
import Cryptol
|
|
|
|
/* Not recursive */
|
2014-12-30 21:43:38 +03:00
|
|
|
test02::test : {a, b} b -> a
|
|
|
|
test02::test = \{a, b} (a : b) ->
|
2015-09-28 03:56:58 +03:00
|
|
|
test02::f a
|
2014-12-16 04:48:25 +03:00
|
|
|
where
|
|
|
|
/* Recursive */
|
2015-09-28 03:56:58 +03:00
|
|
|
test02::f : b -> a
|
|
|
|
test02::f = \ (x : b) -> test02::g a
|
|
|
|
test02::g : b -> a
|
|
|
|
test02::g = \ (x : b) -> test02::f x
|
2014-12-16 04:48:25 +03:00
|
|
|
|
|
|
|
|
|
|
|
|