mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 02:31:50 +03:00
7 lines
137 B
Idris
7 lines
137 B
Idris
%default total
|
|
|
|
nonproductive : Stream a -> (Stream a, ())
|
|
nonproductive (x :: xs) =
|
|
case nonproductive xs of
|
|
(xs, ()) => (xs, ())
|