intro b'
case inr.h
α : Type u
β : Type v
γ : Type w
n : Nat
m : Type v → Type w
inst✝¹ : Monad m
inst✝ : LawfulMonad m
f : Fin (n + 1) → α → m β
a : α
x : SizedArray α n
i : Nat
hi₁ : i + 1 ≤ n + 1
hi₂ : i ≤ n
b : β
r : SizedArray β i
hlt : i < n
⊢ ∀ (a_1 : β),
    loop f (cons a x) (i + 1 + 1) (_ : i + 1 < n + 1) (push (cons b r) a_1) = do
      let y ← loop (f ∘ Fin.succ) x (i + 1) (_ : i < n) (push r a_1)
      pure (cons b y)
case inr.h
α : Type u
β : Type v
γ : Type w
n : Nat
m : Type v → Type w
inst✝¹ : Monad m
inst✝ : LawfulMonad m
f : Fin (n + 1) → α → m β
a : α
x : SizedArray α n
i : Nat
hi₁ : i + 1 ≤ n + 1
hi₂ : i ≤ n
b : β
r : SizedArray β i
hlt : i < n
b' : β
⊢ loop f (cons a x) (i + 1 + 1) (_ : i + 1 < n + 1) (push (cons b r) b') = do
    let y ← loop (f ∘ Fin.succ) x (i + 1) (_ : i < n) (push r b')
    pure (cons b y)