mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-23 03:32:09 +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
|