mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
15 lines
164 B
Idris
15 lines
164 B
Idris
data Bad = MkBad (Not Bad)
|
|
|
|
hmmm : Bad -> Not Bad
|
|
hmmm (MkBad n) = n
|
|
|
|
ok : Not Bad
|
|
ok bad = hmmm bad bad
|
|
|
|
bad : Bad
|
|
bad = MkBad ok
|
|
|
|
total
|
|
ohno : Void
|
|
ohno = ok bad
|