mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-19 05:51:43 +03:00
33 lines
882 B
Plaintext
33 lines
882 B
Plaintext
|
Loading module Cryptol
|
||
|
|
Loading module Cryptol
|
||
|
|
Loading module test04
|
||
|
|
module test04
|
||
|
|
import Cryptol
|
||
|
|
/* Not recursive */
|
||
|
|
test04::test : {a, b} (b >= 4, fin b) => a -> ((a, ()), (a, [b]))
|
||
|
|
test04::test = \{a, b} (b >= 4, fin b) (a : a) ->
|
||
|
|
(f () (), f [b] (demote 10 b <> <> <>))
|
||
|
|
where
|
||
|
|
/* Not recursive */
|
||
|
|
f : {c} c -> (a, c)
|
||
|
|
f = \{c} (x : c) -> (a, x)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
Loading module Cryptol
|
||
|
|
Loading module test04
|
||
|
|
[warning] at test04.cry:1:1--5:14:
|
||
|
|
Defaulting type parameter 'bits'
|
||
|
|
of literal or demoted expression
|
||
|
|
at test04.cry:3:19--3:21
|
||
|
|
to 4
|
||
|
|
|
||
|
|
[error] at test04.cry:3:17--3:21:
|
||
|
|
Type mismatch:
|
||
|
|
Expected type: [?b3]
|
||
|
|
Inferred type: ()
|
||
|
|
where
|
||
|
|
?b3 is type parameter 'bits'
|
||
|
|
of literal or demoted expression
|
||
|
|
at test04.cry:3:19--3:21
|