mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 04:33:45 +03:00
8 lines
184 B
Idris
8 lines
184 B
Idris
foo : (pf : Nat -> Either (S Z = Z) (Z = S Z)) -> Z = S Z
|
|
foo pf =
|
|
let baz : Z === S Z
|
|
baz with (pf 0)
|
|
baz | (Left Refl) impossible
|
|
baz | (Right pf') = pf'
|
|
in baz
|