diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-21 04:54:55 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-21 04:54:55 +0000 |
| commit | 49727ef97a25730307fdb9622be726e92a41a875 (patch) | |
| tree | 5c6fbb86ff4e49c7ed0d510e76f42d7352005c88 /src/algebra/xpoly.spad.pamphlet | |
| parent | 0b97ae7365e5ba3d3e078147124e096f7cccde4b (diff) | |
| download | open-axiom-49727ef97a25730307fdb9622be726e92a41a875.tar.gz | |
* algebra/alql.spad.pamphlet (Database): Now CoercibleFrom List S.
* algebra/asp.spad.pamphlet (Asp20): Now CoercibleFrom MAT FEXPR.
(Asp6): Now CoercibleFrom Vector FEXPR.
* algebra/catdef.spad.pamphlet (Algebra): Extend CoercibleFrom R.
(Ring): Extend CoercibleFrom Integer.
* algebra/formula.spad.pamphlet (ScriptFormulaFormat): Now
CoercibleFrom E.
* algebra/fortran.spad.pamphlet (FortranCode): Remove redundant
signature.
* algebra/fs2ups.spad.pamphlet
(FunctionSpaceToUnivariatePowerSeries): Tidy parameter.
* algebra/laurent.spad.pamphlet
(UnivariateLaurentSeriesConstructorCategory): Extend CoercibleFrom
UTS.
* algebra/manip.spad.pamphlet (PolynomialRoots): Tidy parameter.
* algebra/modmon.spad.pamphlet (ModMonic): Now CoercibleFrom Rep.
* algebra/ore.spad.pamphlet (UnivariateSkewPolynomial): Now
CoercibleFrom Variable x.
Diffstat (limited to 'src/algebra/xpoly.spad.pamphlet')
| -rw-r--r-- | src/algebra/xpoly.spad.pamphlet | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/algebra/xpoly.spad.pamphlet b/src/algebra/xpoly.spad.pamphlet index 4049f1b6..c80e3e53 100644 --- a/src/algebra/xpoly.spad.pamphlet +++ b/src/algebra/xpoly.spad.pamphlet @@ -379,10 +379,7 @@ import Algebra ++ Author: Michel Petitot (petitot@lifl.fr) XAlgebra(R: Ring): Category == - Join(Ring, BiModule(R,R)) with - --operations - coerce: R -> % - ++ \spad{coerce(r)} equals \spad{r*1}. + Join(Ring, BiModule(R,R),CoercibleFrom R) with -- attributs if R has CommutativeRing then Algebra(R) -- if R has CommutativeRing then Module(R) @@ -548,14 +545,12 @@ XPolynomialRing(R:Ring,E:OrderedMonoid): T == C where EX ==> OutputForm NNI ==> NonNegativeInteger - T == Join(Ring, XAlgebra(R), FreeModuleCat(R,E)) with + T == Join(Ring, XAlgebra(R), FreeModuleCat(R,E),CoercibleFrom E) with --operations "*": (%,R) -> % ++ \spad{p*r} returns the product of \spad{p} by \spad{r}. "#": % -> NonNegativeInteger ++ \spad{# p} returns the number of terms in \spad{p}. - coerce: E -> % - ++ \spad{coerce(e)} returns \spad{1*e} maxdeg: % -> E ++ \spad{maxdeg(p)} returns the greatest word occurring in the polynomial \spad{p} ++ with a non-zero coefficient. An error is produced if \spad{p} is zero. |