mirror of
https://github.com/idris-lang/Idris2.git
synced 2025-01-03 12:33:26 +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
|