fix the right trivial constructor too
This commit is contained in:
parent
cb77a7c7df
commit
560564a010
|
@ -88,11 +88,12 @@ end);
|
||||||
|
|
||||||
InstallGlobalFunction(TrivialRightQuandle,
|
InstallGlobalFunction(TrivialRightQuandle,
|
||||||
function(n)
|
function(n)
|
||||||
local I;
|
local trivs, I;
|
||||||
if not IsBound(RightTrivs@[n]) then
|
if not IsBound(RightTrivs@[n]) then
|
||||||
I := AsRightQuandle(List([1..n], RInertum@));
|
trivs := List([1..n], RInertum@);
|
||||||
|
I := RightQuandleNC(CollectionsFamily(RInertumFamily@), trivs);
|
||||||
SetIsTrivial(I, true);
|
SetIsTrivial(I, true);
|
||||||
SetIsBuiltFromMultiplicationTable(I, true);
|
SetAsSSortedList(I, trivs);
|
||||||
SetMultiplicationTable(I,
|
SetMultiplicationTable(I,
|
||||||
List([1..n], i -> ListWithIdenticalEntries(n, i)));
|
List([1..n], i -> ListWithIdenticalEntries(n, i)));
|
||||||
RightTrivs@[n] := I;
|
RightTrivs@[n] := I;
|
||||||
|
|
Loading…
Reference in New Issue