theorem settlementR0_friction_eq (e : SettlementEconomy) (lambda_B : ℝ) :
settlementR0_friction e lambda_B = lambda_B * settlementR0 e := by
simp only [settlementR0_friction, settlementR0]
ringPaper 7: Settlement Feedback and Monetary Policy in a Mesh Economy