|
LoadPackage( "RingsForHomalg" );
R := HomalgFieldOfRationalsInDefaultCAS( ) * "a,b,c,d,e,f,g,h";
indets := Indeterminates( R );
LoadPackage( "Modules" );
I := LeftSubmodule( "abc,bcd,cde,adf,cgh,b3f,a3g", R );
m := AMaximalIdealContaining( I );
Assert( 0, m = LeftSubmodule( indets, R ) );
J := RightSubmodule( EntriesOfHomalgMatrix( MatrixOfSubobjectGenerators( I ) ) );
n := AMaximalIdealContaining( J );
Assert( 0, n = RightSubmodule( indets, R ) );
[ Dauer der Verarbeitung: 0.14 Sekunden
(vorverarbeitet)
]
|