Half braidings and the Drinfeld center of a monoidal category

We define Center C to be pairs ⟨X, b⟩, where X : C and b is a half-braiding on X.

We show that Center C is braided monoidal, and provide the monoidal functor Center.forget from Center C back to C.

Future work

Verifying the various axioms here is done by tedious rewriting. Using the slice tactic may make the proofs marginally more readable.

More exciting, however, would be to make possible one of the following options:

1. Integration with homotopy.io / globular to give "picture proofs".
2. The monoidal coherence theorem, so we can ignore associators (after which most of these proofs are trivial; I'm unsure if the monoidal coherence theorem is even usable in dependent type theory).
3. Automating these proofs using rewrite_search or some relative.

structure CategoryTheory.HalfBraiding {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : C) : Type (max u₁ v₁)

• β : (U : C) → CategoryTheory.MonoidalCategory.tensorObj X U ≅ CategoryTheory.MonoidalCategory.tensorObj U X
• monoidal : ∀ (U U' : C), (CategoryTheory.HalfBraiding.β s (CategoryTheory.MonoidalCategory.tensorObj U U')).hom = CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.associator X U U').inv (CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom (CategoryTheory.HalfBraiding.β s U).hom (CategoryTheory.CategoryStruct.id U')) (CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.associator U X U').hom (CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom (CategoryTheory.CategoryStruct.id U) (CategoryTheory.HalfBraiding.β s U').hom) (CategoryTheory.MonoidalCategory.associator U U' X).inv)))
• naturality : ∀ {U U' : C} (f : U ⟶ U'), CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom (CategoryTheory.CategoryStruct.id X) f) (CategoryTheory.HalfBraiding.β s U').hom = CategoryTheory.CategoryStruct.comp (CategoryTheory.HalfBraiding.β s U).hom (CategoryTheory.MonoidalCategory.tensorHom f (CategoryTheory.CategoryStruct.id X))

A half-braiding on X : C is a family of isomorphisms X ⊗ U ≅ U ⊗ X, monoidally natural in U : C.

Thinking of C as a 2-category with a single 0-morphism, these are the same as natural transformations (in the pseudo- sense) of the identity 2-functor on C, which send the unique 0-morphism to X.

theorem CategoryTheory.HalfBraiding.monoidal_assoc {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X : C} (self : CategoryTheory.HalfBraiding X) (U : C) (U' : C) {Z : C} (h : CategoryTheory.MonoidalCategory.tensorObj (CategoryTheory.MonoidalCategory.tensorObj U U') X ⟶ Z) : CategoryTheory.CategoryStruct.comp (CategoryTheory.HalfBraiding.β self (CategoryTheory.MonoidalCategory.tensorObj U U')).hom h = CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.associator X U U').inv (CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom (CategoryTheory.HalfBraiding.β self U).hom (CategoryTheory.CategoryStruct.id U')) (CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.associator U X U').hom (CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom (CategoryTheory.CategoryStruct.id U) (CategoryTheory.HalfBraiding.β self U').hom) (CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.associator U U' X).inv h))))

theorem CategoryTheory.HalfBraiding.naturality_assoc {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X : C} (self : CategoryTheory.HalfBraiding X) {U : C} {U' : C} (f : U ⟶ U') {Z : C} (h : CategoryTheory.MonoidalCategory.tensorObj U' X ⟶ Z) : CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom (CategoryTheory.CategoryStruct.id X) f) (CategoryTheory.CategoryStruct.comp (CategoryTheory.HalfBraiding.β self U').hom h) = CategoryTheory.CategoryStruct.comp (CategoryTheory.HalfBraiding.β self U).hom (CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom f (CategoryTheory.CategoryStruct.id X)) h)

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

The Drinfeld center of a monoidal category C has as objects pairs ⟨X, b⟩, where X : C and b is a half-braiding on X.

theorem CategoryTheory.Center.Hom.ext_iff {C : Type u₁} : ∀ {inst : CategoryTheory.Category.{v₁, u₁} C} {inst_1 : CategoryTheory.MonoidalCategory C} {X Y : CategoryTheory.Center C} (x y : CategoryTheory.Center.Hom X Y), x = y ↔ x.f = y.f

theorem CategoryTheory.Center.Hom.ext {C : Type u₁} : ∀ {inst : CategoryTheory.Category.{v₁, u₁} C} {inst_1 : CategoryTheory.MonoidalCategory C} {X Y : CategoryTheory.Center C} (x y : CategoryTheory.Center.Hom X Y), x.f = y.f → x = y

structure CategoryTheory.Center.Hom {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) : Type v₁

• f : X.fst ⟶ Y.fst
• comm : ∀ (U : C), CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom s.f (CategoryTheory.CategoryStruct.id U)) (CategoryTheory.HalfBraiding.β Y.snd U).hom = CategoryTheory.CategoryStruct.comp (CategoryTheory.HalfBraiding.β X.snd U).hom (CategoryTheory.MonoidalCategory.tensorHom (CategoryTheory.CategoryStruct.id U) s.f)

A morphism in the Drinfeld center of C.

@[simp]

theorem CategoryTheory.Center.Hom.comm_assoc {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X : CategoryTheory.Center C} {Y : CategoryTheory.Center C} (self : CategoryTheory.Center.Hom X Y) (U : C) {Z : C} (h : CategoryTheory.MonoidalCategory.tensorObj U Y.fst ⟶ Z) : CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom self.f (CategoryTheory.CategoryStruct.id U)) (CategoryTheory.CategoryStruct.comp (CategoryTheory.HalfBraiding.β Y.snd U).hom h) = CategoryTheory.CategoryStruct.comp (CategoryTheory.HalfBraiding.β X.snd U).hom (CategoryTheory.CategoryStruct.comp (CategoryTheory.MonoidalCategory.tensorHom (CategoryTheory.CategoryStruct.id U) self.f) h)

instance CategoryTheory.Center.instQuiverCenter {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : Quiver (CategoryTheory.Center C)

theorem CategoryTheory.Center.ext {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X : CategoryTheory.Center C} {Y : CategoryTheory.Center C} (f : X ⟶ Y) (g : X ⟶ Y) (w : f.f = g.f) : f = g

instance CategoryTheory.Center.instCategoryCenter {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : CategoryTheory.Category.{v₁, max u₁ v₁} (CategoryTheory.Center C)

@[simp]

theorem CategoryTheory.Center.id_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) : (CategoryTheory.CategoryStruct.id X).f = CategoryTheory.CategoryStruct.id X.fst

@[simp]

theorem CategoryTheory.Center.comp_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X : CategoryTheory.Center C} {Y : CategoryTheory.Center C} {Z : CategoryTheory.Center C} (f : X ⟶ Y) (g : Y ⟶ Z) : (CategoryTheory.CategoryStruct.comp f g).f = CategoryTheory.CategoryStruct.comp f.f g.f

@[simp]

theorem CategoryTheory.Center.isoMk_hom {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X : CategoryTheory.Center C} {Y : CategoryTheory.Center C} (f : X ⟶ Y) [CategoryTheory.IsIso f.f] : (CategoryTheory.Center.isoMk f).hom = f

@[simp]

theorem CategoryTheory.Center.isoMk_inv_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X : CategoryTheory.Center C} {Y : CategoryTheory.Center C} (f : X ⟶ Y) [CategoryTheory.IsIso f.f] : (CategoryTheory.Center.isoMk f).inv.f = CategoryTheory.inv f.f

def CategoryTheory.Center.isoMk {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X : CategoryTheory.Center C} {Y : CategoryTheory.Center C} (f : X ⟶ Y) [CategoryTheory.IsIso f.f] : X ≅ Y

Construct an isomorphism in the Drinfeld center from a morphism whose underlying morphism is an isomorphism.

instance CategoryTheory.Center.isIso_of_f_isIso {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X : CategoryTheory.Center C} {Y : CategoryTheory.Center C} (f : X ⟶ Y) [CategoryTheory.IsIso f.f] : CategoryTheory.IsIso f

@[simp]

theorem CategoryTheory.Center.tensorObj_snd_β {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) (U : C) : CategoryTheory.HalfBraiding.β (CategoryTheory.Center.tensorObj X Y).snd U = CategoryTheory.MonoidalCategory.associator X.fst Y.fst U ≪≫ (CategoryTheory.Iso.refl X.fst ⊗ CategoryTheory.HalfBraiding.β Y.snd U) ≪≫ (CategoryTheory.MonoidalCategory.associator X.fst U Y.fst).symm ≪≫ (CategoryTheory.HalfBraiding.β X.snd U ⊗ CategoryTheory.Iso.refl Y.fst) ≪≫ CategoryTheory.MonoidalCategory.associator U X.fst Y.fst

@[simp]

theorem CategoryTheory.Center.tensorObj_fst {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) : (CategoryTheory.Center.tensorObj X Y).fst = CategoryTheory.MonoidalCategory.tensorObj X.fst Y.fst

def CategoryTheory.Center.tensorObj {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) : CategoryTheory.Center C

Auxiliary definition for the MonoidalCategory instance on Center C.

@[simp]

theorem CategoryTheory.Center.tensorHom_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X₁ : CategoryTheory.Center C} {Y₁ : CategoryTheory.Center C} {X₂ : CategoryTheory.Center C} {Y₂ : CategoryTheory.Center C} (f : X₁ ⟶ Y₁) (g : X₂ ⟶ Y₂) : (CategoryTheory.Center.tensorHom f g).f = CategoryTheory.MonoidalCategory.tensorHom f.f g.f

def CategoryTheory.Center.tensorHom {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X₁ : CategoryTheory.Center C} {Y₁ : CategoryTheory.Center C} {X₂ : CategoryTheory.Center C} {Y₂ : CategoryTheory.Center C} (f : X₁ ⟶ Y₁) (g : X₂ ⟶ Y₂) : CategoryTheory.Center.tensorObj X₁ X₂ ⟶ CategoryTheory.Center.tensorObj Y₁ Y₂

Auxiliary definition for the MonoidalCategory instance on Center C.

@[simp]

theorem CategoryTheory.Center.tensorUnit_snd_β {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (U : C) : CategoryTheory.HalfBraiding.β CategoryTheory.Center.tensorUnit.snd U = CategoryTheory.MonoidalCategory.leftUnitor U ≪≫ (CategoryTheory.MonoidalCategory.rightUnitor U).symm

@[simp]

theorem CategoryTheory.Center.tensorUnit_fst {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : CategoryTheory.Center.tensorUnit.fst = CategoryTheory.MonoidalCategory.tensorUnit C

def CategoryTheory.Center.tensorUnit {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : CategoryTheory.Center C

Auxiliary definition for the MonoidalCategory instance on Center C.

def CategoryTheory.Center.associator {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) (Z : CategoryTheory.Center C) : CategoryTheory.Center.tensorObj (CategoryTheory.Center.tensorObj X Y) Z ≅ CategoryTheory.Center.tensorObj X (CategoryTheory.Center.tensorObj Y Z)

Auxiliary definition for the MonoidalCategory instance on Center C.

def CategoryTheory.Center.leftUnitor {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) : CategoryTheory.Center.tensorObj CategoryTheory.Center.tensorUnit X ≅ X

Auxiliary definition for the MonoidalCategory instance on Center C.

def CategoryTheory.Center.rightUnitor {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) : CategoryTheory.Center.tensorObj X CategoryTheory.Center.tensorUnit ≅ X

Auxiliary definition for the MonoidalCategory instance on Center C.

instance CategoryTheory.Center.instMonoidalCategoryCenterInstCategoryCenter {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : CategoryTheory.MonoidalCategory (CategoryTheory.Center C)

@[simp]

theorem CategoryTheory.Center.tensor_fst {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) : (CategoryTheory.MonoidalCategory.tensorObj X Y).fst = CategoryTheory.MonoidalCategory.tensorObj X.fst Y.fst

@[simp]

theorem CategoryTheory.Center.tensor_β {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) (U : C) : CategoryTheory.HalfBraiding.β (CategoryTheory.MonoidalCategory.tensorObj X Y).snd U = CategoryTheory.MonoidalCategory.associator X.fst Y.fst U ≪≫ (CategoryTheory.Iso.refl X.fst ⊗ CategoryTheory.HalfBraiding.β Y.snd U) ≪≫ (CategoryTheory.MonoidalCategory.associator X.fst U Y.fst).symm ≪≫ (CategoryTheory.HalfBraiding.β X.snd U ⊗ CategoryTheory.Iso.refl Y.fst) ≪≫ CategoryTheory.MonoidalCategory.associator U X.fst Y.fst

@[simp]

theorem CategoryTheory.Center.tensor_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] {X₁ : CategoryTheory.Center C} {Y₁ : CategoryTheory.Center C} {X₂ : CategoryTheory.Center C} {Y₂ : CategoryTheory.Center C} (f : X₁ ⟶ Y₁) (g : X₂ ⟶ Y₂) : (CategoryTheory.MonoidalCategory.tensorHom f g).f = CategoryTheory.MonoidalCategory.tensorHom f.f g.f

@[simp]

theorem CategoryTheory.Center.tensorUnit_β {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (U : C) : CategoryTheory.HalfBraiding.β (CategoryTheory.MonoidalCategory.tensorUnit (CategoryTheory.Center C)).snd U = CategoryTheory.MonoidalCategory.leftUnitor U ≪≫ (CategoryTheory.MonoidalCategory.rightUnitor U).symm

@[simp]

theorem CategoryTheory.Center.associator_hom_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) (Z : CategoryTheory.Center C) : (CategoryTheory.MonoidalCategory.associator X Y Z).hom.f = (CategoryTheory.MonoidalCategory.associator X.fst Y.fst Z.fst).hom

@[simp]

theorem CategoryTheory.Center.associator_inv_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) (Z : CategoryTheory.Center C) : (CategoryTheory.MonoidalCategory.associator X Y Z).inv.f = (CategoryTheory.MonoidalCategory.associator X.fst Y.fst Z.fst).inv

@[simp]

theorem CategoryTheory.Center.leftUnitor_hom_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) : (CategoryTheory.MonoidalCategory.leftUnitor X).hom.f = (CategoryTheory.MonoidalCategory.leftUnitor X.fst).hom

@[simp]

theorem CategoryTheory.Center.leftUnitor_inv_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) : (CategoryTheory.MonoidalCategory.leftUnitor X).inv.f = (CategoryTheory.MonoidalCategory.leftUnitor X.fst).inv

@[simp]

theorem CategoryTheory.Center.rightUnitor_hom_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) : (CategoryTheory.MonoidalCategory.rightUnitor X).hom.f = (CategoryTheory.MonoidalCategory.rightUnitor X.fst).hom

@[simp]

theorem CategoryTheory.Center.rightUnitor_inv_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) : (CategoryTheory.MonoidalCategory.rightUnitor X).inv.f = (CategoryTheory.MonoidalCategory.rightUnitor X.fst).inv

@[simp]

theorem CategoryTheory.Center.forget_toLaxMonoidalFunctor_ε (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : (CategoryTheory.Center.forget C).toLaxMonoidalFunctor.ε = CategoryTheory.CategoryStruct.id (CategoryTheory.MonoidalCategory.tensorUnit C)

@[simp]

theorem CategoryTheory.Center.forget_toLaxMonoidalFunctor_μ (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) : CategoryTheory.LaxMonoidalFunctor.μ (CategoryTheory.Center.forget C).toLaxMonoidalFunctor X Y = CategoryTheory.CategoryStruct.id (CategoryTheory.MonoidalCategory.tensorObj X.fst Y.fst)

@[simp]

theorem CategoryTheory.Center.forget_toLaxMonoidalFunctor_toFunctor_map (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : ∀ {X Y : CategoryTheory.Center C} (f : X ⟶ Y), (CategoryTheory.Center.forget C).toLaxMonoidalFunctor.toFunctor.map f = f.f

@[simp]

theorem CategoryTheory.Center.forget_toLaxMonoidalFunctor_toFunctor_obj (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) : (CategoryTheory.Center.forget C).toLaxMonoidalFunctor.toFunctor.obj X = X.fst

def CategoryTheory.Center.forget (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : CategoryTheory.MonoidalFunctor (CategoryTheory.Center C) C

The forgetful monoidal functor from the Drinfeld center to the original category.

instance CategoryTheory.Center.instReflectsIsomorphismsCenterInstCategoryCenterToFunctorInstMonoidalCategoryCenterInstCategoryCenterToLaxMonoidalFunctorForget (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : CategoryTheory.ReflectsIsomorphisms (CategoryTheory.Center.forget C).toLaxMonoidalFunctor.toFunctor

@[simp]

theorem CategoryTheory.Center.braiding_hom_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) : (CategoryTheory.Center.braiding X Y).hom.f = (CategoryTheory.HalfBraiding.β X.snd Y.fst).hom

@[simp]

theorem CategoryTheory.Center.braiding_inv_f {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) : (CategoryTheory.Center.braiding X Y).inv.f = (CategoryTheory.HalfBraiding.β X.snd Y.fst).inv

def CategoryTheory.Center.braiding {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] (X : CategoryTheory.Center C) (Y : CategoryTheory.Center C) : CategoryTheory.MonoidalCategory.tensorObj X Y ≅ CategoryTheory.MonoidalCategory.tensorObj Y X

Auxiliary definition for the BraidedCategory instance on Center C.

instance CategoryTheory.Center.braidedCategoryCenter {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] : CategoryTheory.BraidedCategory (CategoryTheory.Center C)

@[simp]

theorem CategoryTheory.Center.ofBraidedObj_fst {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] [CategoryTheory.BraidedCategory C] (X : C) : (CategoryTheory.Center.ofBraidedObj X).fst = X

@[simp]

theorem CategoryTheory.Center.ofBraidedObj_snd_β {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] [CategoryTheory.BraidedCategory C] (X : C) (Y : C) : CategoryTheory.HalfBraiding.β (CategoryTheory.Center.ofBraidedObj X).snd Y = β_ X Y

def CategoryTheory.Center.ofBraidedObj {C : Type u₁} [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] [CategoryTheory.BraidedCategory C] (X : C) : CategoryTheory.Center C

Auxiliary construction for ofBraided.

@[simp]

theorem CategoryTheory.Center.ofBraided_toLaxMonoidalFunctor_μ_f (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] [CategoryTheory.BraidedCategory C] (X : C) (Y : C) : (CategoryTheory.LaxMonoidalFunctor.μ (CategoryTheory.Center.ofBraided C).toLaxMonoidalFunctor X Y).f = CategoryTheory.CategoryStruct.id (CategoryTheory.MonoidalCategory.tensorObj ((CategoryTheory.Functor.mk { obj := CategoryTheory.Center.ofBraidedObj, map := fun {X Y} f => CategoryTheory.Center.Hom.mk f }).obj X) ((CategoryTheory.Functor.mk { obj := CategoryTheory.Center.ofBraidedObj, map := fun {X Y} f => CategoryTheory.Center.Hom.mk f }).obj Y)).fst

@[simp]

theorem CategoryTheory.Center.ofBraided_toLaxMonoidalFunctor_toFunctor_map_f (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] [CategoryTheory.BraidedCategory C] : ∀ {X Y : C} (f : X ⟶ Y), ((CategoryTheory.Center.ofBraided C).toLaxMonoidalFunctor.toFunctor.map f).f = f

@[simp]

theorem CategoryTheory.Center.ofBraided_toLaxMonoidalFunctor_toFunctor_obj (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] [CategoryTheory.BraidedCategory C] (X : C) : (CategoryTheory.Center.ofBraided C).toLaxMonoidalFunctor.toFunctor.obj X = CategoryTheory.Center.ofBraidedObj X

@[simp]

theorem CategoryTheory.Center.ofBraided_toLaxMonoidalFunctor_ε_f (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] [CategoryTheory.BraidedCategory C] : (CategoryTheory.Center.ofBraided C).toLaxMonoidalFunctor.ε.f = CategoryTheory.CategoryStruct.id (CategoryTheory.MonoidalCategory.tensorUnit (CategoryTheory.Center C)).fst

def CategoryTheory.Center.ofBraided (C : Type u₁) [CategoryTheory.Category.{v₁, u₁} C] [CategoryTheory.MonoidalCategory C] [CategoryTheory.BraidedCategory C] : CategoryTheory.MonoidalFunctor C (CategoryTheory.Center C)

The functor lifting a braided category to its center, using the braiding as the half-braiding.