diff options
Diffstat (limited to 'src/algebra/multsqfr.spad.pamphlet')
-rw-r--r-- | src/algebra/multsqfr.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/multsqfr.spad.pamphlet b/src/algebra/multsqfr.spad.pamphlet index 4d71bd73..292b6735 100644 --- a/src/algebra/multsqfr.spad.pamphlet +++ b/src/algebra/multsqfr.spad.pamphlet @@ -292,7 +292,7 @@ MultivariateSquareFree (E,OV,R,P) : C == T where lcd:P:=leadingCoefficient ud leadlist:List(P):=empty() - if ^ground?(leadingCoefficient ud) then + if not ground?(leadingCoefficient ud) then leadpol:=true ud:=lcoef*ud lcg0:R:=leadingCoefficient g0 |