apply congrArg
case h
α : Type u
β : Type v
m : Type → Type v
inst✝¹ : Monad m
inst✝ : LawfulMonad m
a : α
x : Array α
p : α → α → m Bool
stop : Nat
h : ¬stop ≤ size x
⊢ bind (anyM (p a) x 0 (size x)) = bind (anyM (p a) x 0 stop)
case h.h
α : Type u
β : Type v
m : Type → Type v
inst✝¹ : Monad m
inst✝ : LawfulMonad m
a : α
x : Array α
p : α → α → m Bool
stop : Nat
h : ¬stop ≤ size x
⊢ anyM (p a) x 0 (size x) = anyM (p a) x 0 stop