simp only [Nat.zero_eq, Nat.zero_add] at H
case zero
α : Type u
m : Type u_1 → Type u_2
β : Type u_1
inst✝ : Monad m
f : β → α → m β
arr : Array α
j : Nat
H : size arr = Nat.zero + j
b : β
⊢ foldlM.loop f arr (size arr) (_ : size arr ≤ size arr) Nat.zero j b = List.foldlM f b (List.drop j arr.data)
case zero
α : Type u
m : Type u_1 → Type u_2
β : Type u_1
inst✝ : Monad m
f : β → α → m β
arr : Array α
j : Nat
b : β
H : size arr = j
⊢ foldlM.loop f arr (size arr) (_ : size arr ≤ size arr) Nat.zero j b = List.foldlM f b (List.drop j arr.data)