English
Same as above, with a simp variant.
Русский
То же самое с вариацией simp.
LaTeX
$$epi_right_of_epi$$
Lean4
/-- If `k` is an epimorphism, then `k.right` is an epimorphism. In other words, `Under.forget X`
preserves epimorphisms.
The converse of `CategoryTheory.under.epi_of_epi_right`.
-/
instance epi_right_of_epi {f g : Under X} (k : f ⟶ g) [Epi k] : Epi k.right :=
by
refine ⟨fun {Y : T} l m a => ?_⟩
let l' : g ⟶ mk (g.hom ≫ m) := homMk l (by dsimp; rw [← Under.w k, Category.assoc, a, Category.assoc])
suffices l' = (homMk m) by apply congrArg CommaMorphism.right this
rw [← cancel_epi k]; ext; apply a