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

darn :=

Browse Source
This commit is contained in:
Glen Whitney 2017-10-18 13:25:13 +02:00
parent 4523bcb831
commit c875b56426
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gap/structure.gi
View File

@ -20,12 +20,12 @@ InstallGlobalFunction(LeftQuasigroup, function(arg)
fi;
# Extract the family
if IsFamily(arg[1]) then
fam = arg[1];
fam := arg[1];
Remove(arg, 1);
arg = Flat(arg);
arg := Flat(arg);
else
arg = Flat(arg);
fam = FamilyObj(arg[1]);
arg := Flat(arg);
fam := FamilyObj(arg[1]);
fi;
return CloneOfTypeByGenerators(IsLeftQuasigroup, fam, arg,
GeneratorsOfLeftQuasigroup);
@ -38,12 +38,12 @@ InstallGlobalFunction(LeftRack, function(arg)
fi;
# Extract the family
if IsFamily(arg[1]) then
fam = arg[1];
fam := arg[1];
Remove(arg, 1);
arg = Flat(arg);
arg := Flat(arg);
else
arg = Flat(arg);
fam = FamilyObj(arg[1]);
arg := Flat(arg);
fam := FamilyObj(arg[1]);
fi;
return CloneOfTypeByGenerators(IsLeftRack, fam, arg,
GeneratorsOfLeftQuasigroup);
@ -56,12 +56,12 @@ InstallGlobalFunction(RightQuasigroup, function(arg)
fi;
# Extract the family
if IsFamily(arg[1]) then
fam = arg[1];
fam := arg[1];
Remove(arg, 1);
arg = Flat(arg);
arg := Flat(arg);
else
arg = Flat(arg);
fam = FamilyObj(arg[1]);
arg := Flat(arg);
fam := FamilyObj(arg[1]);
fi;
return CloneOfTypeByGenerators(IsRightQuasigroup, fam, arg,
GeneratorsOfRightQuasigroup);
@ -74,12 +74,12 @@ InstallGlobalFunction(RightRack, function(arg)
fi;
# Extract the family
if IsFamily(arg[1]) then
fam = arg[1];
fam := arg[1];
Remove(arg, 1);
arg = Flat(arg);
arg := Flat(arg);
else
arg = Flat(arg);
fam = FamilyObj(arg[1]);
arg := Flat(arg);
fam := FamilyObj(arg[1]);
fi;
return CloneOfTypeByGenerators(IsRightRack, fam, arg,
GeneratorsOfRightQuasigroup);