Documentation

Mathlib.CategoryTheory.Monoidal.Category

Monoidal categories #

A monoidal category is a category equipped with a tensor product, unitors, and an associator. In the definition, we provide the tensor product as a pair of functions

and allow use of the overloaded notation for both. The unitors and associator are provided componentwise.

The tensor product can be expressed as a functor via tensor : C × C ⥤ C. The unitors and associator are gathered together as natural isomorphisms in leftUnitor_nat_iso, rightUnitor_nat_iso and associator_nat_iso.

Some consequences of the definition are proved in other files after proving the coherence theorem, e.g. (λ_ (𝟙_ C)).hom = (ρ_ (𝟙_ C)).hom in CategoryTheory.Monoidal.CoherenceLemmas.

Implementation notes #

In the definition of monoidal categories, we also provide the whiskering operators:

These are products of an object and a morphism (the terminology "whiskering" is borrowed from 2-category theory). The tensor product of morphisms tensorHom can be defined in terms of the whiskerings. There are two possible such definitions, which are related by the exchange property of the whiskerings. These two definitions are accessed by tensorHom_def and tensorHom_def'. By default, tensorHom is defined so that tensorHom_def holds definitionally.

If you want to provide tensorHom and define whiskerLeft and whiskerRight in terms of it, you can use the alternative constructor CategoryTheory.MonoidalCategory.ofTensorHom.

The whiskerings are useful when considering simp-normal forms of morphisms in monoidal categories.

Simp-normal form for morphisms #

Rewriting involving associators and unitors could be very complicated. We try to ease this complexity by putting carefully chosen simp lemmas that rewrite any morphisms into the simp-normal form defined below. Rewriting into simp-normal form is especially useful in preprocessing performed by the coherence tactic.

The simp-normal form of morphisms is defined to be an expression that has the minimal number of parentheses. More precisely,

  1. it is a composition of morphisms like f₁ ≫ f₂ ≫ f₃ ≫ f₄ ≫ f₅ such that each fᵢ is either a structural morphism (morphisms made up only of identities, associators, unitors) or a non-structural morphism, and
  2. each non-structural morphism in the composition is of the form X₁ ◁ X₂ ◁ X₃ ◁ f ▷ X₄ ▷ X₅, where each Xᵢ is an object that is not the identity or a tensor and f is a non-structural morphism that is not the identity or a composite.

Note that X₁ ◁ X₂ ◁ X₃ ◁ f ▷ X₄ ▷ X₅ is actually X₁ ◁ (X₂ ◁ (X₃ ◁ ((f ▷ X₄) ▷ X₅))).

Currently, the simp lemmas don't rewrite 𝟙 X ⊗ₘ f and f ⊗ₘ 𝟙 Y into X ◁ f and f ▷ Y, respectively, since it requires a huge refactoring. We hope to add these simp lemmas soon.

References #

Auxiliary structure to carry only the data fields of (and provide notation for) MonoidalCategory.

  • tensorObj : CCC

    curried tensor product of objects

  • whiskerLeft (X : C) {Y₁ Y₂ : C} (f : Y₁ Y₂) : tensorObj X Y₁ tensorObj X Y₂

    left whiskering for morphisms

  • whiskerRight {X₁ X₂ : C} (f : X₁ X₂) (Y : C) : tensorObj X₁ Y tensorObj X₂ Y

    right whiskering for morphisms

  • tensorHom {X₁ Y₁ X₂ Y₂ : C} (f : X₁ Y₁) (g : X₂ Y₂) : tensorObj X₁ X₂ tensorObj Y₁ Y₂

    Tensor product of identity maps is the identity: 𝟙 X₁ ⊗ₘ 𝟙 X₂ = 𝟙 (X₁ ⊗ X₂)

  • tensorUnit : C

    The tensor unity in the monoidal structure 𝟙_ C

  • associator (X Y Z : C) : tensorObj (tensorObj X Y) Z tensorObj X (tensorObj Y Z)

    The associator isomorphism (X ⊗ Y) ⊗ Z ≃ X ⊗ (Y ⊗ Z)

  • leftUnitor (X : C) : tensorObj (tensorUnit C) X X

    The left unitor: 𝟙_ C ⊗ X ≃ X

  • rightUnitor (X : C) : tensorObj X (tensorUnit C) X

    The right unitor: X ⊗ 𝟙_ C ≃ X

Instances
    def CategoryTheory.MonoidalCategory.«term_⊗_» :
    Lean.TrailingParserDescr

    Notation for tensorObj, the tensor product of objects in a monoidal category

    Instances For
      def CategoryTheory.MonoidalCategory.«term_◁_» :
      Lean.TrailingParserDescr

      Notation for the whiskerLeft operator of monoidal categories

      Instances For
        def CategoryTheory.MonoidalCategory.«term_▷_» :
        Lean.TrailingParserDescr

        Notation for the whiskerRight operator of monoidal categories

        Instances For

          Notation for tensorHom, the tensor product of morphisms in a monoidal category

          Instances For

            Notation for tensorUnit, the two-sided identity of

            Instances For

              Notation for the monoidal associator: (X ⊗ Y) ⊗ Z ≃ X ⊗ (Y ⊗ Z)

              Instances For

                Notation for the leftUnitor: 𝟙_C ⊗ X ≃ X

                Instances For

                  Notation for the rightUnitor: X ⊗ 𝟙_C ≃ X

                  Instances For

                    The property that the pentagon relation is satisfied by four objects in a category equipped with a MonoidalCategoryStruct.

                    Instances For

                      In a monoidal category, we can take the tensor product of objects, X ⊗ Y and of morphisms f ⊗ₘ g. Tensor product does not need to be strictly associative on objects, but there is a specified associator, α_ X Y Z : (X ⊗ Y) ⊗ Z ≅ X ⊗ (Y ⊗ Z). There is a tensor unit 𝟙_ C, with specified left and right unitor isomorphisms λ_ X : 𝟙_ C ⊗ X ≅ X and ρ_ X : X ⊗ 𝟙_ C ≅ X. These associators and unitors satisfy the pentagon and triangle equations.

                      Instances
                        theorem CategoryTheory.MonoidalCategory.tensorHom_def_assoc {C : Type u} {𝒞 : Category.{v, u} C} [self : MonoidalCategory C] {X₁ Y₁ X₂ Y₂ : C} (f : X₁ Y₁) (g : X₂ Y₂) {Z : C} (h : tensorObj Y₁ Y₂ Z) :
                        @[simp]
                        theorem CategoryTheory.MonoidalCategory.tensorHom_comp_tensorHom_assoc {C : Type u} {𝒞 : Category.{v, u} C} [self : MonoidalCategory C] {X₁ Y₁ Z₁ X₂ Y₂ Z₂ : C} (f₁ : X₁ Y₁) (f₂ : X₂ Y₂) (g₁ : Y₁ Z₁) (g₂ : Y₂ Z₂) {Z : C} (h : tensorObj Z₁ Z₂ Z) :

                        Composition of tensor products is tensor product of compositions: (f₁ ⊗ₘ f₂) ≫ (g₁ ⊗ₘ g₂) = (f₁ ≫ g₁) ⊗ₘ (f₂ ≫ g₂)

                        theorem CategoryTheory.MonoidalCategory.associator_naturality_assoc {C : Type u} {𝒞 : Category.{v, u} C} [self : MonoidalCategory C] {X₁ X₂ X₃ Y₁ Y₂ Y₃ : C} (f₁ : X₁ Y₁) (f₂ : X₂ Y₂) (f₃ : X₃ Y₃) {Z : C} (h : tensorObj Y₁ (tensorObj Y₂ Y₃) Z) :
                        CategoryStruct.comp (tensorHom (tensorHom f₁ f₂) f₃) (CategoryStruct.comp (associator Y₁ Y₂ Y₃).hom h) = CategoryStruct.comp (associator X₁ X₂ X₃).hom (CategoryStruct.comp (tensorHom f₁ (tensorHom f₂ f₃)) h)

                        Naturality of the associator isomorphism: (f₁ ⊗ₘ f₂) ⊗ₘ f₃ ≃ f₁ ⊗ₘ (f₂ ⊗ₘ f₃)

                        Naturality of the left unitor, commutativity of 𝟙_ C ⊗ X ⟶ 𝟙_ C ⊗ Y ⟶ Y and 𝟙_ C ⊗ X ⟶ X ⟶ Y

                        Naturality of the right unitor: commutativity of X ⊗ 𝟙_ C ⟶ Y ⊗ 𝟙_ C ⟶ Y and X ⊗ 𝟙_ C ⟶ X ⟶ Y

                        @[simp]

                        The pentagon identity relating the isomorphism between X ⊗ (Y ⊗ (Z ⊗ W)) and ((X ⊗ Y) ⊗ Z) ⊗ W

                        @[simp]

                        The identity relating the isomorphisms between X ⊗ (𝟙_ C ⊗ Y), (X ⊗ 𝟙_ C) ⊗ Y and X ⊗ Y

                        @[reducible, inline]
                        abbrev CategoryTheory.MonoidalCategory.ofTensorHom {C : Type u} [Category.{v, u} C] [MonoidalCategoryStruct C] (id_tensorHom_id : ∀ (X₁ X₂ : C), tensorHom (CategoryStruct.id X₁) (CategoryStruct.id X₂) = CategoryStruct.id (tensorObj X₁ X₂) := by cat_disch) (id_tensorHom : ∀ (X : C) {Y₁ Y₂ : C} (f : Y₁ Y₂), tensorHom (CategoryStruct.id X) f = whiskerLeft X f := by cat_disch) (tensorHom_id : ∀ {X₁ X₂ : C} (f : X₁ X₂) (Y : C), tensorHom f (CategoryStruct.id Y) = whiskerRight f Y := by cat_disch) (tensorHom_comp_tensorHom : ∀ {X₁ Y₁ Z₁ X₂ Y₂ Z₂ : C} (f₁ : X₁ Y₁) (f₂ : X₂ Y₂) (g₁ : Y₁ Z₁) (g₂ : Y₂ Z₂), CategoryStruct.comp (tensorHom f₁ f₂) (tensorHom g₁ g₂) = tensorHom (CategoryStruct.comp f₁ g₁) (CategoryStruct.comp f₂ g₂) := by cat_disch) (associator_naturality : ∀ {X₁ X₂ X₃ Y₁ Y₂ Y₃ : C} (f₁ : X₁ Y₁) (f₂ : X₂ Y₂) (f₃ : X₃ Y₃), CategoryStruct.comp (tensorHom (tensorHom f₁ f₂) f₃) (associator Y₁ Y₂ Y₃).hom = CategoryStruct.comp (associator X₁ X₂ X₃).hom (tensorHom f₁ (tensorHom f₂ f₃)) := by cat_disch) (leftUnitor_naturality : ∀ {X Y : C} (f : X Y), CategoryStruct.comp (tensorHom (CategoryStruct.id (tensorUnit C)) f) (leftUnitor Y).hom = CategoryStruct.comp (leftUnitor X).hom f := by cat_disch) (rightUnitor_naturality : ∀ {X Y : C} (f : X Y), CategoryStruct.comp (tensorHom f (CategoryStruct.id (tensorUnit C))) (rightUnitor Y).hom = CategoryStruct.comp (rightUnitor X).hom f := by cat_disch) (pentagon : ∀ (W X Y Z : C), CategoryStruct.comp (tensorHom (associator W X Y).hom (CategoryStruct.id Z)) (CategoryStruct.comp (associator W (tensorObj X Y) Z).hom (tensorHom (CategoryStruct.id W) (associator X Y Z).hom)) = CategoryStruct.comp (associator (tensorObj W X) Y Z).hom (associator W X (tensorObj Y Z)).hom := by cat_disch) (triangle : ∀ (X Y : C), CategoryStruct.comp (associator X (tensorUnit C) Y).hom (tensorHom (CategoryStruct.id X) (leftUnitor Y).hom) = tensorHom (rightUnitor X).hom (CategoryStruct.id Y) := by cat_disch) :

                        A constructor for monoidal categories that requires tensorHom instead of whiskerLeft and whiskerRight.

                        Instances For
                          @[simp]
                          theorem CategoryTheory.MonoidalCategory.id_tensorHom {C : Type u} [Category.{v, u} C] [MonoidalCategory C] (X : C) {Y₁ Y₂ : C} (f : Y₁ Y₂) :
                          @[simp]
                          theorem CategoryTheory.MonoidalCategory.tensorHom_id {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X₁ X₂ : C} (f : X₁ X₂) (Y : C) :
                          theorem CategoryTheory.MonoidalCategory.tensorHom_def' {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X₁ Y₁ X₂ Y₂ : C} (f : X₁ Y₁) (g : X₂ Y₂) :
                          theorem CategoryTheory.MonoidalCategory.tensorHom_def'_assoc {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X₁ Y₁ X₂ Y₂ : C} (f : X₁ Y₁) (g : X₂ Y₂) {Z : C} (h : tensorObj Y₁ Y₂ Z) :

                          The left whiskering of an isomorphism is an isomorphism.

                          Instances For

                            The right whiskering of an isomorphism is an isomorphism.

                            Instances For
                              def CategoryTheory.MonoidalCategory.tensorIso {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X Y X' Y' : C} (f : X Y) (g : X' Y') :

                              The tensor product of two isomorphisms is an isomorphism.

                              Instances For
                                @[simp]
                                theorem CategoryTheory.MonoidalCategory.tensorIso_hom {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X Y X' Y' : C} (f : X Y) (g : X' Y') :
                                @[simp]
                                theorem CategoryTheory.MonoidalCategory.tensorIso_inv {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X Y X' Y' : C} (f : X Y) (g : X' Y') :

                                Notation for tensorIso, the tensor product of isomorphisms

                                Instances For

                                  The left whiskering of an isomorphism is an isomorphism.

                                  Instances For

                                    The right whiskering of an isomorphism is an isomorphism.

                                    Instances For
                                      @[simp]
                                      theorem CategoryTheory.MonoidalCategory.inv_tensor {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {W X Y Z : C} (f : W X) [IsIso f] (g : Y Z) [IsIso g] :
                                      inv (tensorHom f g) = tensorHom (inv f) (inv g)
                                      theorem CategoryTheory.MonoidalCategory.whiskerLeft_dite {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {P : Prop} [Decidable P] (X : C) {Y Z : C} (f : P → (Y Z)) (f' : ¬P → (Y Z)) :
                                      whiskerLeft X (if h : P then f h else f' h) = if h : P then whiskerLeft X (f h) else whiskerLeft X (f' h)
                                      theorem CategoryTheory.MonoidalCategory.dite_whiskerRight {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {P : Prop} [Decidable P] {X Y : C} (f : P → (X Y)) (f' : ¬P → (X Y)) (Z : C) :
                                      whiskerRight (if h : P then f h else f' h) Z = if h : P then whiskerRight (f h) Z else whiskerRight (f' h) Z
                                      theorem CategoryTheory.MonoidalCategory.tensor_dite {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {P : Prop} [Decidable P] {W X Y Z : C} (f : W X) (g : P → (Y Z)) (g' : ¬P → (Y Z)) :
                                      tensorHom f (if h : P then g h else g' h) = if h : P then tensorHom f (g h) else tensorHom f (g' h)
                                      theorem CategoryTheory.MonoidalCategory.dite_tensor {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {P : Prop} [Decidable P] {W X Y Z : C} (f : W X) (g : P → (Y Z)) (g' : ¬P → (Y Z)) :
                                      tensorHom (if h : P then g h else g' h) f = if h : P then tensorHom (g h) f else tensorHom (g' h) f

                                      The lemmas in the next section are true by coherence, but we prove them directly as they are used in proving the coherence theorem.

                                      @[simp]

                                      We state it as a simp lemma, which is regarded as an involved version of id_whiskerRight X Y : 𝟙 X ▷ Y = 𝟙 (X ⊗ Y).

                                      We state it as a simp lemma, which is regarded as an involved version of id_whiskerRight X Y : 𝟙 X ▷ Y = 𝟙 (X ⊗ Y).

                                      theorem CategoryTheory.MonoidalCategory.associator_inv_naturality_assoc {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X Y Z X' Y' Z' : C} (f : X X') (g : Y Y') (h : Z Z') {Z✝ : C} (h✝ : tensorObj (tensorObj X' Y') Z' Z✝) :
                                      @[simp]
                                      theorem CategoryTheory.MonoidalCategory.associator_conjugation {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X X' Y Y' Z Z' : C} (f : X X') (g : Y Y') (h : Z Z') :
                                      theorem CategoryTheory.MonoidalCategory.associator_conjugation_assoc {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X X' Y Y' Z Z' : C} (f : X X') (g : Y Y') (h : Z Z') {Z✝ : C} (h✝ : tensorObj (tensorObj X' Y') Z' Z✝) :
                                      theorem CategoryTheory.MonoidalCategory.associator_inv_conjugation_assoc {C : Type u} [Category.{v, u} C] [MonoidalCategory C] {X X' Y Y' Z Z' : C} (f : X X') (g : Y Y') (h : Z Z') {Z✝ : C} (h✝ : tensorObj X' (tensorObj Y' Z') Z✝) :

                                      The tensor product expressed as a functor.

                                      Instances For
                                        @[simp]
                                        theorem CategoryTheory.MonoidalCategory.tensor_map (C : Type u) [Category.{v, u} C] [MonoidalCategory C] {X Y : C × C} (f : X Y) :
                                        (tensor C).map f = tensorHom f.1 f.2

                                        The left-associated triple tensor product as a functor.

                                        Instances For
                                          @[simp]
                                          theorem CategoryTheory.MonoidalCategory.leftAssocTensor_map (C : Type u) [Category.{v, u} C] [MonoidalCategory C] {X Y : C × C × C} (f : X Y) :
                                          (leftAssocTensor C).map f = tensorHom (tensorHom f.1 f.2.1) f.2.2

                                          The right-associated triple tensor product as a functor.

                                          Instances For
                                            @[simp]
                                            theorem CategoryTheory.MonoidalCategory.rightAssocTensor_map (C : Type u) [Category.{v, u} C] [MonoidalCategory C] {X Y : C × C × C} (f : X Y) :
                                            (rightAssocTensor C).map f = tensorHom f.1 (tensorHom f.2.1 f.2.2)

                                            The tensor product bifunctor C ⥤ C ⥤ C of a monoidal category.

                                            Instances For
                                              @[simp]
                                              theorem CategoryTheory.MonoidalCategory.curriedTensor_map_app (C : Type u) [Category.{v, u} C] [MonoidalCategory C] {X✝ Y✝ : C} (f : X✝ Y✝) (Y : C) :
                                              @[simp]
                                              theorem CategoryTheory.MonoidalCategory.curriedTensor_obj_map (C : Type u) [Category.{v, u} C] [MonoidalCategory C] (X : C) {X✝ Y✝ : C} (g : X✝ Y✝) :
                                              @[reducible, inline]

                                              Tensoring on the left with a fixed object, as a functor.

                                              Instances For
                                                @[reducible, inline]

                                                Tensoring on the right with a fixed object, as a functor.

                                                Instances For
                                                  @[reducible, inline]

                                                  The functor fun X ↦ 𝟙_ C ⊗ X.

                                                  Instances For
                                                    @[reducible, inline]

                                                    The functor fun X ↦ X ⊗ 𝟙_ C.

                                                    Instances For

                                                      The left unitor as a natural isomorphism.

                                                      Instances For

                                                        The right unitor as a natural isomorphism.

                                                        Instances For

                                                          The associator as a natural isomorphism between trifunctors C ⥤ C ⥤ C ⥤ C.

                                                          Instances For

                                                            Tensoring on the left with X ⊗ Y is naturally isomorphic to tensoring on the left with Y, and then again with X.

                                                            Instances For
                                                              @[reducible, inline]

                                                              Tensoring on the left, as a functor from C into endofunctors of C.

                                                              TODO: show this is an op-monoidal functor.

                                                              Instances For
                                                                @[reducible, inline]

                                                                Tensoring on the right, as a functor from C into endofunctors of C.

                                                                We later show this is a monoidal functor.

                                                                Instances For

                                                                  Tensoring on the right with X ⊗ Y is naturally isomorphic to tensoring on the right with X, and then again with Y.

                                                                  Instances For
                                                                    @[implicit_reducible]
                                                                    @[simp]
                                                                    theorem CategoryTheory.MonoidalCategory.prodMonoidal_tensorHom (C₁ : Type u₁) [Category.{v₁, u₁} C₁] [MonoidalCategory C₁] (C₂ : Type u₂) [Category.{v₂, u₂} C₂] [MonoidalCategory C₂] {X₁✝ Y₁✝ X₂✝ Y₂✝ : C₁ × C₂} (f : X₁✝ Y₁✝) (g : X₂✝ Y₂✝) :
                                                                    tensorHom f g = Prod.mkHom (tensorHom f.1 g.1) (tensorHom f.2 g.2)
                                                                    @[simp]
                                                                    theorem CategoryTheory.MonoidalCategory.prodMonoidal_whiskerLeft (C₁ : Type u₁) [Category.{v₁, u₁} C₁] [MonoidalCategory C₁] (C₂ : Type u₂) [Category.{v₂, u₂} C₂] [MonoidalCategory C₂] (X x✝ x✝¹ : C₁ × C₂) (f : x✝ x✝¹) :
                                                                    whiskerLeft X f = Prod.mkHom (whiskerLeft X.1 f.1) (whiskerLeft X.2 f.2)
                                                                    @[simp]
                                                                    theorem CategoryTheory.MonoidalCategory.prodMonoidal_associator (C₁ : Type u₁) [Category.{v₁, u₁} C₁] [MonoidalCategory C₁] (C₂ : Type u₂) [Category.{v₂, u₂} C₂] [MonoidalCategory C₂] (X Y Z : C₁ × C₂) :
                                                                    associator X Y Z = (associator X.1 Y.1 Z.1).prod (associator X.2 Y.2 Z.2)
                                                                    @[simp]
                                                                    theorem CategoryTheory.MonoidalCategory.prodMonoidal_leftUnitor (C₁ : Type u₁) [Category.{v₁, u₁} C₁] [MonoidalCategory C₁] (C₂ : Type u₂) [Category.{v₂, u₂} C₂] [MonoidalCategory C₂] (x✝ : C₁ × C₂) :
                                                                    leftUnitor x✝ = (leftUnitor x✝.1).prod (leftUnitor x✝.2)
                                                                    @[simp]
                                                                    theorem CategoryTheory.MonoidalCategory.prodMonoidal_tensorObj (C₁ : Type u₁) [Category.{v₁, u₁} C₁] [MonoidalCategory C₁] (C₂ : Type u₂) [Category.{v₂, u₂} C₂] [MonoidalCategory C₂] (X Y : C₁ × C₂) :
                                                                    tensorObj X Y = (tensorObj X.1 Y.1, tensorObj X.2 Y.2)
                                                                    @[simp]
                                                                    theorem CategoryTheory.MonoidalCategory.prodMonoidal_rightUnitor (C₁ : Type u₁) [Category.{v₁, u₁} C₁] [MonoidalCategory C₁] (C₂ : Type u₂) [Category.{v₂, u₂} C₂] [MonoidalCategory C₂] (x✝ : C₁ × C₂) :
                                                                    rightUnitor x✝ = (rightUnitor x✝.1).prod (rightUnitor x✝.2)
                                                                    @[simp]
                                                                    theorem CategoryTheory.MonoidalCategory.prodMonoidal_whiskerRight (C₁ : Type u₁) [Category.{v₁, u₁} C₁] [MonoidalCategory C₁] (C₂ : Type u₂) [Category.{v₂, u₂} C₂] [MonoidalCategory C₂] {X₁✝ X₂✝ : C₁ × C₂} (f : X₁✝ X₂✝) (X : C₁ × C₂) :
                                                                    @[reducible, inline]
                                                                    abbrev CategoryTheory.MonoidalCategory.fullSubcategory {C : Type u} [Category.{v, u} C] [MonoidalCategory C] (P : ObjectProperty C) (tensorUnit : P (tensorUnit C)) (tensorObj : ∀ (X Y : C), P XP YP (tensorObj X Y)) :

                                                                    The restriction of a monoidal category along an object property that's closed under the monoidal structure.

                                                                    Instances For