Monoids as discrete monoidal categories #
The discrete category on a monoid is a monoidal category. Multiplicative morphisms induce monoidal functors.
@[implicit_reducible]
@[implicit_reducible]
@[simp]
theorem
CategoryTheory.Discrete.addMonoidal_tensorObj_as
(M : Type u)
[AddMonoid M]
(X Y : Discrete M)
:
(MonoidalCategoryStruct.tensorObj X Y).as = X.as + Y.as
@[simp]
theorem
CategoryTheory.Discrete.monoidal_tensorObj_as
(M : Type u)
[Monoid M]
(X Y : Discrete M)
:
(MonoidalCategoryStruct.tensorObj X Y).as = X.as * Y.as
@[simp]
theorem
CategoryTheory.Discrete.addMonoidal_rightUnitor
(M : Type u)
[AddMonoid M]
(X : Discrete M)
:
@[simp]
@[simp]
theorem
CategoryTheory.Discrete.addMonoidal_associator
(M : Type u)
[AddMonoid M]
(x✝ x✝¹ x✝² : Discrete M)
:
MonoidalCategoryStruct.associator x✝ x✝¹ x✝² = Discrete.eqToIso ⋯
@[simp]
@[simp]
theorem
CategoryTheory.Discrete.monoidal_associator
(M : Type u)
[Monoid M]
(x✝ x✝¹ x✝² : Discrete M)
:
MonoidalCategoryStruct.associator x✝ x✝¹ x✝² = Discrete.eqToIso ⋯
@[simp]
theorem
CategoryTheory.Discrete.addMonoidal_leftUnitor
(M : Type u)
[AddMonoid M]
(X : Discrete M)
:
@[simp]
theorem
CategoryTheory.Discrete.monoidal_tensorUnit_as
(M : Type u)
[Monoid M]
:
(MonoidalCategoryStruct.tensorUnit (Discrete M)).as = 1
@[simp]
theorem
CategoryTheory.Discrete.addMonoidal_tensorUnit_as
(M : Type u)
[AddMonoid M]
:
(MonoidalCategoryStruct.tensorUnit (Discrete M)).as = 0
@[simp]
@[simp]
theorem
CategoryTheory.Discrete.monoidalFunctor_μ
{M : Type u}
[Monoid M]
{N : Type u'}
[Monoid N]
(F : M →* N)
(m₁ m₂ : Discrete M)
:
Functor.LaxMonoidal.μ (monoidalFunctor F) m₁ m₂ = Discrete.eqToHom ⋯
theorem
CategoryTheory.Discrete.addMonoidalFunctor_μ
{M : Type u}
[AddMonoid M]
{N : Type u'}
[AddMonoid N]
(F : M →+ N)
(m₁ m₂ : Discrete M)
:
Functor.LaxMonoidal.μ (addMonoidalFunctor F) m₁ m₂ = Discrete.eqToHom ⋯
theorem
CategoryTheory.Discrete.monoidalFunctor_δ
{M : Type u}
[Monoid M]
{N : Type u'}
[Monoid N]
(F : M →* N)
(m₁ m₂ : Discrete M)
:
Functor.OplaxMonoidal.δ (monoidalFunctor F) m₁ m₂ = Discrete.eqToHom ⋯
theorem
CategoryTheory.Discrete.addMonoidalFunctor_δ
{M : Type u}
[AddMonoid M]
{N : Type u'}
[AddMonoid N]
(F : M →+ N)
(m₁ m₂ : Discrete M)
:
Functor.OplaxMonoidal.δ (addMonoidalFunctor F) m₁ m₂ = Discrete.eqToHom ⋯