∀ {ε σ α : Type u_1} {p : α → Prop} {x : EStateM ε σ α} (h : SatisfiesM p x),
  (Subtype.val <$>
      have h' := ⋯;
      fun s =>
      match w : x.run s with
      | EStateM.Result.ok a s' => EStateM.Result.ok ⟨a, ⋯⟩ s'
      | EStateM.Result.error e s' => EStateM.Result.error e s') =
    x