have hPX : (P - X).natDegree = P.natDegree := by
  rw [natDegree_sub_eq_left_of_natDegree_lt]
  simpa using hP
P : ℤ[X]
hP : 1 < P.natDegree
⊢ (P.comp P - X).roots.toFinset.card ≤ P.natDegree
P : ℤ[X]
hP : 1 < P.natDegree
hPX : (P - X).natDegree = P.natDegree
⊢ (P.comp P - X).roots.toFinset.card ≤ P.natDegree