α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
⊢ (x ∈ ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) ↔ x ∈ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
refine Option.ext fun x => ?_
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = ↑x ↔ (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ↑x
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
⊢ (x ∈ ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) ↔ x ∈ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
simp only [Option.mem_def, ENNReal.some_eq_coe]
case mp
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
h : (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = ↑x
⊢ (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a

case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
h : (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ↑x
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = ↑x ↔ (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ↑x
constructor <;> intro h <;> rw [← h]
case mp
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
h : (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = ↑x
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a

case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
h : (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ↑x
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
case mp
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
h : (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = ↑x
⊢ (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a

case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
h : (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ↑x
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
symm
case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
h : (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ↑x
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
⊢ c = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
h : (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ↑x
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
set c := ⨆ (k : ℕ) (hk : k ≤ m + 1), f k a with hc
case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ c = d
case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
h : (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) = ↑x
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
⊢ c = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
set d := f m.succ a ⊔ ⨆ (k : ℕ) (hk : k ≤ m), f k a with hd
case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ ((⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) ∧
    (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) ≤ ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ c = d
rw [@le_antisymm_iff ℝ≥0∞, hc, hd]
case mpr.refine'_1
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a

case mpr.refine'_2
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) ≤ ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
case mpr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ ((⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) ∧
    (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) ≤ ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
refine' ⟨_, _⟩
case mpr.refine'_1
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
n : ℕ
hn : n ≤ m + 1
⊢ f n a ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
case mpr.refine'_1
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ (⨆ (k : ℕ) (_ : k ≤ m + 1), f k a) ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
refine' iSup₂_le fun n hn => _
case mpr.refine'_1.inl
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h✝ : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
n : ℕ
hn : n ≤ m + 1
h : n ≤ m
⊢ f n a ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a

case mpr.refine'_1.inr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h✝ : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
n : ℕ
hn : n ≤ m + 1
h : n = Nat.succ m
⊢ f n a ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
case mpr.refine'_1
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
n : ℕ
hn : n ≤ m + 1
⊢ f n a ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
rcases Nat.of_le_succ hn with (h | h)
no goals
case mpr.refine'_1.inl
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h✝ : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
n : ℕ
hn : n ≤ m + 1
h : n ≤ m
⊢ f n a ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
exact le_sup_of_le_right (le_iSup₂ (f := fun k (_ : k ≤ m) => f k a) n h)
no goals
case mpr.refine'_1.inr
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h✝ : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
n : ℕ
hn : n ≤ m + 1
h : n = Nat.succ m
⊢ f n a ≤ f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
exact h ▸ le_sup_left
case mpr.refine'_2
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ f (Nat.succ m) a ≤ ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
case mpr.refine'_2
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ (f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a) ≤ ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
refine' sup_le _ (biSup_mono fun n hn => hn.trans m.le_succ)
case h.e'_3
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ f (Nat.succ m) a = f (Nat.succ m) a
case mpr.refine'_2
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ f (Nat.succ m) a ≤ ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
convert @le_iSup₂ ℝ≥0∞ ℕ (fun i => i ≤ m + 1) _ _ m.succ le_rfl
no goals
case h.e'_3
α✝ : Type ?u.91770
β : Type ?u.91773
m✝ : MeasurableSpace α✝
μ ν : Measure α✝
α : Sort u_1
f : ℕ → α → ℝ≥0∞
m : ℕ
a : α
x : ℝ≥0
c : ℝ≥0∞ := ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
hc : c = ⨆ (k : ℕ) (_ : k ≤ m + 1), f k a
d : ℝ≥0∞ := f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
h : d = ↑x
hd : d = f (Nat.succ m) a ⊔ ⨆ (k : ℕ) (_ : k ≤ m), f k a
⊢ f (Nat.succ m) a = f (Nat.succ m) a
rfl