exact anyPairM_loop_cons_succ a x p h 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 (stop + 1) (_ : Nat.succ stop ≤ Nat.succ (size x)) (start + 1) (start + 1 + 1)
      (_ : start + 1 < Nat.succ (start + 1)) =
    anyPairM.loop x p stop h start (start + 1) (_ : start < Nat.succ start)
no goals