The co-Cartesian monoidal category structure on commutative R-algebras #
This file provides the co-Cartesian-monoidal category structure on CommAlgCat R constructed
explicitly using the tensor product.
The explicit cocone with tensor products as the fibered coproduct in CommAlgCat.
Instances For
@[simp]
@[simp]
@[simp]
theorem
CommAlgCat.binaryCofan_pt
{R : Type u}
[CommRing R]
(A B : CommAlgCat R)
:
(A.binaryCofan B).pt = of R (TensorProduct R โA โB)
Verify that the pushout cocone is indeed the colimit.
Instances For
The initial object of CommAlgCat R is R as an algebra over itself.
Instances For
@[implicit_reducible]
@[simp]
@[simp]
theorem
CommAlgCat.coe_tensorObj
{R : Type u}
[CommRing R]
(A B : CommAlgCat R)
:
โ(CategoryTheory.MonoidalCategoryStruct.tensorObj A B) = TensorProduct R โA โB
@[simp]
theorem
CommAlgCat.tensorHom_hom
{R : Type u}
[CommRing R]
{A B C D : CommAlgCat R}
(f : A โถ C)
(g : B โถ D)
:
@[simp]
theorem
CommAlgCat.whiskerRight_hom
{R : Type u}
[CommRing R]
{A B : CommAlgCat R}
(C : CommAlgCat R)
(f : A โถ B)
:
Hom.hom (CategoryTheory.MonoidalCategoryStruct.whiskerRight f C) = Algebra.TensorProduct.map (Hom.hom f) (AlgHom.id R โC)
@[simp]
theorem
CommAlgCat.whiskerLeft_hom
{R : Type u}
[CommRing R]
{A B : CommAlgCat R}
(C : CommAlgCat R)
(f : A โถ B)
:
Hom.hom (CategoryTheory.MonoidalCategoryStruct.whiskerLeft C f) = Algebra.TensorProduct.map (AlgHom.id R โC) (Hom.hom f)
@[simp]
theorem
CommAlgCat.associator_hom_hom
{R : Type u}
[CommRing R]
(A B C : CommAlgCat R)
:
Hom.hom (CategoryTheory.MonoidalCategoryStruct.associator A B C).hom = โ(Algebra.TensorProduct.assoc R R R โA โB โC)
@[simp]
theorem
CommAlgCat.associator_inv_hom
{R : Type u}
[CommRing R]
(A B C : CommAlgCat R)
:
Hom.hom (CategoryTheory.MonoidalCategoryStruct.associator A B C).inv = โ(Algebra.TensorProduct.assoc R R R โA โB โC).symm
@[implicit_reducible]
@[simp]
theorem
CommAlgCat.braiding_hom_hom
{R : Type u}
[CommRing R]
(A B : CommAlgCat R)
:
Hom.hom (ฮฒ_ A B).hom = โ(Algebra.TensorProduct.comm R โA โB)
@[simp]
theorem
CommAlgCat.braiding_inv_hom
{R : Type u}
[CommRing R]
(A B : CommAlgCat R)
:
Hom.hom (ฮฒ_ A B).inv = โ(Algebra.TensorProduct.comm R โB โA)
@[implicit_reducible]
@[simp]
@[simp]
@[simp]
@[simp]
theorem
CommAlgCat.lift_unop_hom
{R : Type u}
[CommRing R]
{A B C : (CommAlgCat R)แตแต}
(f : C โถ A)
(g : C โถ B)
:
Hom.hom (CategoryTheory.CartesianMonoidalCategory.lift f g).unop = Algebra.TensorProduct.lift (Hom.hom f.unop) (Hom.hom g.unop) โฏ