∀ {γ : Sort u_1} {m : Type u_2 → Type u_3} {σ α : Type u_2} [inst : Lean.Order.PartialOrder γ] [Monad m]
  [inst_2 : (α : Type u_2) → Lean.Order.PartialOrder (m α)] (f : γ → StateT σ m α),
  Lean.Order.monotone f → ∀ (s : σ), Lean.Order.monotone fun x => (f x).run s