∀ {α β β' : Type w} {m : Type w → Type w'} [inst : Std.Iterator α Id β] [Std.Iterators.Finite α Id] [inst_2 : Monad m]
  [inst_3 : MonadAttach m] [LawfulMonad m] [WeaklyLawfulMonadAttach m] {it : Std.Iter β} {f : β → m β'}
  {p : β' → m (ULift.{w, 0} Bool)},
  Std.IterM.anyM p (Std.Iter.mapM f it) =
    Std.IterM.anyM
      (fun x => do
        let __do_lift ← f x
        p __do_lift)
      (Std.Iter.mapM pure it)