diff options
Diffstat (limited to 'src/algebra/polycat.spad.pamphlet')
| -rw-r--r-- | src/algebra/polycat.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/polycat.spad.pamphlet b/src/algebra/polycat.spad.pamphlet index 60e29ed0..30d77de8 100644 --- a/src/algebra/polycat.spad.pamphlet +++ b/src/algebra/polycat.spad.pamphlet @@ -501,7 +501,7 @@ PolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, VarSet:OrderedSet): -- column, i.e. to one variable llR:List List R := [ empty() for z in first ll] monslist:List List % := empty() - ch:=characteristic()$% + ch:=characteristic$% for l in ll repeat mons:= "setUnion"/[primitiveMonomials u for u in l] redmons:List % :=[] @@ -530,7 +530,7 @@ PolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, VarSet:OrderedSet): ans := charthRoot ground p ans case "failed" => "failed" ans::R::% - ch:=characteristic()$% + ch:=characteristic$% charthRootlv(p,vars,ch) charthRootlv(p,vars,ch) == empty? vars => |