Idris2/tests/idris2/coverage006/foobar.idr

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
Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here! 2020-05-19 20:25:18 +03:00			`foo : (pf : Nat -> Either (S Z = Z) (Z = S Z)) -> Z = S Z`
[ fix #63 ] interleaving let binders and local declarations (#691) 2020-09-28 15:15:22 +03:00			`foo pf =`
			`let baz : Z === S Z`
Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here! 2020-05-19 20:25:18 +03:00			`baz with (pf 0)`
			`baz \| (Left Refl) impossible`
			`baz \| (Right pf') = pf'`
			`in baz`