glen/RAQ
1
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Set trivial right away

Browse Source
This commit is contained in:
Glen Whitney 2017-10-29 20:03:16 -04:00
parent 39371b7e0a
commit 05b4189c97
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gap/constructions.gi
View File

@ -76,8 +76,8 @@ InstallGlobalFunction(TrivialLeftQuandle,
if not IsBound(LeftTrivs@[n]) then if not IsBound(LeftTrivs@[n]) then
trivs := List([1..n], LInertum@); trivs := List([1..n], LInertum@);
I := LeftQuandleNC(CollectionsFamily(LInertumFamily@), trivs); I := LeftQuandleNC(CollectionsFamily(LInertumFamily@), trivs);
SetAsSSortedList(I, trivs);
SetIsTrivial(I, true); SetIsTrivial(I, true);
SetAsSSortedList(I, trivs);
SetIsBuiltFromMultiplicationTable(I, true); SetIsBuiltFromMultiplicationTable(I, true);
SetMultiplicationTable(I, ListWithIdenticalEntries(n, [1..n])); SetMultiplicationTable(I, ListWithIdenticalEntries(n, [1..n]));
LeftTrivs@[n] := I; LeftTrivs@[n] := I;