∀ {α : Type u_1} [inst : Lean.Grind.IntModule α] [inst_1 : LE α] [inst_2 : LT α] [Std.LawfulOrderLT α]
  [inst_4 : Std.IsLinearOrder α] [Lean.Grind.OrderedAdd α] (ctx : Lean.Grind.Linarith.Context α)
  (p₁ p₂ : Lean.Grind.Linarith.Poly) (k : ℕ),
  Lean.Grind.Linarith.coeff_cert p₁ p₂ k = true →
    Lean.Grind.Linarith.Poly.denote' ctx p₁ ≤ 0 → Lean.Grind.Linarith.Poly.denote' ctx p₂ ≤ 0