mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-11-29 03:24:02 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
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
|