CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutSign UpSign In

Real-time collaboration for Jupyter Notebooks, Linux Terminals, LaTeX, VS Code, R IDE, and more,
all in one place.

| Download

GAP 4.8.9 installation with standard packages -- copy to your CoCalc project to get it

Views: 418346
Tweet
Share
Share
#####################################################################
#####################################################################
DeclareCategory("IsHapPureCubicalLink",IsObject);

DeclareRepresentation(  "IsHapPureCubicalLinkRep",
                        IsComponentObjectRep and
                        IsHapPureCubicalComplex,
                        ["binaryArray",
                         "name",
                         "properties"]);

HapPureCubicalLinkFamily:=NewFamily( "HapPureCubicalLinkFamily",
                                 IsHapPureCubicalLink,
                                 IsHapPureCubicalLink);

HapPureCubicalLink:=NewType(HapPureCubicalLinkFamily,IsHapPureCubicalLinkRep);


InstallMethod( ViewObj,
"for HapPureCubicalLink",
[IsHapPureCubicalLink],
function(T)
if EvaluateProperty(T,"knot") then
Print(T!.name,"\n");
else
Print("Pure cubical link.\n");
fi;
end);

InstallMethod( PrintObj,
"for HapPureCubicalLink",
[IsHapPureCubicalLink],
function(T)
if EvaluateProperty(T,"knot") then
Print(T!.name,"\n");
else
Print("Pure cubical link.\n");
fi;
end);
#####################################################################
#####################################################################