∀ {σ : Type u_1} {m : MonomialOrder σ} {R : Type u_2} [inst : CommRing R] {b : MvPolynomial σ R},
  IsUnit (m.leadingCoeff b) →
    ∀ (f : MvPolynomial σ R),
      ∃ g r, f = g * b + r ∧ m.toSyn (m.degree (b * g)) ≤ m.toSyn (m.degree f) ∧ ∀ c ∈ r.support, ¬m.degree b ≤ c