fixes to elt names
This commit is contained in:
parent
ee4774412c
commit
29e8955051
|
@ -40,13 +40,13 @@ end);
|
||||||
## And now create them from multiplication tables
|
## And now create them from multiplication tables
|
||||||
|
|
||||||
# First a helper function
|
# First a helper function
|
||||||
MagmaNumber@ := 1;
|
MagmaNumber@ := 0;
|
||||||
MagmaLetters@ := "ABCDEFGHJKMNPSTUV";
|
MagmaLetters@ := "ABCDEFGHJKMNPSTUV";
|
||||||
MagmaBase@ := Length(MagmaLetters@);
|
MagmaBase@ := Length(MagmaLetters@);
|
||||||
NextMagmaString@ := function(filts)
|
NextMagmaString@ := function(filts)
|
||||||
local str, n;
|
local str, n;
|
||||||
str := "l";
|
str := "l";
|
||||||
if filts <> (filts and IsLeftQuotientElement) then
|
if not "IsLeftQuotientElement" in NamesFilter(filts) then
|
||||||
str := "r";
|
str := "r";
|
||||||
fi;
|
fi;
|
||||||
n := MagmaNumber@;
|
n := MagmaNumber@;
|
||||||
|
|
Loading…
Reference in New Issue