Idris2/tests/idris2/total/total011/Issue1460.idr

%default total

nonproductive : Stream a -> (Stream a, ())
nonproductive (x :: xs) =
  case nonproductive xs of
    (xs, ()) => (xs, ())
[ fix #1782 ] remove the case-specific code I can't make sense of this code, it seems to try to convert the case function corresponding to `let (a, b) = f n in ...` into a different case function where `f n` and `(a, b)` have been unified. But if `f n` is a bona fide stuck computation, there's no chance of this happening. Just turning this off solves the #1782 and only breaks one function in the whole of the idris2 repo (I would have expected our current termination oracle to be too weak to detect it as valid anyway!) and one in frex (which, again, should not have been seen as terminating). Also fixes #1460 2021-07-26 17:41:56 +03:00			`%default total`

			`nonproductive : Stream a -> (Stream a, ())`
			`nonproductive (x :: xs) =`
			`case nonproductive xs of`
			`(xs, ()) => (xs, ())`