theorem curvatureK_decreasing_in_rho {J : ℕ} (hJ : 2 ≤ J)
{rho1 rho2 : ℝ} (hrho : rho1 < rho2) :
curvatureK J rho2 < curvatureK J rho1 := by
simp only [curvatureK]
apply div_lt_div_of_pos_right _ (by exact_mod_cast (show 0 < J by omega))
exact mul_lt_mul_of_pos_right (by linarith) (by
have : (2 : ℝ) ≤ ↑J := by exact_mod_cast hJ
linarith)Bilateral Trade Collapse Ordering