diff options
Diffstat (limited to 'src/algebra/pgcd.spad.pamphlet')
-rw-r--r-- | src/algebra/pgcd.spad.pamphlet | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/algebra/pgcd.spad.pamphlet b/src/algebra/pgcd.spad.pamphlet index e37aa5d0..c371c1b6 100644 --- a/src/algebra/pgcd.spad.pamphlet +++ b/src/algebra/pgcd.spad.pamphlet @@ -303,6 +303,7 @@ PolynomialGcdPackage(E,OV,R,P):C == T where d:=listpol.first listpol:=listpol.rest nolift:Boolean:=true + uf: SUP for uf in listpol repeat --note uf and d not necessarily primitive degree gcd(uf,d) =0 => nolift:=false |