∀ {Ω : Type u_2} {m0 : MeasurableSpace Ω} {μ : MeasureTheory.Measure Ω} {ℱ : MeasureTheory.Filtration ℕ m0}
  {f : ℕ → Ω → ℝ} {r : ℝ} {R : NNReal} [MeasureTheory.IsFiniteMeasure μ],
  MeasureTheory.Submartingale f ℱ μ →
    0 ≤ r →
      f 0 = 0 →
        (∀ᵐ (ω : Ω) ∂μ, ∀ (i : ℕ), |f (i + 1) ω - f i ω| ≤ ↑R) →
          ∀ (i : ℕ),
            MeasureTheory.eLpNorm (MeasureTheory.stoppedAbove f r i) 1 μ ≤
              ↑(2 * μ Set.univ * ENNReal.ofReal (r + ↑R)).toNNReal