WithGiven* for MorphismFromInternalHomToTensorProductWithGivenObjects

homalg-project · Oct 17, 2023 · 25bd48e · 25bd48e
1 parent 578e66f
commit 25bd48e
Showing 1 changed file with 12 additions and 12 deletions.
diff --git a/MonoidalCategories/gap/RigidSymmetricClosedMonoidalCategoriesDerivedMethods.gi b/MonoidalCategories/gap/RigidSymmetricClosedMonoidalCategoriesDerivedMethods.gi
@@ -416,18 +416,18 @@ AddDerivationToCAP( MorphismFromInternalHomToTensorProductWithGivenObjects,
 
     unit := TensorUnit( cat );
 
-    return PostComposeList( cat, [
-             TensorProductOnMorphisms( cat,
-               IsomorphismFromInternalHomIntoTensorUnitToDualObject( cat, a ),
-               IsomorphismFromInternalHomToObject( cat, b ) ),
-
-             TensorProductInternalHomCompatibilityMorphismInverse( cat,
-               [ a, unit, unit, b ] ),
-
-             InternalHomOnMorphisms( cat,
-               RightUnitor( cat, a ),
-               LeftUnitorInverse( cat, b ) ),
-           ] );
+    return PostComposeList( cat,
+                    internal_hom,
+                    [ TensorProductOnMorphisms( cat,
+                        IsomorphismFromInternalHomIntoTensorUnitToDualObject( cat, a ),
+                        IsomorphismFromInternalHomToObject( cat, b ) ),
+                      
+                      TensorProductInternalHomCompatibilityMorphismInverse( cat, [ a, unit, unit, b ] ),
+                      
+                      InternalHomOnMorphisms( cat,
+                        RightUnitor( cat, a ),
+                        LeftUnitorInverse( cat, b ) ) ],
+                    tensor_object );
 
 end : CategoryFilter := IsRigidSymmetricClosedMonoidalCategory );