simp only [if_neg]
α : Type u
m : Type → Type v
inst✝ : Monad m
p : α → m Bool
a : α
x : Array α
stop : Nat
h : stop ≤ size x
i : Nat
hlt : i < stop
b : Bool
⊢ (if false = true then pure true
    else anyM.loop p (cons a x) (stop + 1) (_ : Nat.succ stop ≤ Nat.succ (List.length x.data)) (i + 1 + 1)) =
    if false = true then pure true else anyM.loop p x stop h (i + 1)
α : Type u
m : Type → Type v
inst✝ : Monad m
p : α → m Bool
a : α
x : Array α
stop : Nat
h : stop ≤ size x
i : Nat
hlt : i < stop
b : Bool
⊢ anyM.loop p (cons a x) (stop + 1) (_ : Nat.succ stop ≤ Nat.succ (List.length x.data)) (i + 1 + 1) =
    anyM.loop p x stop h (i + 1)