mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-23 03:48:46 +03:00
d891fde0c7
Both the standard and the reference interpreter were producing incorrect behaviors. The correct behavior is to return an empty sequence. Fixes #395.
22 lines
559 B
Plaintext
22 lines
559 B
Plaintext
:t (join (zero : [inf][0]))
|
|
join (zero : [inf][0])
|
|
join (zero : [inf][0]) == []
|
|
:eval join (zero : [inf][0])
|
|
|
|
:t (join (zero : [1000][0]))
|
|
join (zero : [1000][0])
|
|
join (zero : [1000][0]) == []
|
|
:eval join (zero : [1000][0])
|
|
:pro (\(x:[1000][0]) -> join x == [])
|
|
|
|
:t (join (zero : [inf][0][32]))
|
|
join (zero : [inf][0][32])
|
|
join (zero : [inf][0][32]) == []
|
|
:eval join (zero : [inf][0][32])
|
|
|
|
:t (join (zero : [1000][0][32]))
|
|
join (zero : [1000][0][32])
|
|
join (zero : [1000][0][32]) == []
|
|
:eval join (zero : [1000][0][32])
|
|
:pro (\(x:[1000][0][32]) -> join x == [])
|