Concrete categories

A concrete category is a category C with a fixed faithful functor forget : C ⥤ Type*. We define concrete categories using class ConcreteCategory. In particular, we impose no restrictions on the carrier type C, so Type is a concrete category with the identity forgetful functor.

Each concrete category C comes with a canonical faithful functor forget C : C ⥤ Type*. We say that a concrete category C admits a forgetful functor to a concrete category D, if it has a functor forget₂ C D : C ⥤ D such that (forget₂ C D) ⋙ (forget D) = forget C, see class HasForget₂. Due to Faithful.div_comp, it suffices to verify that forget₂.obj and forget₂.map agree with the equality above; then forget₂ will satisfy the functor laws automatically, see HasForget₂.mk'.

Two classes helping construct concrete categories in the two most common cases are provided in the files BundledHom and UnbundledHom, see their documentation for details.

References

See [Ahrens and Lumsdaine, Displayed Categories][ahrens2017] for related work.

class CategoryTheory.ConcreteCategory (C : Type u) [CategoryTheory.Category.{v, u} C] : Type (max (max u v) (w + 1))

A concrete category is a category C with a fixed faithful functor Forget : C ⥤ Type.

Note that ConcreteCategory potentially depends on three independent universe levels,

• the universe level w appearing in Forget : C ⥤ Type w
• the universe level v of the morphisms (i.e. we have a Category.{v} C)
• the universe level u of the objects (i.e C : Type u) They are specified that order, to avoid unnecessary universe annotations.

• forget : CategoryTheory.Functor C (Type w)

  We have a functor to Type

• forget_faithful : CategoryTheory.ConcreteCategory.forget.Faithful

  That functor is faithful

theorem CategoryTheory.ConcreteCategory.forget_faithful {C : Type u} : ∀ {inst : CategoryTheory.Category.{v, u} C} [self : CategoryTheory.ConcreteCategory C], CategoryTheory.ConcreteCategory.forget.Faithful

That functor is faithful

@[reducible, inline]

abbrev CategoryTheory.forget (C : Type u) [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] : CategoryTheory.Functor C (Type w)

The forgetful functor from a concrete category to Type u.

Equations

• CategoryTheory.forget C = CategoryTheory.ConcreteCategory.forget

@[reducible, inline]

instance CategoryTheory.ConcreteCategory.types : CategoryTheory.ConcreteCategory (Type u)

Equations

• CategoryTheory.ConcreteCategory.types = CategoryTheory.ConcreteCategory.mk (CategoryTheory.Functor.id (Type ?u.5))

def CategoryTheory.ConcreteCategory.hasCoeToSort (C : Type u) [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] : CoeSort C (Type w)

Provide a coercion to Type u for a concrete category. This is not marked as an instance as it could potentially apply to every type, and so is too expensive in typeclass search.

You can use it on particular examples as:

instance : HasCoeToSort X := ConcreteCategory.hasCoeToSort X

Equations

• CategoryTheory.ConcreteCategory.hasCoeToSort C = { coe := fun (X : C) => (CategoryTheory.forget C).obj X }

@[reducible, inline]

abbrev CategoryTheory.ConcreteCategory.instFunLike {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} : FunLike (X ⟶ Y) ((CategoryTheory.forget C).obj X) ((CategoryTheory.forget C).obj Y)

In any concrete category, (forget C).map is injective.

Equations

• CategoryTheory.ConcreteCategory.instFunLike = { coe := fun (f : X ⟶ Y) => (CategoryTheory.forget C).map f, coe_injective' := ⋯ }

theorem CategoryTheory.ConcreteCategory.hom_ext_iff {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} {f : X ⟶ Y} {g : X ⟶ Y} : f = g ↔ ∀ (x : (CategoryTheory.forget C).obj X), f x = g x

theorem CategoryTheory.ConcreteCategory.hom_ext {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} (f : X ⟶ Y) (g : X ⟶ Y) (w : ∀ (x : (CategoryTheory.forget C).obj X), f x = g x) : f = g

In any concrete category, we can test equality of morphisms by pointwise evaluations.

theorem CategoryTheory.forget_map_eq_coe {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} (f : X ⟶ Y) : (CategoryTheory.forget C).map f = ⇑f

theorem CategoryTheory.congr_hom {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} {f : X ⟶ Y} {g : X ⟶ Y} (h : f = g) (x : (CategoryTheory.forget C).obj X) : f x = g x

Analogue of congr_fun h x, when h : f = g is an equality between morphisms in a concrete category.

theorem CategoryTheory.coe_id {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} : ⇑(CategoryTheory.CategoryStruct.id X) = id

theorem CategoryTheory.coe_comp {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} {Z : C} (f : X ⟶ Y) (g : Y ⟶ Z) : ⇑(CategoryTheory.CategoryStruct.comp f g) = ⇑g ∘ ⇑f

@[simp]

theorem CategoryTheory.id_apply {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} (x : (CategoryTheory.forget C).obj X) : (CategoryTheory.CategoryStruct.id X) x = x

@[simp]

theorem CategoryTheory.comp_apply {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} {Z : C} (f : X ⟶ Y) (g : Y ⟶ Z) (x : (CategoryTheory.forget C).obj X) : (CategoryTheory.CategoryStruct.comp f g) x = g (f x)

theorem CategoryTheory.comp_apply' {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} {Z : C} (f : X ⟶ Y) (g : Y ⟶ Z) (x : (CategoryTheory.forget C).obj X) : (CategoryTheory.forget C).map (CategoryTheory.CategoryStruct.comp f g) x = (CategoryTheory.forget C).map g ((CategoryTheory.forget C).map f x)

theorem CategoryTheory.ConcreteCategory.congr_hom {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} {f : X ⟶ Y} {g : X ⟶ Y} (h : f = g) (x : (CategoryTheory.forget C).obj X) : f x = g x

theorem CategoryTheory.ConcreteCategory.congr_arg {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] {X : C} {Y : C} (f : X ⟶ Y) {x : (CategoryTheory.forget C).obj X} {x' : (CategoryTheory.forget C).obj X} (h : x = x') : f x = f x'

@[simp]

theorem CategoryTheory.ConcreteCategory.hasCoeToFun_Type {X : Type u} {Y : Type u} (f : X ⟶ Y) : CoeFun.coe f = f

class CategoryTheory.HasForget₂ (C : Type u) (D : Type u') [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] [CategoryTheory.Category.{v', u'} D] [CategoryTheory.ConcreteCategory D] : Type (max (max (max u u') v) v')

HasForget₂ C D, where C and D are both concrete categories, provides a functor forget₂ C D : C ⥤ D and a proof that forget₂ ⋙ (forget D) = forget C.

• forget₂ : CategoryTheory.Functor C D

  A functor from C to D

• forget_comp : CategoryTheory.HasForget₂.forget₂.comp (CategoryTheory.forget D) = CategoryTheory.forget C

  It covers the ConcreteCategory.forget for C and D

theorem CategoryTheory.HasForget₂.forget_comp {C : Type u} {D : Type u'} : ∀ {inst : CategoryTheory.Category.{v, u} C} {inst_1 : CategoryTheory.ConcreteCategory C} {inst_2 : CategoryTheory.Category.{v', u'} D} {inst_3 : CategoryTheory.ConcreteCategory D} [self : CategoryTheory.HasForget₂ C D], CategoryTheory.HasForget₂.forget₂.comp (CategoryTheory.forget D) = CategoryTheory.forget C

It covers the ConcreteCategory.forget for C and D

@[reducible, inline]

abbrev CategoryTheory.forget₂ (C : Type u) (D : Type u') [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] [CategoryTheory.Category.{v', u'} D] [CategoryTheory.ConcreteCategory D] [CategoryTheory.HasForget₂ C D] : CategoryTheory.Functor C D

The forgetful functor C ⥤ D between concrete categories for which we have an instance HasForget₂ C.

Equations

• CategoryTheory.forget₂ C D = CategoryTheory.HasForget₂.forget₂

theorem CategoryTheory.forget₂_comp_apply {C : Type u} {D : Type u'} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] [CategoryTheory.Category.{v', u'} D] [CategoryTheory.ConcreteCategory D] [CategoryTheory.HasForget₂ C D] {X : C} {Y : C} {Z : C} (f : X ⟶ Y) (g : Y ⟶ Z) (x : (CategoryTheory.forget D).obj ((CategoryTheory.forget₂ C D).obj X)) : ((CategoryTheory.forget₂ C D).map (CategoryTheory.CategoryStruct.comp f g)) x = ((CategoryTheory.forget₂ C D).map g) (((CategoryTheory.forget₂ C D).map f) x)

instance CategoryTheory.forget₂_faithful (C : Type u) (D : Type u') [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] [CategoryTheory.Category.{v', u'} D] [CategoryTheory.ConcreteCategory D] [CategoryTheory.HasForget₂ C D] : (CategoryTheory.forget₂ C D).Faithful

Equations

• ⋯ = ⋯

instance CategoryTheory.InducedCategory.concreteCategory {C : Type u} {D : Type u'} [CategoryTheory.Category.{v', u'} D] [CategoryTheory.ConcreteCategory D] (f : C → D) : CategoryTheory.ConcreteCategory (CategoryTheory.InducedCategory D f)

Equations

• CategoryTheory.InducedCategory.concreteCategory f = CategoryTheory.ConcreteCategory.mk ((CategoryTheory.inducedFunctor f).comp (CategoryTheory.forget D))

instance CategoryTheory.InducedCategory.hasForget₂ {C : Type u} {D : Type u'} [CategoryTheory.Category.{v, u'} D] [CategoryTheory.ConcreteCategory D] (f : C → D) : CategoryTheory.HasForget₂ (CategoryTheory.InducedCategory D f) D

Equations

• CategoryTheory.InducedCategory.hasForget₂ f = { forget₂ := CategoryTheory.inducedFunctor f, forget_comp := ⋯ }

instance CategoryTheory.FullSubcategory.concreteCategory {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] (Z : C → Prop) : CategoryTheory.ConcreteCategory (CategoryTheory.FullSubcategory Z)

Equations

• CategoryTheory.FullSubcategory.concreteCategory Z = CategoryTheory.ConcreteCategory.mk ((CategoryTheory.fullSubcategoryInclusion Z).comp (CategoryTheory.forget C))

instance CategoryTheory.FullSubcategory.hasForget₂ {C : Type u} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] (Z : C → Prop) : CategoryTheory.HasForget₂ (CategoryTheory.FullSubcategory Z) C

Equations

• CategoryTheory.FullSubcategory.hasForget₂ Z = { forget₂ := CategoryTheory.fullSubcategoryInclusion Z, forget_comp := ⋯ }

def CategoryTheory.HasForget₂.mk' {C : Type u} {D : Type u'} [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] [CategoryTheory.Category.{v', u'} D] [CategoryTheory.ConcreteCategory D] (obj : C → D) (h_obj : ∀ (X : C), (CategoryTheory.forget D).obj (obj X) = (CategoryTheory.forget C).obj X) (map : {X Y : C} → (X ⟶ Y) → (obj X ⟶ obj Y)) (h_map : ∀ {X Y : C} {f : X ⟶ Y}, HEq ((CategoryTheory.forget D).map (map f)) ((CategoryTheory.forget C).map f)) : CategoryTheory.HasForget₂ C D

In order to construct a “partially forgetting” functor, we do not need to verify functor laws; it suffices to ensure that compositions agree with forget₂ C D ⋙ forget D = forget C.

Equations

• One or more equations did not get rendered due to their size.

@[reducible]

def CategoryTheory.HasForget₂.trans (C : Type u) [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] (D : Type u') [CategoryTheory.Category.{v', u'} D] [CategoryTheory.ConcreteCategory D] (E : Type u'') [CategoryTheory.Category.{v'', u''} E] [CategoryTheory.ConcreteCategory E] [CategoryTheory.HasForget₂ C D] [CategoryTheory.HasForget₂ D E] : CategoryTheory.HasForget₂ C E

Composition of HasForget₂ instances.

Equations

• CategoryTheory.HasForget₂.trans C D E = { forget₂ := (CategoryTheory.forget₂ C D).comp (CategoryTheory.forget₂ D E), forget_comp := ⋯ }

def CategoryTheory.hasForgetToType (C : Type u) [CategoryTheory.Category.{v, u} C] [CategoryTheory.ConcreteCategory C] : CategoryTheory.HasForget₂ C (Type w)

Every forgetful functor factors through the identity functor. This is not a global instance as it is prone to creating type class resolution loops.

Equations

• CategoryTheory.hasForgetToType C = { forget₂ := CategoryTheory.forget C, forget_comp := ⋯ }

@[simp]

theorem CategoryTheory.NatTrans.naturality_apply {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_3, u_1} C] [CategoryTheory.Category.{u_4, u_2} D] [CategoryTheory.ConcreteCategory D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor C D} (φ : F ⟶ G) {X : C} {Y : C} (f : X ⟶ Y) (x : (CategoryTheory.forget D).obj (F.obj X)) : (φ.app Y) ((F.map f) x) = (G.map f) ((φ.app X) x)