aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/qalgset.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/qalgset.spad.pamphlet')
-rw-r--r--src/algebra/qalgset.spad.pamphlet4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/qalgset.spad.pamphlet b/src/algebra/qalgset.spad.pamphlet
index 7f5a0371..e6dfe5aa 100644
--- a/src/algebra/qalgset.spad.pamphlet
+++ b/src/algebra/qalgset.spad.pamphlet
@@ -75,7 +75,7 @@ QuasiAlgebraicSet(R, Var,Expon,Dpoly) : C == T
quasiAlgebraicSet: (List Dpoly, Dpoly) -> $
++ quasiAlgebraicSet(pl,q) returns the quasi-algebraic set
++ with defining equations p = 0 for p belonging to the list pl, and
- ++ defining inequation q ^= 0.
+ ++ defining inequation q ~= 0.
status: $ -> Status
++ status(s) returns true if the quasi-algebraic set is empty,
++ false if it is not, and "failed" if not yet known
@@ -151,7 +151,7 @@ QuasiAlgebraicSet(R, Var,Expon,Dpoly) : C == T
q=0$newPoly => 0$Dpoly
dq:newExpon:=degree q
n:NNI:=selectfirst (dq)
- n^=0 => "failed"
+ n~=0 => "failed"
((g:=oldpoly reductum q) case "failed") => "failed"
monomial(leadingCoefficient q,selectsecond dq)$Dpoly + (g::Dpoly)