aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/integer.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2013-05-10 09:21:22 +0000
committerdos-reis <gdr@axiomatics.org>2013-05-10 09:21:22 +0000
commit0f2fe8a37ab42191fa2b871e0ce8bd05c701eed7 (patch)
tree21351b5529ef766fc386e2103d6da0e249513220 /src/algebra/integer.spad.pamphlet
parent095dc531352b8055aa4ec355d8cf1157901377fa (diff)
downloadopen-axiom-0f2fe8a37ab42191fa2b871e0ce8bd05c701eed7.tar.gz
Add opposite? and annihilate? exports.
Diffstat (limited to 'src/algebra/integer.spad.pamphlet')
-rw-r--r--src/algebra/integer.spad.pamphlet2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/algebra/integer.spad.pamphlet b/src/algebra/integer.spad.pamphlet
index 5806c706..ba924720 100644
--- a/src/algebra/integer.spad.pamphlet
+++ b/src/algebra/integer.spad.pamphlet
@@ -205,6 +205,8 @@ Integer: IntegerNumberSystem with
zero? p => unitCanonical q
zero? q => unitCanonical p
gcd([p,q])$HeuGcd(ZP)
+ opposite?(x,y) == x = -y
+ annihilate?(x,y) == zero? x or zero? y
-- myNextPrime: (%,NonNegativeInteger) -> %
-- myNextPrime(x,n) ==
-- nextPrime(x)$IntegerPrimesPackage(%)