cryptol/tests/issues/issue410.icry

5 lines
138 B
Plaintext
Raw Normal View History

:set core-lint=on
:t s where s x = (bs where bs = [~ b | b <- [~x] # bs | _ <- bs])
:t bs where bs = [b | b <- bs]
:t [ b | b <- [True] ]