mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
24 lines
436 B
Idris
24 lines
436 B
Idris
%default total
|
|
|
|
failing "Oops is not total, not strictly positive"
|
|
|
|
data Oops : Type where
|
|
MkOops : (Lazy Oops -> Void) -> Oops
|
|
|
|
oops : Not (Lazy Oops)
|
|
oops a@(MkOops b) = b a
|
|
|
|
boom : Void
|
|
boom = oops (MkOops oops)
|
|
|
|
failing "Oops is not total, not strictly positive"
|
|
|
|
data Oops : Type where
|
|
MkOops : Lazy (Oops -> Void) -> Oops
|
|
|
|
oops : Not Oops
|
|
oops a@(MkOops b) = b a
|
|
|
|
boom : Void
|
|
boom = oops (MkOops oops)
|