∀ {m : Type u → Type v} {ps : Std.Do.PostShape} {α σ : Type u} {Q : Std.Do.PostCond α (Std.Do.PostShape.arg σ ps)}
  [inst : Std.Do.WP m ps] [inst_1 : Monad m] (x : m α),
  (Std.Do.wp (StateT.lift x)).apply Q = (Std.Do.wp (MonadLift.monadLift x)).apply Q