This commit is contained in:
Glen Whitney 2017-10-23 03:35:15 +02:00
parent 85f37ad774
commit 0231c423a3

View File

@ -465,7 +465,7 @@ end);
OppHelper@ := function(Q, whichgens, cnstr) OppHelper@ := function(Q, whichgens, cnstr)
local fam, elts, opp; local fam, elts, opp;
elts := List(whichgen(Q), q -> OppositeObj(q)); elts := List(whichgens(Q), q -> OppositeObj(q));
fam := CollectionsFamily(OppositeFamily(ElementsFamily(FamilyObj(Q)))); fam := CollectionsFamily(OppositeFamily(ElementsFamily(FamilyObj(Q))));
opp := cnstr(fam, elts); opp := cnstr(fam, elts);
if HasIsFinite(Q) then SetIsFinite(opp, IsFinite(Q)); fi; if HasIsFinite(Q) then SetIsFinite(opp, IsFinite(Q)); fi;