∀ {m : Type u → Type v} {ps : Std.Do.PostShape} {σ : Type u} {Q : Std.Do.PostCond σ ps} [inst : Std.Do.WP m ps]
  [inst_1 : MonadStateOf σ m], (Std.Do.wp (getThe σ)).apply Q = (Std.Do.wp MonadStateOf.get).apply Q