rewrite [if_pos hpj, hpj, Bool.true_or]
α : Type u
as : Array α
p : α → Bool
j : Nat
IH : Id.run (anyM.loop p as (size as) (_ : size as ≤ size as) (j + 1)) = List.any (List.drop (j + 1) as.data) p
hlt : j < size as
hpj : p as[j] = true
⊢ Id.run (if p as[j] = true then true else anyM.loop p as (size as) (_ : size as ≤ size as) (j + 1)) =
    (p as[j] || List.any (List.drop (j + 1) as.data) p)
α : Type u
as : Array α
p : α → Bool
j : Nat
IH : Id.run (anyM.loop p as (size as) (_ : size as ≤ size as) (j + 1)) = List.any (List.drop (j + 1) as.data) p
hlt : j < size as
hpj : p as[j] = true
⊢ Id.run true = true