mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2025-01-01 17:23:23 +03:00
8 lines
183 B
Idris
8 lines
183 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
|