"Source: Text/Group/GrpAb.text";
"Line: 2309";
"Date: Mon Aug 27 15:22:06 2018";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Group/GrpAb.text, line: 2309
// Example: H75E14 ()
print "Example: H75E14";
ei := GetEchoInput();
SetEchoInput(true);
G := AbelianGroup([2, 3]);   
H := AbelianGroup([4, 6]);
A, t := Hom(G, H);
#A;
assert $1 eq 12;
A;
h := t(A.1);
h;
h(G.1);
h(G.2);
assert IsId($1);
I := [<h(G.1), h(G.2)> where h is t(x): x in A];
I;
#I;
assert $1 eq 12;
#Set(I);
assert $1 eq 12;
SetEchoInput(ei);
