∀ {m : Type u → Type v} {ps : Std.Do.PostShape} {α : Type u}
  {Q : Std.Do.PostCond α (Std.Do.PostShape.except PUnit.{u + 1} ps)} [inst : Monad m] [inst_1 : Std.Do.WPMonad m ps]
  (f : ({β : Type u} → OptionT m β → m (Option β)) → m α),
  ⦃(Std.Do.wp (f fun {β} x => x.run)).apply (Q.1, Q.2.2)⦄ MonadControl.liftWith f ⦃Q⦄