funext i
α✝ : Type ?u.62658
m✝ : Type u → Type v
inst✝ : Monad m✝
α : Type w
β : Type u
m : ℕ
w : Fin m → α
⊢ appendr ![] w = w
case h
α✝ : Type ?u.62658
m✝ : Type u → Type v
inst✝ : Monad m✝
α : Type w
β : Type u
m : ℕ
w : Fin m → α
i : Fin (m + 0)
⊢ appendr ![] w i = w i