theorem collapse_when_underfunded {R J c_min : ℝ} (hJ : 0 < J) (hR : R ≤ c_min * J) : producerProfit R J c_min ≤ 0 := by unfold producerProfit; rw [sub_nonpos, div_le_iff₀ hJ]; linarith
thesis/CESProofs/Applications/KnowledgeCommons.lean:176
Paper 10: The Knowledge Commons Paradox: