theorem lower_rho_raises_K (J : ℕ) (hJ : 2 ≤ J) {ρ₁ ρ₂ : ℝ}
(hρ₁ : ρ₁ < 1) (hρ₂ : ρ₂ < 1) (h12 : ρ₁ < ρ₂) :
-- K(J, ρ₂) < K(J, ρ₁): lower ρ → higher K
(1 - ρ₂) * ((J - 1 : ℝ) / J) < (1 - ρ₁) * ((J - 1 : ℝ) / J) := by
apply mul_lt_mul_of_pos_right _ _
· linarith
· apply div_pos
· have : (1 : ℝ) ≤ (J : ℝ) - 1 := by
have : (2 : ℝ) ≤ (J : ℝ) := by exact_mod_cast hJ
linarith
linarith
· have : (0 : ℝ) < (J : ℝ) := by exact_mod_cast Nat.pos_of_ne_zero (by omega)
exact thisResults 70-79: Endogenous Complementarity Evolution