mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-14 11:16:33 +03:00
24 lines
617 B
Plaintext
24 lines
617 B
Plaintext
Loading module Cryptol
|
|
Loading module Cryptol
|
|
Loading module Main
|
|
[warning] at ./issue513.cry:1:8--1:15:
|
|
Assuming a to have a numeric type
|
|
module Main
|
|
import Cryptol
|
|
/* Recursive */
|
|
Main::test : {a} [1 + a]
|
|
Main::test = \{a} ->
|
|
Main::$mono
|
|
where
|
|
/* Recursive */
|
|
Main::$mono : [1 + a]
|
|
Main::$mono = (Cryptol::#) 1 a Bit <> [Cryptol::False] [y | i <- Cryptol::zero [a] <>
|
|
| y <- Main::$mono]
|
|
|
|
|
|
|
|
Main::test
|
|
test : {a} [1 + a]
|
|
Main::test 8
|
|
0x000
|