theorem curvature_decreases_on_exit {ρ H H' : ℝ} (hρ : ρ < 1) (hH : H < H') : (1 - ρ) * (1 - H') < (1 - ρ) * (1 - H) := by apply mul_lt_mul_of_pos_left _ (by linarith) linarith
thesis/CESProofs/Applications/HeterogeneousFirms.lean:119
Heterogeneous Firms and the Melitz Connection