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

The NC versions require family

Browse Source
This commit is contained in:
Glen Whitney 2017-10-26 21:32:15 -04:00
parent c4cb6e80f8
commit 6e25748df5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gap/structure.gi
View File

@ -604,19 +604,19 @@ InstallOtherMethod(DirectProductOp, "for a list and non-quasigroup magma",
elif "IsLeftQuasigroup" in jof then elif "IsLeftQuasigroup" in jof then
if "IsLSelfDistributive" in jof then if "IsLSelfDistributive" in jof then
if "IsElementwiseIdempotent" in jof then if "IsElementwiseIdempotent" in jof then
return LeftQuandleNC(gens); return LeftQuandleNC(FamilyObj(gens), gens);
fi; fi;
return LeftRackNC(gens); return LeftRackNC(FamilyObj(gens), gens);
fi; fi;
return LeftQuasigroupNC(gens); return LeftQuasigroupNC(FamilyObj(gens), gens);
elif "IsRightQuasigroup" in jof then elif "IsRightQuasigroup" in jof then
if "IsRSelfDistributive" in jof then if "IsRSelfDistributive" in jof then
if "IsElementwiseIdempotent" in jof then if "IsElementwiseIdempotent" in jof then
return RightQuandleNC(gens); return RightQuandleNC(FamilyObj(gens), gens);
fi; fi;
return RightRackNC(gens); return RightRackNC(FamilyObj(gens), gens);
fi; fi;
return RightQuasigroupNC(gens); return RightQuasigroupNC(FamilyObj(gens), gens);
fi; fi;
# Not seeing any additional structure; did I miss anything? # Not seeing any additional structure; did I miss anything?
return MagmaByGenerators(gens); return MagmaByGenerators(gens);