congr 1
case h.succ.succ
α : Type ?u.13176
σ✝ : Stream' α
σ : Stream' ℕ
k✝ i : ℕ
ih : ∀ (k : ℕ), σ (i + k) = (fun x i => x (i + 1))^[i] (fun i => σ (i + k)) 0
k : ℕ
⊢ σ (i + 1 + k) = σ (i + (1 + k))
case h.succ.succ.e_a
α : Type ?u.13176
σ✝ : Stream' α
σ : Stream' ℕ
k✝ i : ℕ
ih : ∀ (k : ℕ), σ (i + k) = (fun x i => x (i + 1))^[i] (fun i => σ (i + k)) 0
k : ℕ
⊢ i + 1 + k = i + (1 + k)