|
# SPDX-License-Identifier: GPL-2.0-or-later
# Modules: A homalg based package for the Abelian category of finitely presented modules over computable rings
#
# Implementations
#
## Implementation stuff for homalg complexes.
####################################
#
# methods for operations:
#
####################################
##
InstallMethod( HomalgRing,
"for homalg complexes",
[ IsHomalgComplex ],
function( C )
return HomalgRing( LowestDegreeObject( C ) );
end );
##
InstallMethod( Add,
"for homalg complexes",
[ IsComplexOfFinitelyPresentedObjectsRep, IsHomalgMatrix ],
function( C, mat )
local T;
T := HighestDegreeObject( C );
Add( C, HomalgMap( mat, "free", T ) );
end );
##
InstallMethod( Add,
"for homalg complexes",
[ IsCocomplexOfFinitelyPresentedObjectsRep, IsHomalgMatrix ],
function( C, mat )
local S;
S := HighestDegreeObject( C );
Add( C, HomalgMap( mat, S, "free" ) );
end );
##
InstallMethod( BasisOfModule,
"for homalg complexes",
[ IsHomalgComplex ],
function( C )
List( ObjectsOfComplex( C ), BasisOfModule );
return C;
end );
##
InstallMethod( OnLessGenerators,
"for homalg complexes",
[ IsHomalgComplex ],
function( C )
List( ObjectsOfComplex( C ), OnLessGenerators );
return C;
end );
[ Dauer der Verarbeitung: 0.27 Sekunden
(vorverarbeitet)
]
|