diff options
author | dos-reis <gdr@axiomatics.org> | 2011-03-12 22:56:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-03-12 22:56:37 +0000 |
commit | 6c75a87d8ee00d48a0f5703aa9c86591078a50d3 (patch) | |
tree | 28ff587bbc4d759dd0e3f96b156700ff01ba8c53 /src/algebra/poly.spad.pamphlet | |
parent | a2e3e641bdbcb6e77bbb572aea25a748a967abca (diff) | |
download | open-axiom-6c75a87d8ee00d48a0f5703aa9c86591078a50d3.tar.gz |
* src/algebra/: Systematically use not one? when comparing for
equality with 1.
Diffstat (limited to 'src/algebra/poly.spad.pamphlet')
-rw-r--r-- | src/algebra/poly.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/poly.spad.pamphlet b/src/algebra/poly.spad.pamphlet index d055f03d..71a7d8df 100644 --- a/src/algebra/poly.spad.pamphlet +++ b/src/algebra/poly.spad.pamphlet @@ -618,7 +618,7 @@ SparseUnivariatePolynomial(R:Ring): UnivariatePolynomialCategory(R) with monicDivide(p1:%,p2:%) == null p2 => error "monicDivide: division by 0" - leadingCoefficient p2 ~= 1 => error "Divisor Not Monic" + not one? leadingCoefficient p2 => error "Divisor Not Monic" p2 = 1 => [p1,0] null p1 => [0,0] degree p1 < (n:=degree p2) => [0,p1] @@ -1045,7 +1045,7 @@ PolynomialSquareFree(VarSet:OrderedSet,E,RC:GcdDomain,P):C == T where cont1:=cont1*((unit listfin1)**uexp) pfaclist:=append(flistfin1,pfaclist) cont:=cont*cont1 - cont ~= 1 => + not one? cont => sqp := squareFree cont pfaclist:= append (factorList sqp,pfaclist) makeFR(unit(sqp)*coefficient(unit squf,0),pfaclist) @@ -1062,7 +1062,7 @@ PolynomialSquareFree(VarSet:OrderedSet,E,RC:GcdDomain,P):C == T where pfaclist:List FF := [[u.flg,multivariate(u.fctr,mv),u.xpnt] for u in factorList squp] - cont ~= 1 => + not one? cont => sqp := squareFree cont makeFR(unit(sqp)*coefficient(unit squp,0), append(factorList sqp, pfaclist)) |