diff options
Diffstat (limited to 'src/algebra/opalg.spad.pamphlet')
| -rw-r--r-- | src/algebra/opalg.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/opalg.spad.pamphlet b/src/algebra/opalg.spad.pamphlet index dc5b5e3f..19a4a9dc 100644 --- a/src/algebra/opalg.spad.pamphlet +++ b/src/algebra/opalg.spad.pamphlet @@ -87,7 +87,7 @@ ModuleOperator(R: Ring, M:LeftModule(R)): Exports == Implementation where elt(x:$, r:M) == +/[t.exp * termeval(t.gen, r) for t in terms x] rmeval(t, r) == t.coef * monomeval(t.monom, r) termcopy t == [[rm.coef, rm.monom] for rm in t] - characteristic() == characteristic()$R + characteristic == characteristic$R mkop(r, fg) == [[r, fg]$RM]$TERM :: $ evaluate(f, g) == nocopy setProperty(retract(f)@OP,OPEVAL,g pretend None) |