apply of_irreducible_map ((taylorAlgEquiv r).symm.toRingEquiv : R[X] →+* R[X])
R : Type u_1
inst✝ : CommRing R
r : R
p : R[X]
H : Irreducible p
⊢ Irreducible ((taylor r) p)
R : Type u_1
inst✝ : CommRing R
r : R
p : R[X]
H : Irreducible p
⊢ Irreducible (↑(taylorAlgEquiv r).symm.toRingEquiv ((taylor r) p))