simp
α : Type u
as : Array α
p : α → Bool
⊢ Id.run
      (if h : size as ≤ size as then anyM.loop p as (size as) h 0
      else anyM.loop p as (size as) (_ : size as ≤ size as) 0) =
    List.any as.data p
α : Type u
as : Array α
p : α → Bool
⊢ Id.run (anyM.loop p as (size as) (_ : size as ≤ size as) 0) = List.any as.data p