∀ {m : Type u → Type v} {ps : Std.Do.PostShape} {α : Type u} [inst : Monad m] [inst_1 : Std.Do.WPMonad m ps] (x : m α)
  (Q : Std.Do.PostCond α (Std.Do.PostShape.except PUnit.{u + 1} ps)),
  ⦃(Std.Do.wp x).apply (fun a => Q.1 a, Q.2.2)⦄ MonadLift.monadLift x ⦃Q⦄