The monoidal coherence theorem

In this file, we prove the monoidal coherence theorem, stated in the following form: the free monoidal category over any type C is thin.

We follow a proof described by Ilya Beylin and Peter Dybjer, which has been previously formalized in the proof assistant ALF. The idea is to declare a normal form (with regard to association and adding units) on objects of the free monoidal category and consider the discrete subcategory of objects that are in normal form. A normalization procedure is then just a functor fullNormalize : FreeMonoidalCategory C ⥤ Discrete (NormalMonoidalObject C), where functoriality says that two objects which are related by associators and unitors have the same normal form. Another desirable property of a normalization procedure is that an object is isomorphic (i.e., related via associators and unitors) to its normal form. In the case of the specific normalization procedure we use we not only get these isomorphisms, but also that they assemble into a natural isomorphism 𝟭 (FreeMonoidalCategory C) ≅ fullNormalize ⋙ inclusion. But this means that any two parallel morphisms in the free monoidal category factor through a discrete category in the same way, so they must be equal, and hence the free monoidal category is thin.

References

• Ilya Beylin and Peter Dybjer, Extracting a proof of coherence for monoidal categories from a proof of normalization for monoids

inductive CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject (C : Type u) : Type u

We say an object in the free monoidal category is in normal form if it is of the form (((𝟙_ C) ⊗ X₁) ⊗ X₂) ⊗ ⋯.

• unit: {C : Type u} → CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C
• tensor: {C : Type u} → CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C → C → CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C

instance CategoryTheory.FreeMonoidalCategory.instSubsingletonHomCompDiscreteNormalMonoidalObject {C : Type u} (x y : (CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) : Subsingleton (x ⟶ y)

Equations

• ⋯ = ⋯

def CategoryTheory.FreeMonoidalCategory.inclusionObj {C : Type u} : CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C → CategoryTheory.FreeMonoidalCategory C

Auxiliary definition for inclusion.

Equations

• CategoryTheory.FreeMonoidalCategory.inclusionObj CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject.unit = CategoryTheory.FreeMonoidalCategory.unit
• CategoryTheory.FreeMonoidalCategory.inclusionObj (n.tensor a) = (CategoryTheory.FreeMonoidalCategory.inclusionObj n).tensor (CategoryTheory.FreeMonoidalCategory.of a)

def CategoryTheory.FreeMonoidalCategory.inclusion {C : Type u} : CategoryTheory.Functor ((CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) (CategoryTheory.FreeMonoidalCategory C)

The discrete subcategory of objects in normal form includes into the free monoidal category.

Equations

• CategoryTheory.FreeMonoidalCategory.inclusion = CategoryTheory.Discrete.functor CategoryTheory.FreeMonoidalCategory.inclusionObj

@[simp]

theorem CategoryTheory.FreeMonoidalCategory.inclusion_obj {C : Type u} (X : (CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) : CategoryTheory.FreeMonoidalCategory.inclusion.obj X = CategoryTheory.FreeMonoidalCategory.inclusionObj X.as

@[simp]

theorem CategoryTheory.FreeMonoidalCategory.inclusion_map {C : Type u} {X Y : (CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C} (f : X ⟶ Y) : CategoryTheory.FreeMonoidalCategory.inclusion.map f = CategoryTheory.eqToHom ⋯

def CategoryTheory.FreeMonoidalCategory.normalizeObj {C : Type u} : CategoryTheory.FreeMonoidalCategory C → CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C → CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C

Auxiliary definition for normalize.

Equations

• CategoryTheory.FreeMonoidalCategory.unit.normalizeObj x = x
• (CategoryTheory.FreeMonoidalCategory.of X).normalizeObj x = x.tensor X
• (X.tensor Y).normalizeObj x = Y.normalizeObj (X.normalizeObj x)

@[simp]

theorem CategoryTheory.FreeMonoidalCategory.normalizeObj_unitor {C : Type u} (n : CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C) : (𝟙_ (CategoryTheory.FreeMonoidalCategory C)).normalizeObj n = n

@[simp]

theorem CategoryTheory.FreeMonoidalCategory.normalizeObj_tensor {C : Type u} (X Y : CategoryTheory.FreeMonoidalCategory C) (n : CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C) : (CategoryTheory.MonoidalCategory.tensorObj X Y).normalizeObj n = Y.normalizeObj (X.normalizeObj n)

def CategoryTheory.FreeMonoidalCategory.normalizeObj' {C : Type u} (X : CategoryTheory.FreeMonoidalCategory C) : CategoryTheory.Functor ((CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) ((CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C)

Auxiliary definition for normalize.

Equations

• X.normalizeObj' = CategoryTheory.Discrete.functor fun (n : CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C) => { as := X.normalizeObj n }

def CategoryTheory.FreeMonoidalCategory.normalizeMapAux {C : Type u} {X Y : CategoryTheory.FreeMonoidalCategory C} : X.Hom Y → (X.normalizeObj' ⟶ Y.normalizeObj')

Auxiliary definition for normalize. Here we prove that objects that are related by associators and unitors map to the same normal form.

Equations

• One or more equations did not get rendered due to their size.
• CategoryTheory.FreeMonoidalCategory.normalizeMapAux (CategoryTheory.FreeMonoidalCategory.Hom.id x) = CategoryTheory.CategoryStruct.id x.normalizeObj'

def CategoryTheory.FreeMonoidalCategory.normalize (C : Type u) : CategoryTheory.Functor (CategoryTheory.FreeMonoidalCategory C) (CategoryTheory.Functor ((CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) ((CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C))

Our normalization procedure works by first defining a functor F C ⥤ (N C ⥤ N C) (which turns out to be very easy), and then obtain a functor F C ⥤ N C by plugging in the normal object 𝟙_ C.

Equations

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

def CategoryTheory.FreeMonoidalCategory.normalize' (C : Type u) : CategoryTheory.Functor (CategoryTheory.FreeMonoidalCategory C) (CategoryTheory.Functor ((CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) (CategoryTheory.FreeMonoidalCategory C))

A variant of the normalization functor where we consider the result as an object in the free monoidal category (rather than an object of the discrete subcategory of objects in normal form).

Equations

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

def CategoryTheory.FreeMonoidalCategory.fullNormalize (C : Type u) : CategoryTheory.Functor (CategoryTheory.FreeMonoidalCategory C) ((CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C)

The normalization functor for the free monoidal category over C.

Equations

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

def CategoryTheory.FreeMonoidalCategory.tensorFunc (C : Type u) : CategoryTheory.Functor (CategoryTheory.FreeMonoidalCategory C) (CategoryTheory.Functor ((CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) (CategoryTheory.FreeMonoidalCategory C))

Given an object X of the free monoidal category and an object n in normal form, taking the tensor product n ⊗ X in the free monoidal category is functorial in both X and n.

Equations

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

theorem CategoryTheory.FreeMonoidalCategory.tensorFunc_map_app (C : Type u) {X Y : CategoryTheory.FreeMonoidalCategory C} (f : X ⟶ Y) (n : (CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) : ((CategoryTheory.FreeMonoidalCategory.tensorFunc C).map f).app n = CategoryTheory.MonoidalCategory.whiskerLeft (CategoryTheory.FreeMonoidalCategory.inclusion.obj { as := n.as }) f

theorem CategoryTheory.FreeMonoidalCategory.tensorFunc_obj_map (C : Type u) (Z : CategoryTheory.FreeMonoidalCategory C) {n n' : (CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C} (f : n ⟶ n') : ((CategoryTheory.FreeMonoidalCategory.tensorFunc C).obj Z).map f = CategoryTheory.MonoidalCategory.whiskerRight (CategoryTheory.FreeMonoidalCategory.inclusion.map f) Z

def CategoryTheory.FreeMonoidalCategory.normalizeIsoApp (C : Type u) (X : CategoryTheory.FreeMonoidalCategory C) (n : (CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) : ((CategoryTheory.FreeMonoidalCategory.tensorFunc C).obj X).obj n ≅ ((CategoryTheory.FreeMonoidalCategory.normalize' C).obj X).obj n

Auxiliary definition for normalizeIso. Here we construct the isomorphism between n ⊗ X and normalize X n.

Equations

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

def CategoryTheory.FreeMonoidalCategory.normalizeIsoApp' (C : Type u) (X : CategoryTheory.FreeMonoidalCategory C) (n : CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C) : CategoryTheory.MonoidalCategory.tensorObj (CategoryTheory.FreeMonoidalCategory.inclusionObj n) X ≅ CategoryTheory.FreeMonoidalCategory.inclusionObj (X.normalizeObj n)

Almost non-definitionally equal to normalizeIsoApp, but has a better definitional property in the proof of normalize_naturality.

Equations

• One or more equations did not get rendered due to their size.
• CategoryTheory.FreeMonoidalCategory.normalizeIsoApp' C CategoryTheory.FreeMonoidalCategory.unit x = CategoryTheory.MonoidalCategory.rightUnitor (CategoryTheory.FreeMonoidalCategory.inclusionObj x)

theorem CategoryTheory.FreeMonoidalCategory.normalizeIsoApp_eq (C : Type u) (X : CategoryTheory.FreeMonoidalCategory C) (n : (CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) : CategoryTheory.FreeMonoidalCategory.normalizeIsoApp C X n = CategoryTheory.FreeMonoidalCategory.normalizeIsoApp' C X n.as

@[simp]

theorem CategoryTheory.FreeMonoidalCategory.normalizeIsoApp_tensor (C : Type u) (X Y : CategoryTheory.FreeMonoidalCategory C) (n : (CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) : CategoryTheory.FreeMonoidalCategory.normalizeIsoApp C (CategoryTheory.MonoidalCategory.tensorObj X Y) n = (CategoryTheory.MonoidalCategory.associator (CategoryTheory.FreeMonoidalCategory.inclusion.obj { as := n.as }) X Y).symm ≪≫ CategoryTheory.MonoidalCategory.whiskerRightIso (CategoryTheory.FreeMonoidalCategory.normalizeIsoApp C X n) Y ≪≫ CategoryTheory.FreeMonoidalCategory.normalizeIsoApp C Y { as := X.normalizeObj n.as }

@[simp]

theorem CategoryTheory.FreeMonoidalCategory.normalizeIsoApp_unitor (C : Type u) (n : (CategoryTheory.Discrete ∘ CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject) C) : CategoryTheory.FreeMonoidalCategory.normalizeIsoApp C (𝟙_ (CategoryTheory.FreeMonoidalCategory C)) n = CategoryTheory.MonoidalCategory.rightUnitor (CategoryTheory.FreeMonoidalCategory.inclusion.obj { as := n.as })

def CategoryTheory.FreeMonoidalCategory.normalizeIsoAux (C : Type u) (X : CategoryTheory.FreeMonoidalCategory C) : (CategoryTheory.FreeMonoidalCategory.tensorFunc C).obj X ≅ (CategoryTheory.FreeMonoidalCategory.normalize' C).obj X

Auxiliary definition for normalizeIso.

Equations

• CategoryTheory.FreeMonoidalCategory.normalizeIsoAux C X = CategoryTheory.NatIso.ofComponents (CategoryTheory.FreeMonoidalCategory.normalizeIsoApp C X) ⋯

theorem CategoryTheory.FreeMonoidalCategory.normalizeObj_congr {C : Type u} (n : CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C) {X Y : CategoryTheory.FreeMonoidalCategory C} (f : X ⟶ Y) : X.normalizeObj n = Y.normalizeObj n

theorem CategoryTheory.FreeMonoidalCategory.normalize_naturality {C : Type u} (n : CategoryTheory.FreeMonoidalCategory.NormalMonoidalObject C) {X Y : CategoryTheory.FreeMonoidalCategory C} (f : X ⟶ Y) : CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.whiskerLeft (CategoryTheory.FreeMonoidalCategory.inclusionObj n) f) (CategoryTheory.FreeMonoidalCategory.normalizeIsoApp' C Y n).hom = CategoryTheory.CategoryStruct.comp (CategoryTheory.FreeMonoidalCategory.normalizeIsoApp' C X n).hom (CategoryTheory.FreeMonoidalCategory.inclusion.map (CategoryTheory.eqToHom ⋯))

def CategoryTheory.FreeMonoidalCategory.normalizeIso (C : Type u) : CategoryTheory.FreeMonoidalCategory.tensorFunc C ≅ CategoryTheory.FreeMonoidalCategory.normalize' C

The isomorphism between n ⊗ X and normalize X n is natural (in both X and n, but naturality in n is trivial and was "proved" in normalizeIsoAux). This is the real heart of our proof of the coherence theorem.

Equations

• CategoryTheory.FreeMonoidalCategory.normalizeIso C = CategoryTheory.NatIso.ofComponents (CategoryTheory.FreeMonoidalCategory.normalizeIsoAux C) ⋯

def CategoryTheory.FreeMonoidalCategory.fullNormalizeIso (C : Type u) : CategoryTheory.Functor.id (CategoryTheory.FreeMonoidalCategory C) ≅ (CategoryTheory.FreeMonoidalCategory.fullNormalize C).comp CategoryTheory.FreeMonoidalCategory.inclusion

The isomorphism between an object and its normal form is natural.

Equations

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

instance CategoryTheory.FreeMonoidalCategory.subsingleton_hom {C : Type u} : Quiver.IsThin (CategoryTheory.FreeMonoidalCategory C)

The monoidal coherence theorem.

Equations

• ⋯ = ⋯

def CategoryTheory.FreeMonoidalCategory.inverseAux {C : Type u} {X Y : CategoryTheory.FreeMonoidalCategory C} : X.Hom Y → Y.Hom X

Auxiliary construction for showing that the free monoidal category is a groupoid. Do not use this, use IsIso.inv instead.

Equations

• One or more equations did not get rendered due to their size.
• CategoryTheory.FreeMonoidalCategory.inverseAux (CategoryTheory.FreeMonoidalCategory.Hom.id x) = CategoryTheory.FreeMonoidalCategory.Hom.id x
• CategoryTheory.FreeMonoidalCategory.inverseAux (CategoryTheory.FreeMonoidalCategory.Hom.α_hom X Y Z) = CategoryTheory.FreeMonoidalCategory.Hom.α_inv X Y Z
• CategoryTheory.FreeMonoidalCategory.inverseAux (CategoryTheory.FreeMonoidalCategory.Hom.α_inv X Y Z) = CategoryTheory.FreeMonoidalCategory.Hom.α_hom X Y Z
• CategoryTheory.FreeMonoidalCategory.inverseAux (CategoryTheory.FreeMonoidalCategory.Hom.ρ_hom x) = CategoryTheory.FreeMonoidalCategory.Hom.ρ_inv x
• CategoryTheory.FreeMonoidalCategory.inverseAux (CategoryTheory.FreeMonoidalCategory.Hom.ρ_inv x) = CategoryTheory.FreeMonoidalCategory.Hom.ρ_hom x
• CategoryTheory.FreeMonoidalCategory.inverseAux (CategoryTheory.FreeMonoidalCategory.Hom.l_hom x) = CategoryTheory.FreeMonoidalCategory.Hom.l_inv x
• CategoryTheory.FreeMonoidalCategory.inverseAux (CategoryTheory.FreeMonoidalCategory.Hom.l_inv x) = CategoryTheory.FreeMonoidalCategory.Hom.l_hom x
• CategoryTheory.FreeMonoidalCategory.inverseAux (f.comp g) = (CategoryTheory.FreeMonoidalCategory.inverseAux g).comp (CategoryTheory.FreeMonoidalCategory.inverseAux f)
• CategoryTheory.FreeMonoidalCategory.inverseAux (f.whiskerRight X) = (CategoryTheory.FreeMonoidalCategory.inverseAux f).whiskerRight X
• CategoryTheory.FreeMonoidalCategory.inverseAux (f.tensor g) = (CategoryTheory.FreeMonoidalCategory.inverseAux f).tensor (CategoryTheory.FreeMonoidalCategory.inverseAux g)

instance CategoryTheory.FreeMonoidalCategory.instGroupoid {C : Type u} : CategoryTheory.Groupoid (CategoryTheory.FreeMonoidalCategory C)

Equations

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