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