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