∀ {m : Type u → Type v} {ps : Std.Do.PostShape} {o : Type u → Type u_1} {n : Type u → Type u_2} {α : Type u}
  {Q : Std.Do.PostCond α ps} [inst : Std.Do.WP o ps] [inst_1 : MonadControl n o] [inst_2 : MonadControlT m n]
  (f : ({β : Type u} → o β → m (stM m o β)) → m α),
  ⦃(Std.Do.wp (MonadControl.liftWith fun x₂ => liftWith fun x₁ => f fun {β} => x₁ ∘ x₂)).apply Q⦄ liftWith f ⦃Q⦄