∀ {ε ε' σ α : Type u_1} {x : EStateM ε σ α}
  {Q : Std.Do.PostCond α (Std.Do.PostShape.except ε' (Std.Do.PostShape.arg σ Std.Do.PostShape.pure))} (f : ε → ε'),
  (Std.Do.wp (EStateM.adaptExcept f x)).apply Q = (Std.Do.wp x).apply (Q.1, fun e => Q.2.1 (f e), Q.2.2)