Quelle  semieunit.tst   Sprache: unbekannt

#############################################################################
##
#W  extreme/semieunit.tst
#Y  Copyright (C) 2016                                 Christopher Russell
##
##  Licensing information can be found in the README file of this package.
##
#############################################################################
##

#@local BruteForceIsoCheck, InfoLevelInfoSmallsemi, e_unitary_semigroups
#@local inv_semigroups, triples, x, y
gap> START_TEST("Semigroups package: extreme/semieunit.tst");
gap> LoadPackage("semigroups", false);;
gap> LoadPackage("smallsemi", false);;

# Set info levels and user preferences
gap> SEMIGROUPS.StartTest();
gap> SEMIGROUPS.TestRec.InfoLevelInfoSmallsemi := InfoLevel(InfoSmallsemi);;
gap> SetInfoLevel(InfoSmallsemi, 0);;

#  McAlisterTriple
gap> inv_semigroups := AllSmallSemigroups([2 .. 7], IsInverseSemigroup, true);;
gap> e_unitary_semigroups := Filtered(inv_semigroups, IsEUnitaryInverseSemigroup);;
gap> triples := ShallowCopy(e_unitary_semigroups);;
gap> Apply(triples, a -> AsSemigroup(IsPartialPermSemigroup, a));;
gap> Apply(triples, a -> IsomorphismSemigroup(IsMcAlisterTripleSemigroup, a));;
gap> BruteForceIsoCheck := function(iso)
>   local x, y;
>   if not IsInjective(iso) or not IsSurjective(iso) then
>     return false;
>   fi;
>   for x in Generators(Source(iso)) do
>     for y in Generators(Source(iso)) do
>       if x ^ iso * y ^ iso <> (x * y) ^ iso then
>         return false;
>       fi;
>     od;
>   od;
>   return true;
> end;;
gap> Apply(triples, BruteForceIsoCheck);;
gap> false in triples;
false

#
gap> SetInfoLevel(InfoSmallsemi, SEMIGROUPS.TestRec.InfoLevelInfoSmallsemi);
gap> SEMIGROUPS.StopTest();
gap> STOP_TEST("Semigroups package: extreme/semieunit.tst");