aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/gb.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/gb.spad.pamphlet')
-rw-r--r--src/algebra/gb.spad.pamphlet3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/gb.spad.pamphlet b/src/algebra/gb.spad.pamphlet
index 4cff4aac..895480fd 100644
--- a/src/algebra/gb.spad.pamphlet
+++ b/src/algebra/gb.spad.pamphlet
@@ -117,8 +117,7 @@ GroebnerPackage(Dom, Expon, VarSet, Dpol): T == C where
if Dom has Field then
monicize(p: Dpol):Dpol ==
--- one?(lc := leadingCoefficient p) => p
- ((lc := leadingCoefficient p) = 1) => p
+ one?(lc := leadingCoefficient p) => p
inv(lc)*p
normalForm(p : Dpol, l : List(Dpol)) : Dpol ==