mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-29 22:51:51 +03:00
10 lines
216 B
Idris
10 lines
216 B
Idris
module Data.Void
|
|
|
|
export
|
|
absurdity : Uninhabited t => (0 _ : t) -> s
|
|
absurdity x = void (uninhabited x)
|
|
|
|
export
|
|
contradiction : Uninhabited t => (0 _ : x -> t) -> (x -> s)
|
|
contradiction since x = absurdity (since x)
|