cryptol/tests/issues/issue410.icry
2017-05-05 14:17:45 -07:00

5 lines
138 B
Plaintext

: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] ]