∀ (p₁ : Lean.Grind.CommRing.Poly) (k₂ : ℤ) (m₂ : Lean.Grind.CommRing.Mon) (p₂ p : Lean.Grind.CommRing.Poly),
  Lean.Grind.CommRing.Stepwise.d_step1_cert p₁ k₂ m₂ p₂ p =
    p.beq' (p₁.combine_k (Lean.Grind.CommRing.Poly.mulMon_k k₂ m₂ p₂))