∀ {m : Type u → Type v} {ps : Std.Do.PostShape} [inst : Monad m] [inst_1 : Std.Do.WPMonad m ps] {α β : Type u} {x : m α}
  {f : α → m β} {Q : Std.Do.PostCond β ps},
  ⦃(Std.Do.wp x).apply (fun a => (Std.Do.wp (f a)).apply Q, Q.2)⦄ (x >>= f) ⦃Q⦄