ofCommaMorphism

Mathlib.CategoryTheory.WithTerminal.Basic

URI: https://scilib.ai/kg/mathlib#CategoryTheory.WithTerminal.ofCommaMorphism

Lean4

/-- A morphism in `Comma (𝟭 (C ⥤ D)) (Functor.const C)` gives a morphism between the associated
functors `WithTerminal C ⥤ D`. -/
@[simps!]
def ofCommaMorphism {c c' : Comma (𝟭 (C ⥤ D)) (Functor.const C)} (φ : c ⟶ c') : ofCommaObject c ⟶ ofCommaObject c'
    where
  app
    x :=
    match x with
    | of x => φ.left.app x
    | star => φ.right
  naturality x y
    f :=
    match x, y, f with
    | of _, of _, f => by simp
    | of a, star, _ => by simp; simpa [-CommaMorphism.w] using (congrArg (fun f ↦ f.app a) φ.w).symm
    | star, star, _ => by simp

Похожие утверждения

Научная платформа российской исследовательской школы.

Разделы

MathLib Explorer
Graph RAG
Лаборатория
Блог
О проекте
Команда

Аффилиация

Вычислительный центр им. А. А. Дороницына при ФИЦ «Информатика и Управление» РАН frccsc.ru