darn :=
This commit is contained in:
parent
4523bcb831
commit
c875b56426
|
@ -20,12 +20,12 @@ InstallGlobalFunction(LeftQuasigroup, function(arg)
|
||||||
fi;
|
fi;
|
||||||
# Extract the family
|
# Extract the family
|
||||||
if IsFamily(arg[1]) then
|
if IsFamily(arg[1]) then
|
||||||
fam = arg[1];
|
fam := arg[1];
|
||||||
Remove(arg, 1);
|
Remove(arg, 1);
|
||||||
arg = Flat(arg);
|
arg := Flat(arg);
|
||||||
else
|
else
|
||||||
arg = Flat(arg);
|
arg := Flat(arg);
|
||||||
fam = FamilyObj(arg[1]);
|
fam := FamilyObj(arg[1]);
|
||||||
fi;
|
fi;
|
||||||
return CloneOfTypeByGenerators(IsLeftQuasigroup, fam, arg,
|
return CloneOfTypeByGenerators(IsLeftQuasigroup, fam, arg,
|
||||||
GeneratorsOfLeftQuasigroup);
|
GeneratorsOfLeftQuasigroup);
|
||||||
|
@ -38,12 +38,12 @@ InstallGlobalFunction(LeftRack, function(arg)
|
||||||
fi;
|
fi;
|
||||||
# Extract the family
|
# Extract the family
|
||||||
if IsFamily(arg[1]) then
|
if IsFamily(arg[1]) then
|
||||||
fam = arg[1];
|
fam := arg[1];
|
||||||
Remove(arg, 1);
|
Remove(arg, 1);
|
||||||
arg = Flat(arg);
|
arg := Flat(arg);
|
||||||
else
|
else
|
||||||
arg = Flat(arg);
|
arg := Flat(arg);
|
||||||
fam = FamilyObj(arg[1]);
|
fam := FamilyObj(arg[1]);
|
||||||
fi;
|
fi;
|
||||||
return CloneOfTypeByGenerators(IsLeftRack, fam, arg,
|
return CloneOfTypeByGenerators(IsLeftRack, fam, arg,
|
||||||
GeneratorsOfLeftQuasigroup);
|
GeneratorsOfLeftQuasigroup);
|
||||||
|
@ -56,12 +56,12 @@ InstallGlobalFunction(RightQuasigroup, function(arg)
|
||||||
fi;
|
fi;
|
||||||
# Extract the family
|
# Extract the family
|
||||||
if IsFamily(arg[1]) then
|
if IsFamily(arg[1]) then
|
||||||
fam = arg[1];
|
fam := arg[1];
|
||||||
Remove(arg, 1);
|
Remove(arg, 1);
|
||||||
arg = Flat(arg);
|
arg := Flat(arg);
|
||||||
else
|
else
|
||||||
arg = Flat(arg);
|
arg := Flat(arg);
|
||||||
fam = FamilyObj(arg[1]);
|
fam := FamilyObj(arg[1]);
|
||||||
fi;
|
fi;
|
||||||
return CloneOfTypeByGenerators(IsRightQuasigroup, fam, arg,
|
return CloneOfTypeByGenerators(IsRightQuasigroup, fam, arg,
|
||||||
GeneratorsOfRightQuasigroup);
|
GeneratorsOfRightQuasigroup);
|
||||||
|
@ -74,12 +74,12 @@ InstallGlobalFunction(RightRack, function(arg)
|
||||||
fi;
|
fi;
|
||||||
# Extract the family
|
# Extract the family
|
||||||
if IsFamily(arg[1]) then
|
if IsFamily(arg[1]) then
|
||||||
fam = arg[1];
|
fam := arg[1];
|
||||||
Remove(arg, 1);
|
Remove(arg, 1);
|
||||||
arg = Flat(arg);
|
arg := Flat(arg);
|
||||||
else
|
else
|
||||||
arg = Flat(arg);
|
arg := Flat(arg);
|
||||||
fam = FamilyObj(arg[1]);
|
fam := FamilyObj(arg[1]);
|
||||||
fi;
|
fi;
|
||||||
return CloneOfTypeByGenerators(IsRightRack, fam, arg,
|
return CloneOfTypeByGenerators(IsRightRack, fam, arg,
|
||||||
GeneratorsOfRightQuasigroup);
|
GeneratorsOfRightQuasigroup);
|
||||||
|
|
Loading…
Reference in New Issue