@@ -51,11 +51,11 @@ julia> sig_groebner_basis(Fhom)
51517-element Vector{Tuple{Tuple{Int64, FqMPolyRingElem}, FqMPolyRingElem}}:
5252 ((1, 1), x1 + x2 + x3 + x4)
5353 ((2, 1), x2^2 + 2*x2*x4 + x4^2)
54- ((3, 1), x2*x3^2 + 16*x2*x4^2 + x3^2*x4 + 16*x4^3)
55- ((4, 1), x2*x3*x4^2 + 16*x2* x4^3 + x3^2* x4^2 + x3*x4^3 + 16*x4^4 + 16*x5^4)
54+ ((3, 1), x2*x3^2 + x3^2*x4 + 16*x2*x4^2 + 16*x4^3)
55+ ((4, 1), x2*x3*x4^2 + x3^2* x4^2 + 16*x2* x4^3 + x3*x4^3 + 16*x4^4 + 16*x5^4)
5656 ((4, x3), x3^3*x4^2 + x3^2*x4^3 + 16*x3*x5^4 + 16*x4*x5^4)
57- ((4, x2), x2*x4^4 + 16*x2*x5^4 + x4^5 + 16*x4*x5^4)
58- ((4, x2*x3), x2*x3*x5 ^4 + 16* x2*x4 *x5^4 + x3^2*x4 ^4 + x3*x4*x5^4 + 15*x4^2*x5^4)
57+ ((4, x2), x2*x4^4 + x4^5 + 16*x2*x5^4 + 16*x4*x5^4)
58+ ((4, x2*x3), x3^2*x4 ^4 + x2*x3 *x5^4 + 16*x2*x4*x5 ^4 + x3*x4*x5^4 + 15*x4^2*x5^4)
5959```
6060"""
6161function sig_groebner_basis (sys:: Vector{T} ; info_level:: Int = 0 , degbound:: Int = 0 ) where {T <: MPolyRingElem }
228228# homogenize w.r.t. the last variable
229229function _homogenize (F:: Vector{P} ) where {P <: MPolyRingElem }
230230 R = parent (first (F))
231- S, vars = polynomial_ring (base_ring (R), [" x$i " for i in 1 : nvars (R)+ 1 ])
231+ S, vars = polynomial_ring (base_ring (R), [" x$i " for i in 1 : nvars (R)+ 1 ],
232+ internal_ordering = :degrevlex )
232233 res = typeof (first (F))[]
233234 for f in F
234235 ctx = MPolyBuildCtx (S)
0 commit comments