Idris2/libs/base/Data/Fuel.idr

module Data.Fuel

%default total

||| Fuel for running total operations potentially indefinitely.
public export
data Fuel = Dry | More (Lazy Fuel)

||| Provide `n` units of fuel.
public export
limit : Nat -> Fuel
limit  Z    = Dry
limit (S n) = More (limit n)

||| Provide fuel indefinitely.
||| This function is fundamentally partial.
partial
export
forever : Fuel
forever = More forever
add Data.Fuel 2020-06-02 18:20:42 +03:00			`module Data.Fuel`

			`%default total`

			`\|\|\| Fuel for running total operations potentially indefinitely.`
			`public export`
			`data Fuel = Dry \| More (Lazy Fuel)`

			\|\|\| Provide `n` units of fuel.
[ new ] Proof search from 'Applications of Applicative Proof Search' (#1093) 2021-03-01 11:29:43 +03:00			`public export`
add Data.Fuel 2020-06-02 18:20:42 +03:00			`limit : Nat -> Fuel`
			`limit Z = Dry`
			`limit (S n) = More (limit n)`

			`\|\|\| Provide fuel indefinitely.`
			`\|\|\| This function is fundamentally partial.`
			`partial`
			`export`
			`forever : Fuel`
			`forever = More forever`