exact anyPairM_loop_cons_succ a x p .refl start.lt_succ_self
α : Type u
β : Type v
m : Type → Type v
inst✝ : Monad m
a : α
x : Array α
p : α → α → m Bool
start stop : Nat
h : ¬stop ≤ size x
⊢ anyPairM.loop (cons a x) p (Nat.succ (size x)) (_ : Nat.le (size (cons a x)) (size (cons a x))) (start + 1)
      (start + 1 + 1) (_ : start + 1 < Nat.succ (start + 1)) =
    anyPairM.loop x p (size x) (_ : Nat.le (size x) (size x)) start (start + 1) (_ : start < Nat.succ start)
no goals