diff options
Diffstat (limited to 'src/algebra/groebf.spad.pamphlet')
| -rw-r--r-- | src/algebra/groebf.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/groebf.spad.pamphlet b/src/algebra/groebf.spad.pamphlet index 9d7c70a3..abda5441 100644 --- a/src/algebra/groebf.spad.pamphlet +++ b/src/algebra/groebf.spad.pamphlet @@ -260,7 +260,7 @@ GroebnerFactorizationPackage(Dom, Expon, VarSet, Dpol): T == C where doSplitting? => for fnP in allReducedFactors repeat - if fnP ~= 1$Dpol + if not one? fnP then newInputPolys : L Dpol := _ sort( degree #1 > degree #2 ,cons(fnP,inputPolys)) |