Remark: we considered using the following alternative design

structure Stream (α : Type u) where
  stream : Type u
  next? : stream → Option (α × stream)

class ToStream (collection : Type u) (value : outParam (Type v)) where
  toStream : collection → Stream value

where Stream is not a class, and its state is encapsulated. The key problem is that the type Stream α "lives" in a universe higher than α. This is a problem because we want to use Streams in monadic code.

class ToStream (collection : Type u) (stream : outParam (Type u)) : Type u

Streams are used to implement parallel for statements. Example:

for x in xs, y in ys do
  ...

is expanded into

let mut s := toStream ys
for x in xs do
  match Stream.next? s with
  | none => break
  | some (y, s') =>
    s := s'
    ...

• toStream : collection → stream

class Stream (stream : Type u) (value : outParam (Type v)) : Type (max u v)

• next? : stream → Option (value × stream)

def Stream.forIn {ρ : Type u_1} {α : Type u_2} {m : Type u_3 → Type u_4} {β : Type u_3} [Stream ρ α] [Monad m] (s : ρ) (b : β) (f : α → β → m (ForInStep β)) : m β

Equations

• Stream.forIn s b f = Stream.forIn.visit f s b

partial def Stream.forIn.visit {ρ : Type u_1} {α : Type u_2} {m : Type u_3 → Type u_4} {β : Type u_3} [Stream ρ α] [Monad m] (f : α → β → m (ForInStep β)) (s : ρ) (b : β) : m β

@[instance 100]

instance instForInOfStream {ρ : Type u_1} {α : Type u_2} {m : Type u_3 → Type u_4} [Stream ρ α] : ForIn m ρ α

Equations

• instForInOfStream = { forIn := fun {β : Type ?u.29} [Monad m] => Stream.forIn }

instance instToStreamList {α : Type u_1} : ToStream (List α) (List α)

instance instToStreamArraySubarray {α : Type u_1} : ToStream (Array α) (Subarray α)

instance instToStreamSubarray {α : Type u_1} : ToStream (Subarray α) (Subarray α)

instance instToStreamStringSubstring : ToStream String Substring

Equations

• instToStreamStringSubstring = { toStream := fun (s : String) => s.toSubstring }

instance instToStreamRange : ToStream Std.Range Std.Range

Equations

• instToStreamRange = { toStream := fun (r : Std.Range) => r }

instance instStreamProd {ρ : Type u_1} {α : Type u_2} {γ : Type u_3} {β : Type u_4} [Stream ρ α] [Stream γ β] : Stream (ρ × γ) (α × β)

Equations

• One or more equations did not get rendered due to their size.

instance instStreamList {α : Type u_1} : Stream (List α) α

instance instStreamSubarray {α : Type u_1} : Stream (Subarray α) α

instance instStreamRangeNat : Stream Std.Range Nat

Equations

• instStreamRangeNat = { next? := fun (r : Std.Range) => if r.start < r.stop then some (r.start, { start := r.start + r.step, stop := r.stop, step := r.step }) else none }

instance instStreamSubstringChar : Stream Substring Char