@@ -276,6 +276,77 @@ julia> d = MatrixCategoryObject( vec, 1 )
276276``` jldoctest AutoDocTests
277277julia> using MatricesForHomalg; using CAP; using MonoidalCategories; using LinearAlgebraForCAP
278278
279+ julia> pre_compose = MonoidalPreComposeMorphism( a, b, c )
280+ <A morphism in Category of matrices over Q>
281+
282+ julia> post_compose = MonoidalPostComposeMorphism( a, b, c )
283+ <A morphism in Category of matrices over Q>
284+
285+ julia> pre_cocompose = MonoidalPreCoComposeMorphism( c, b, a )
286+ <A morphism in Category of matrices over Q>
287+
288+ julia> post_cocompose = MonoidalPostCoComposeMorphism( c, b, a )
289+ <A morphism in Category of matrices over Q>
290+
291+ julia> UnderlyingMatrix( pre_compose ) == TransposedMatrix( UnderlyingMatrix( pre_cocompose ) )
292+ true
293+
294+ julia> UnderlyingMatrix( post_compose ) == TransposedMatrix( UnderlyingMatrix( post_cocompose ) )
295+ true
296+
297+ julia> tp_hom_comp = TensorProductInternalHomCompatibilityMorphism( [ a, b, c, d ] )
298+ <A morphism in Category of matrices over Q>
299+
300+ julia> cohom_tp_comp = InternalCoHomTensorProductCompatibilityMorphism( [ b, d, a, c ] )
301+ <A morphism in Category of matrices over Q>
302+
303+ julia> UnderlyingMatrix( tp_hom_comp ) == TransposedMatrix( UnderlyingMatrix( cohom_tp_comp ) )
304+ true
305+
306+ julia> lambda = LambdaIntroduction( alpha )
307+ <A morphism in Category of matrices over Q>
308+
309+ julia> lambda_elim = LambdaElimination( a, b, lambda )
310+ <A morphism in Category of matrices over Q>
311+
312+ julia> alpha == lambda_elim
313+ true
314+
315+ julia> alpha_op = VectorSpaceMorphism( b, TransposedMatrix( UnderlyingMatrix( alpha ) ), a )
316+ <A morphism in Category of matrices over Q>
317+
318+ julia> colambda = CoLambdaIntroduction( alpha_op )
319+ <A morphism in Category of matrices over Q>
320+
321+ julia> colambda_elim = CoLambdaElimination( b, a, colambda )
322+ <A morphism in Category of matrices over Q>
323+
324+ julia> alpha_op == colambda_elim
325+ true
326+
327+ julia> UnderlyingMatrix( lambda ) == TransposedMatrix( UnderlyingMatrix( colambda ) )
328+ true
329+
330+ julia> delta = PreCompose( colambda, lambda)
331+ <A morphism in Category of matrices over Q>
332+
333+ julia> Display( EntriesOfHomalgMatrixAsListList( UnderlyingMatrix( TraceMap( delta ) ) ) )
334+ [ [ 9 ] ]
335+
336+ julia> Display( EntriesOfHomalgMatrixAsListList( UnderlyingMatrix( CoTraceMap( delta ) ) ) )
337+ [ [ 9 ] ]
338+
339+ julia> TraceMap( delta ) == CoTraceMap( delta )
340+ true
341+
342+ julia> RankMorphism( a ) == CoRankMorphism( a )
343+ true
344+
345+ ```
346+
347+ ``` jldoctest AutoDocTests
348+ julia> using MatricesForHomalg; using CAP; using MonoidalCategories; using LinearAlgebraForCAP
349+
279350julia> true
280351true
281352
0 commit comments