theorem levelGeneralCurvature_le_standard
{N : ℕ} (e : WeightedHierarchicalCESEconomy N) (n : Fin N)
(hρ : e.ρ n < 1) (hJ : 2 ≤ e.J n) :
levelGeneralCurvature e n ≤ levelStandardCurvature e n := by
unfold levelGeneralCurvature levelStandardCurvature
exact equalWeights_maximize_K hJ hρ (e.ha_pos n) (e.ha_sum n)## Weighted Hierarchical CES Economy