1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
DeclareCategoryKernel("IsPartialPerm", IsMultiplicativeElementWithInverse
and IsMultiplicativeElementWithZero and IsAssociativeElement, IS_PPERM);
DeclareCategoryCollections( "IsPartialPerm" );
DeclareCategoryCollections( "IsPartialPermCollection" );
BIND_GLOBAL("PartialPermFamily", NewFamily("PartialPermFamily",
IsPartialPerm, CanEasilySortElements, CanEasilySortElements));
DeclareRepresentation( "IsPPerm2Rep", IsInternalRep, [] );
DeclareRepresentation( "IsPPerm4Rep", IsInternalRep, [] );
BIND_GLOBAL("TYPE_PPERM2", NewType(PartialPermFamily,
IsPartialPerm and IsPPerm2Rep));
BIND_GLOBAL("TYPE_PPERM4", NewType(PartialPermFamily,
IsPartialPerm and IsPPerm4Rep));
|
