cryptol/tests/mono-binds/test02.icry.stdout

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) ->
               f b a
               where
                 /* Recursive */
                 f : {c} a -> c
                 f = \{c} (x : a) -> g c a
                 g : {c} a -> c
                 g = \{c} (x : a) -> f c x
                 
               

Loading module Cryptol
Loading module test02
module test02
import Cryptol
/* Not recursive */
test02::test : {a, b} b -> a
test02::test = \{a, b} (a : b) ->
               f a
               where
                 /* Recursive */
                 f : b -> a
                 f = \ (x : b) -> g a
                 g : b -> a
                 g = \ (x : b) -> f x