refine ⟨fun H ↦ of_irreducible_map (taylorAlgEquiv r).toRingEquiv H, fun H ↦ ?_⟩
R : Type u_1
inst✝ : CommRing R
r : R
p : R[X]
⊢ Irreducible ((taylor r) p) ↔ Irreducible p
R : Type u_1
inst✝ : CommRing R
r : R
p : R[X]
H : Irreducible p
⊢ Irreducible ((taylor r) p)