aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/fmod.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-05-29 14:18:26 +0000
committerdos-reis <gdr@axiomatics.org>2009-05-29 14:18:26 +0000
commita17c2d47d4df5af5ef5e624ac6c5636b2741dd4a (patch)
tree225c59abef532441c688540ba0771937558b33ee /src/algebra/fmod.spad.pamphlet
parentbcf4deb1f4de85c07a6c91d2fb59a77545e317b0 (diff)
downloadopen-axiom-a17c2d47d4df5af5ef5e624ac6c5636b2741dd4a.tar.gz
Fix SF/2798220
* algebra/fmod.spad.pamphlet (IntegerMod): Define before? * algebra/ffp.spad.pamphlet (FiniteFieldExtensionByPolynomial): Likewise. * algebra/pf.spad.pamphlet (InnerPrimeField): Likewise. * testsuite/interpreter/sf-2798220.input: New.
Diffstat (limited to 'src/algebra/fmod.spad.pamphlet')
-rw-r--r--src/algebra/fmod.spad.pamphlet6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/algebra/fmod.spad.pamphlet b/src/algebra/fmod.spad.pamphlet
index 5140356b..47182caf 100644
--- a/src/algebra/fmod.spad.pamphlet
+++ b/src/algebra/fmod.spad.pamphlet
@@ -14,7 +14,7 @@
)abbrev domain ZMOD IntegerMod
++ Author:
++ Date Created:
-++ Date Last Updated:
+++ Date Last Updated: May 29, 2009
++ Basic Functions:
++ Related Constructors:
++ Also See:
@@ -66,6 +66,8 @@ IntegerMod(p:PositiveInteger):
(c1, c2, g) := extendedEuclidean(x, q)$Rep
not one? g => "failed"
positiveRemainder(c1, q)
+
+ before?(x,y) == before?(x,y)$Rep
else
Rep:= Integer
@@ -94,6 +96,8 @@ IntegerMod(p:PositiveInteger):
(c1, c2, g) := extendedEuclidean(x, p)$Rep
not one? g => "failed"
positiveRemainder(c1, p)
+
+ before?(x,y) == before?(x,y)$Rep
@
\section{License}