aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/twofact.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/twofact.spad.pamphlet')
-rw-r--r--src/algebra/twofact.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/twofact.spad.pamphlet b/src/algebra/twofact.spad.pamphlet
index 68f48bf9..bf9b9368 100644
--- a/src/algebra/twofact.spad.pamphlet
+++ b/src/algebra/twofact.spad.pamphlet
@@ -196,7 +196,7 @@ TwoFactorize(F) : C == T
-- the polynomial is inseparable w.r.t. its main variable
map(differentiate,fac) = 0 =>
p:=characteristic$F
- PthRootPow:=(size$F exquo p)::NonNegativeInteger
+ PthRootPow:=(size()$F exquo p)::NonNegativeInteger
m1:=divideExponents(map(pthRoot(#1,p,PthRootPow),fac),p)
m1 case "failed" => error "consistency error in TwoFactor"
res:=generalTwoFactor m1