diff options
Diffstat (limited to 'src/algebra/curve.spad.pamphlet')
| -rw-r--r-- | src/algebra/curve.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/curve.spad.pamphlet b/src/algebra/curve.spad.pamphlet index 11d82292..37d330ee 100644 --- a/src/algebra/curve.spad.pamphlet +++ b/src/algebra/curve.spad.pamphlet @@ -211,8 +211,8 @@ FunctionFieldCategory(F, UP, UPUP): Category == Definition where d := commonDenominator(coordinates(w := integralBasis()))::RF n := #w vars := [concat(string u, string i)::SY for i in 1..n] - x := "%%dummy1"::SY - y := "%%dummy2"::SY + x := '%%dummy1 + y := '%%dummy2 select_!(zero?(degree(#1, x)) and zero?(degree(#1, y)), lexGroebner([v::P - UPUP2P(lift(d * w.i), x::P, y::P) for v in vars for i in 1..n], concat([x, y], vars))) |