M7R0
I,quandlesizef*6#%(QuandleG6#%"TG6#%)rememberG6"C$>8$-%(convertG6$9$%'matrixG@%
0-&%'linalgG6#%'rowdimG6#F--&F76#%'coldimGF:-%&prinfG6&Q*%s~%s~%s|+F*%&ERRORG%(
quandleG%+dimensionsGOF5F*F*F*F*,
I)Alexmultf*6&%"aG%"bG%&polymG%"mG6%%"iG%"jG%"fGF*F*>8&-%$modG6$-%$RemG6%,&*&%"
tG"""F1FgnFgn*&,&FgnFgnFfn!""Fgn9%FgnFgn9&Ffn9'F*F*F*F*,
I%rresf*6$FLFM6+%"LGFO%$numG%$degG%"CG%%prepGFP%$CofG%%tempGF*F*C,>8+7">F-F\p@%
-%%typeG6$F1%(polynomG>8'-%'degreeG6$F1FfnC$-%'printfG6$Q$%s|+F*FCOF*>F[p-&%0Po
lynomialToolsG6#%0CoefficientListGFgp>8,Fgn?(F*FgnFgnF*/&F[p6#Feq""!>Feq,&FeqFg
nFgnFgn@%3/-%$gcdG6$FhqF[oFgn/-Far6$&F[p6#-%%nopsG6#F[pF[oFgn%)continueGC$-Fjp6
$Q#%sF*Q:ERROR,~Not~a~finite~ring.F*OF*>FS)F[oFdp?(8%FjqFgn,&FSFgnFjnFgn%%trueG
C%>8(-F/6%Fes%%baseGF[o@%/FjsF\p>8)FjqC$>FatFjq?(8*-Fir6#FjsFjnFgnFgs>Fat,&FatF
gn*&&Fjs6#FetFgn)Ffn,&FetFgnFjnFgnFgnFgn>F-7$-%#opGF:FatOF-F*F*F*F*,
I(findeltf*6$Fbo%$polG6#FOF*F*C$?(F-FgnFgn-Fir6#F1Fgs@$/&F1F:F[oOF--Fjp6$F_sQ;E
RROR~in~Procedure~findeltF*F*F*F*F*,
I,AlexQuandlef*6$FL%%primG6(FOFPFhoF%FQ%(rrespolGF(F*C&>Fat-F^o6$F1F[o>Fdp-%&ar
rayG6$;Fjq,&-Fir6#FatFgnFjnFgnFbw?(F-FgnFgnFdwFgs?(FesFgnFgnFdwFgsC%>Fjs-FG6&&F
atF:&Fat6#FesF1F[o>FS-Fdu6$FatFjs>&Fdp6$,&F-FgnFjnFgn,&FesFgnFjnFgnFfsFdpF*F*F*
F*