simpa [div_mul_add' b 2 one_lt_two] using subset_div_two h
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚺₁
b : M
IH : ∀ {a : M}, a ⊆ b → a ≤ b
a : M
h : a ⊆ 2 * b + 1
⊢ a / 2 ⊆ b
no goals