∀ (p₂ p₃ : Int.Linear.Poly) (d : ℤ) (k : ℕ) (d' : ℤ) (p' : Int.Linear.Poly),
  Int.Linear.cooper_dvd_right_split_dvd2_cert p₂ p₃ d k d' p' =
    (d'.beq' (p₂.leadCoeff * d)).and'
      (p'.beq'
        ((Int.Linear.Poly.combine_mul_k (-p₃.leadCoeff) p₂.leadCoeff p₂.tail p₃.tail).addConst_k (-p₃.leadCoeff * ↑k)))