mirror of
https://github.com/ilyakooo0/Idris-dev.git
synced 2024-09-21 14:09:30 +03:00
16 lines
279 B
Idris
16 lines
279 B
Idris
k : (a : Type) -> (x, y : a) -> (p, q : x = y) -> p = q
|
|
k a x x Refl Refl = Refl
|
|
|
|
postulate trap : Z = Z
|
|
|
|
dodgy : (a, b : ()) -> a = b -> Void
|
|
dodgy n m Refl impossible
|
|
|
|
nonk : (trap = Refl {x = Z}) -> Void
|
|
nonk Refl impossible
|
|
|
|
false : Void
|
|
false = nonk (k Nat Z Z trap Refl)
|
|
|
|
|