theorem curvatureKReal_bounded {J ρ : ℝ} (hJ : 1 < J) (hρ : ρ < 1) :
curvatureKReal J ρ < 1 - ρ := by
simp only [curvatureKReal]
have hJpos : 0 < J := by linarith
have h1ρ : 0 < 1 - ρ := by linarith
-- (1-ρ)(J-1)/J < (1-ρ) ⟺ (J-1)/J < 1 ⟺ J-1 < J
rw [div_lt_iff₀ hJpos]
nlinarithPaper 1c, Section 2: K(J) as the Network Engine