mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
19 lines
228 B
Idris
19 lines
228 B
Idris
|
|
data Oops = MkOops (Not Oops)
|
|
|
|
total
|
|
runOops : Oops -> Not Oops
|
|
runOops (MkOops nf) = nf
|
|
|
|
total
|
|
notOops : Not Oops
|
|
notOops x = runOops x x
|
|
|
|
covering
|
|
oops : Oops
|
|
oops = MkOops notOops
|
|
|
|
total
|
|
boom : Void
|
|
boom = runOops oops oops
|