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

fix the right trivial constructor too

This commit is contained in:
Glen Whitney 2017-10-29 20:54:12 -04:00
parent cb77a7c7df
commit 560564a010
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gap/constructions.gi
View File

@ -88,18 +88,19 @@ end);
InstallGlobalFunction(TrivialRightQuandle,
function(n)
local I;
local trivs, I;
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);
SetIsBuiltFromMultiplicationTable(I, true);
SetAsSSortedList(I, trivs);
SetMultiplicationTable(I,
List([1..n], i -> ListWithIdenticalEntries(n, i)));
RightTrivs@[n] := I;
fi;
return RightTrivs@[n];
end);
InstallMethod(IsTrivial, "for a left quasigroup",
[IsLeftQuasigroup],
Q -> ForAll(LeftPerms(Q), p -> p = ())