mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-20 19:31:31 +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
|