diff options
Diffstat (limited to 'src/algebra/geneez.spad.pamphlet')
| -rw-r--r-- | src/algebra/geneez.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/geneez.spad.pamphlet b/src/algebra/geneez.spad.pamphlet index 453ae3bd..3c449fe1 100644 --- a/src/algebra/geneez.spad.pamphlet +++ b/src/algebra/geneez.spad.pamphlet @@ -146,7 +146,7 @@ GenExEuclid(R,BP) : C == T rpol := first redListPol redListPol := rest redListPol for rpol2 in redListPol repeat - gcd(rpol, rpol2) ~= 1 => return false + not one? gcd(rpol, rpol2) => return false true if R has Field then |