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

Loading module Cryptol
Loading module Cryptol
Loading module test03
module test03
import Cryptol
/* Not recursive */
test03::test : {a} (fin a, a >= width a) => [a]
test03::test = \{a} (fin a, a >= width a) ->
               test03::foo [a] <>
               where
                 /* Not recursive */
                 test03::foo : {b} (Literal a b) => b
                 test03::foo = \{b} (Literal a b) -> Cryptol::demote a b <>
                 
               

Loading module Cryptol
Loading module test03
module test03
import Cryptol
/* Not recursive */
test03::test : {a} (fin a, a >= width a) => [a]
test03::test = \{a} (fin a, a >= width a) ->
               test03::foo
               where
                 /* Not recursive */
                 test03::foo : [a]
                 test03::foo = Cryptol::demote a [a] <>