Skeleton of a category

Define skeletal categories as categories in which any two isomorphic objects are equal.

Construct the skeleton of an arbitrary category by taking isomorphism classes, and show it is a skeleton of the original category.

In addition, construct the skeleton of a thin category as a partial ordering, and (noncomputably) show it is a skeleton of the original category. The advantage of this special case being handled separately is that lemmas and definitions about orderings can be used directly, for example for the subobject lattice. In addition, some of the commutative diagrams about the functors commute definitionally on the nose which is convenient in practice.

def CategoryTheory.Skeletal (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : Prop

A category is skeletal if isomorphic objects are equal.

Equations

• CategoryTheory.Skeletal C = ∀ ⦃X Y : C⦄, CategoryTheory.IsIsomorphic X Y → X = Y

structure CategoryTheory.IsSkeletonOf (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] (D : Type u₂) [CategoryTheory.Category.{v₂, u₂} D] (F : CategoryTheory.Functor D C) : Type (max (max (max u₁ u₂) v₁) v₂)

IsSkeletonOf C D F says that F : D ⥤ C exhibits D as a skeletal full subcategory of C, in particular F is a (strong) equivalence and D is skeletal.

• skel : CategoryTheory.Skeletal D

  The category D has isomorphic objects equal

• eqv : CategoryTheory.IsEquivalence F

  The functor F is an equivalence

theorem CategoryTheory.Functor.eq_of_iso {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] {F₁ : CategoryTheory.Functor D C} {F₂ : CategoryTheory.Functor D C} [Quiver.IsThin C] (hC : CategoryTheory.Skeletal C) (hF : F₁ ≅ F₂) : F₁ = F₂

If C is thin and skeletal, then any naturally isomorphic functors to C are equal.

theorem CategoryTheory.functor_skeletal {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] [Quiver.IsThin C] (hC : CategoryTheory.Skeletal C) : CategoryTheory.Skeletal (CategoryTheory.Functor D C)

If C is thin and skeletal, D ⥤ C is skeletal. CategoryTheory.functor_thin shows it is thin also.

def CategoryTheory.Skeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : Type u₁

Construct the skeleton category as the induced category on the isomorphism classes, and derive its category structure.

Equations

• CategoryTheory.Skeleton C = CategoryTheory.InducedCategory C Quotient.out

instance CategoryTheory.instInhabitedSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [Inhabited C] : Inhabited (CategoryTheory.Skeleton C)

Equations

• CategoryTheory.instInhabitedSkeleton C = { default := ⟦default⟧ }

noncomputable instance CategoryTheory.instCategorySkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.Category.{v₁, u₁} (CategoryTheory.Skeleton C)

Equations

• CategoryTheory.instCategorySkeleton C = CategoryTheory.InducedCategory.category Quotient.out

@[simp]

theorem CategoryTheory.fromSkeleton_map (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : ∀ {X Y : CategoryTheory.InducedCategory C Quotient.out} (f : X ⟶ Y), (CategoryTheory.fromSkeleton C).map f = f

@[simp]

theorem CategoryTheory.fromSkeleton_obj (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : ∀ (a : Quotient (CategoryTheory.isIsomorphicSetoid C)), (CategoryTheory.fromSkeleton C).obj a = Quotient.out a

noncomputable def CategoryTheory.fromSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.Functor (CategoryTheory.Skeleton C) C

The functor from the skeleton of C to C.

Equations

• CategoryTheory.fromSkeleton C = CategoryTheory.inducedFunctor Quotient.out

noncomputable instance CategoryTheory.instFullSkeletonInstCategorySkeletonFromSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.Full (CategoryTheory.fromSkeleton C)

Equations

• CategoryTheory.instFullSkeletonInstCategorySkeletonFromSkeleton C = CategoryTheory.InducedCategory.full Quotient.out

noncomputable instance CategoryTheory.instFaithfulSkeletonInstCategorySkeletonFromSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.Faithful (CategoryTheory.fromSkeleton C)

Equations

• ⋯ = ⋯

instance CategoryTheory.instEssSurjSkeletonInstCategorySkeletonFromSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.EssSurj (CategoryTheory.fromSkeleton C)

Equations

• ⋯ = ⋯

noncomputable instance CategoryTheory.fromSkeleton.isEquivalence (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.IsEquivalence (CategoryTheory.fromSkeleton C)

Equations

• CategoryTheory.fromSkeleton.isEquivalence C = CategoryTheory.Equivalence.ofFullyFaithfullyEssSurj (CategoryTheory.fromSkeleton C)

noncomputable def CategoryTheory.skeletonEquivalence (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.Skeleton C ≌ C

The equivalence between the skeleton and the category itself.

Equations

• CategoryTheory.skeletonEquivalence C = CategoryTheory.Functor.asEquivalence (CategoryTheory.fromSkeleton C)

theorem CategoryTheory.skeleton_skeletal (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.Skeletal (CategoryTheory.Skeleton C)

noncomputable def CategoryTheory.skeletonIsSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.IsSkeletonOf C (CategoryTheory.Skeleton C) (CategoryTheory.fromSkeleton C)

The skeleton of C given by choice is a skeleton of C.

Equations

• CategoryTheory.skeletonIsSkeleton C = { skel := ⋯, eqv := CategoryTheory.fromSkeleton.isEquivalence C }

noncomputable def CategoryTheory.Equivalence.skeletonEquiv {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] (e : C ≌ D) : CategoryTheory.Skeleton C ≃ CategoryTheory.Skeleton D

Two categories which are categorically equivalent have skeletons with equivalent objects.

Equations

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

def CategoryTheory.ThinSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : Type u₁

Construct the skeleton category by taking the quotient of objects. This construction gives a preorder with nice definitional properties, but is only really appropriate for thin categories. If your original category is not thin, you probably want to be using skeleton instead of this.

Equations

• CategoryTheory.ThinSkeleton C = Quotient (CategoryTheory.isIsomorphicSetoid C)

instance CategoryTheory.inhabitedThinSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [Inhabited C] : Inhabited (CategoryTheory.ThinSkeleton C)

Equations

• CategoryTheory.inhabitedThinSkeleton C = { default := Quotient.mk' default }

instance CategoryTheory.ThinSkeleton.preorder (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : Preorder (CategoryTheory.ThinSkeleton C)

Equations

• CategoryTheory.ThinSkeleton.preorder C = Preorder.mk ⋯ ⋯ ⋯

@[simp]

theorem CategoryTheory.toThinSkeleton_obj (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] (a : C) : (CategoryTheory.toThinSkeleton C).obj a = Quotient.mk' a

@[simp]

theorem CategoryTheory.toThinSkeleton_map (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : ∀ {X Y : C} (f : X ⟶ Y), (CategoryTheory.toThinSkeleton C).map f = CategoryTheory.homOfLE ⋯

def CategoryTheory.toThinSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : CategoryTheory.Functor C (CategoryTheory.ThinSkeleton C)

The functor from a category to its thin skeleton.

Equations

• CategoryTheory.toThinSkeleton C = { toPrefunctor := { obj := Quotient.mk', map := fun {X Y : C} (f : X ⟶ Y) => CategoryTheory.homOfLE ⋯ }, map_id := ⋯, map_comp := ⋯ }

The constructions here are intended to be used when the category C is thin, even though some of the statements can be shown without this assumption.

instance CategoryTheory.ThinSkeleton.thin (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] : Quiver.IsThin (CategoryTheory.ThinSkeleton C)

The thin skeleton is thin.

Equations

• ⋯ = ⋯

@[simp]

theorem CategoryTheory.ThinSkeleton.map_map {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] (F : CategoryTheory.Functor C D) {X : CategoryTheory.ThinSkeleton C} {Y : CategoryTheory.ThinSkeleton C} : ∀ (a : X ⟶ Y), (CategoryTheory.ThinSkeleton.map F).map a = Quotient.recOnSubsingleton₂ (motive := fun (x x_1 : CategoryTheory.ThinSkeleton C) => (x ⟶ x_1) → (Quotient.map F.obj ⋯ x ⟶ Quotient.map F.obj ⋯ x_1)) X Y (fun (x y : C) (k : ⟦x⟧ ⟶ ⟦y⟧) => CategoryTheory.homOfLE ⋯) a

@[simp]

theorem CategoryTheory.ThinSkeleton.map_obj {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] (F : CategoryTheory.Functor C D) : ∀ (a : Quotient (CategoryTheory.isIsomorphicSetoid C)), (CategoryTheory.ThinSkeleton.map F).obj a = Quotient.map F.obj ⋯ a

def CategoryTheory.ThinSkeleton.map {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] (F : CategoryTheory.Functor C D) : CategoryTheory.Functor (CategoryTheory.ThinSkeleton C) (CategoryTheory.ThinSkeleton D)

A functor C ⥤ D computably lowers to a functor ThinSkeleton C ⥤ ThinSkeleton D.

Equations

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

theorem CategoryTheory.ThinSkeleton.comp_toThinSkeleton {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] (F : CategoryTheory.Functor C D) : CategoryTheory.Functor.comp F (CategoryTheory.toThinSkeleton D) = CategoryTheory.Functor.comp (CategoryTheory.toThinSkeleton C) (CategoryTheory.ThinSkeleton.map F)

def CategoryTheory.ThinSkeleton.mapNatTrans {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] {F₁ : CategoryTheory.Functor C D} {F₂ : CategoryTheory.Functor C D} (k : F₁ ⟶ F₂) : CategoryTheory.ThinSkeleton.map F₁ ⟶ CategoryTheory.ThinSkeleton.map F₂

Given a natural transformation F₁ ⟶ F₂, induce a natural transformation map F₁ ⟶ map F₂.

Equations

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

def CategoryTheory.ThinSkeleton.map₂ObjMap {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] {E : Type u₃} [CategoryTheory.Category.{v₃, u₃} E] (F : CategoryTheory.Functor C (CategoryTheory.Functor D E)) : CategoryTheory.ThinSkeleton C → CategoryTheory.ThinSkeleton D → CategoryTheory.ThinSkeleton E

Given a bifunctor, we descend to a function on objects of ThinSkeleton

Equations

• CategoryTheory.ThinSkeleton.map₂ObjMap F x y = Quotient.map₂ (fun (X : C) (Y : D) => (F.obj X).obj Y) ⋯ x y

def CategoryTheory.ThinSkeleton.map₂Functor {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] {E : Type u₃} [CategoryTheory.Category.{v₃, u₃} E] (F : CategoryTheory.Functor C (CategoryTheory.Functor D E)) : CategoryTheory.ThinSkeleton C → CategoryTheory.Functor (CategoryTheory.ThinSkeleton D) (CategoryTheory.ThinSkeleton E)

For each x : ThinSkeleton C, we promote map₂ObjMap F x to a functor

Equations

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

def CategoryTheory.ThinSkeleton.map₂NatTrans {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] {E : Type u₃} [CategoryTheory.Category.{v₃, u₃} E] (F : CategoryTheory.Functor C (CategoryTheory.Functor D E)) {x₁ : CategoryTheory.ThinSkeleton C} {x₂ : CategoryTheory.ThinSkeleton C} : (x₁ ⟶ x₂) → (CategoryTheory.ThinSkeleton.map₂Functor F x₁ ⟶ CategoryTheory.ThinSkeleton.map₂Functor F x₂)

This provides natural transformations map₂Functor F x₁ ⟶ map₂Functor F x₂ given x₁ ⟶ x₂

Equations

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

@[simp]

theorem CategoryTheory.ThinSkeleton.map₂_obj {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] {E : Type u₃} [CategoryTheory.Category.{v₃, u₃} E] (F : CategoryTheory.Functor C (CategoryTheory.Functor D E)) : ∀ (a : CategoryTheory.ThinSkeleton C), (CategoryTheory.ThinSkeleton.map₂ F).obj a = CategoryTheory.ThinSkeleton.map₂Functor F a

@[simp]

theorem CategoryTheory.ThinSkeleton.map₂_map {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] {E : Type u₃} [CategoryTheory.Category.{v₃, u₃} E] (F : CategoryTheory.Functor C (CategoryTheory.Functor D E)) : ∀ {X Y : CategoryTheory.ThinSkeleton C} (a : X ⟶ Y), (CategoryTheory.ThinSkeleton.map₂ F).map a = CategoryTheory.ThinSkeleton.map₂NatTrans F a

def CategoryTheory.ThinSkeleton.map₂ {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] {E : Type u₃} [CategoryTheory.Category.{v₃, u₃} E] (F : CategoryTheory.Functor C (CategoryTheory.Functor D E)) : CategoryTheory.Functor (CategoryTheory.ThinSkeleton C) (CategoryTheory.Functor (CategoryTheory.ThinSkeleton D) (CategoryTheory.ThinSkeleton E))

A functor C ⥤ D ⥤ E computably lowers to a functor ThinSkeleton C ⥤ ThinSkeleton D ⥤ ThinSkeleton E

Equations

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

instance CategoryTheory.ThinSkeleton.toThinSkeleton_faithful (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : CategoryTheory.Faithful (CategoryTheory.toThinSkeleton C)

Equations

• ⋯ = ⋯

@[simp]

theorem CategoryTheory.ThinSkeleton.fromThinSkeleton_obj (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : ∀ (a : Quotient (CategoryTheory.isIsomorphicSetoid C)), (CategoryTheory.ThinSkeleton.fromThinSkeleton C).obj a = Quotient.out a

@[simp]

theorem CategoryTheory.ThinSkeleton.fromThinSkeleton_map (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] {x : CategoryTheory.ThinSkeleton C} {y : CategoryTheory.ThinSkeleton C} : ∀ (a : x ⟶ y), (CategoryTheory.ThinSkeleton.fromThinSkeleton C).map a = Quotient.recOnSubsingleton₂ (motive := fun (x x_1 : CategoryTheory.ThinSkeleton C) => (x ⟶ x_1) → (Quotient.out x ⟶ Quotient.out x_1)) x y (fun (X Y : C) (f : ⟦X⟧ ⟶ ⟦Y⟧) => CategoryTheory.CategoryStruct.comp (Nonempty.some ⋯).hom (CategoryTheory.CategoryStruct.comp (Nonempty.some ⋯) (Nonempty.some ⋯).inv)) a

noncomputable def CategoryTheory.ThinSkeleton.fromThinSkeleton (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : CategoryTheory.Functor (CategoryTheory.ThinSkeleton C) C

Use Quotient.out to create a functor out of the thin skeleton.

Equations

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

noncomputable instance CategoryTheory.ThinSkeleton.fromThinSkeletonEquivalence (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : CategoryTheory.IsEquivalence (CategoryTheory.ThinSkeleton.fromThinSkeleton C)

Equations

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

noncomputable def CategoryTheory.ThinSkeleton.equivalence (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : CategoryTheory.ThinSkeleton C ≌ C

The equivalence between the thin skeleton and the category itself.

Equations

• CategoryTheory.ThinSkeleton.equivalence C = CategoryTheory.Functor.asEquivalence (CategoryTheory.ThinSkeleton.fromThinSkeleton C)

theorem CategoryTheory.ThinSkeleton.equiv_of_both_ways {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] {X : C} {Y : C} (f : X ⟶ Y) (g : Y ⟶ X) : X ≈ Y

instance CategoryTheory.ThinSkeleton.thinSkeletonPartialOrder {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : PartialOrder (CategoryTheory.ThinSkeleton C)

Equations

• CategoryTheory.ThinSkeleton.thinSkeletonPartialOrder = let __src := CategoryTheory.ThinSkeleton.preorder C; PartialOrder.mk ⋯

theorem CategoryTheory.ThinSkeleton.skeletal {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : CategoryTheory.Skeletal (CategoryTheory.ThinSkeleton C)

theorem CategoryTheory.ThinSkeleton.map_comp_eq {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] {E : Type u₃} [CategoryTheory.Category.{v₃, u₃} E] [Quiver.IsThin C] (F : CategoryTheory.Functor E D) (G : CategoryTheory.Functor D C) : CategoryTheory.ThinSkeleton.map (CategoryTheory.Functor.comp F G) = CategoryTheory.Functor.comp (CategoryTheory.ThinSkeleton.map F) (CategoryTheory.ThinSkeleton.map G)

theorem CategoryTheory.ThinSkeleton.map_id_eq {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : CategoryTheory.ThinSkeleton.map (CategoryTheory.Functor.id C) = CategoryTheory.Functor.id (CategoryTheory.ThinSkeleton C)

theorem CategoryTheory.ThinSkeleton.map_iso_eq {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] [Quiver.IsThin C] {F₁ : CategoryTheory.Functor D C} {F₂ : CategoryTheory.Functor D C} (h : F₁ ≅ F₂) : CategoryTheory.ThinSkeleton.map F₁ = CategoryTheory.ThinSkeleton.map F₂

noncomputable def CategoryTheory.ThinSkeleton.thinSkeletonIsSkeleton {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : CategoryTheory.IsSkeletonOf C (CategoryTheory.ThinSkeleton C) (CategoryTheory.ThinSkeleton.fromThinSkeleton C)

fromThinSkeleton C exhibits the thin skeleton as a skeleton.

Equations

• CategoryTheory.ThinSkeleton.thinSkeletonIsSkeleton = { skel := ⋯, eqv := CategoryTheory.ThinSkeleton.fromThinSkeletonEquivalence C }

noncomputable instance CategoryTheory.ThinSkeleton.isSkeletonOfInhabited {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [Quiver.IsThin C] : Inhabited (CategoryTheory.IsSkeletonOf C (CategoryTheory.ThinSkeleton C) (CategoryTheory.ThinSkeleton.fromThinSkeleton C))

Equations

• CategoryTheory.ThinSkeleton.isSkeletonOfInhabited = { default := CategoryTheory.ThinSkeleton.thinSkeletonIsSkeleton }

def CategoryTheory.ThinSkeleton.lowerAdjunction {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {D : Type u₂} [CategoryTheory.Category.{v₂, u₂} D] (R : CategoryTheory.Functor D C) (L : CategoryTheory.Functor C D) (h : L ⊣ R) : CategoryTheory.ThinSkeleton.map L ⊣ CategoryTheory.ThinSkeleton.map R

An adjunction between thin categories gives an adjunction between their thin skeletons.

Equations

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

noncomputable def CategoryTheory.Equivalence.thinSkeletonOrderIso {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] {α : Type u_1} [PartialOrder α] [Quiver.IsThin C] (e : C ≌ α) : CategoryTheory.ThinSkeleton C ≃o α

When e : C ≌ α is a categorical equivalence from a thin category C to some partial order α, the ThinSkeleton C is order isomorphic to α.

Equations

• CategoryTheory.Equivalence.thinSkeletonOrderIso e = CategoryTheory.Equivalence.toOrderIso ((CategoryTheory.ThinSkeleton.equivalence C).trans e)