mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 02:31:50 +03:00
15 lines
187 B
Idris
15 lines
187 B
Idris
module Issue1988
|
|
|
|
data D : Type where Abs : (D -> Void) -> D
|
|
|
|
app : D -> D -> Void
|
|
app (Abs f) d = f d
|
|
|
|
omega : D
|
|
omega = Abs (\x => app x x)
|
|
|
|
total
|
|
Omega : Void
|
|
Omega = app omega omega
|
|
|