aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/constant.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-09-15 15:09:25 +0000
committerdos-reis <gdr@axiomatics.org>2011-09-15 15:09:25 +0000
commit9025c74466dcd1c38dde5e4c63934ff0b2e4f18d (patch)
tree447b28f9159920ca29a18fa9647bf7120dc3619c /src/algebra/constant.spad.pamphlet
parentf5060cfd48a6993c7a6bd6b739e3d37bd234453a (diff)
downloadopen-axiom-9025c74466dcd1c38dde5e4c63934ff0b2e4f18d.tar.gz
* algebra/alql.spad.pamphlet (IndexCard): Now satisfies
CoercibleFrom String. Remove explicit coerce export. * algebra/carten.spad.pamphlet (CartesianTensor): Remove explicit coerce export. Add satisfaction of CoercibleFrom appropriate domains. * algebra/color.spad.pamphlet (Palette): Relace explicit coerce export with CoercibleTo %. * algebra/constant.spad.pamphlet (InnerAlgebraicNumber): Likewise. * algebra/dpolcat.spad.pamphlet (DifferentialVariableCategory): Likewise.
Diffstat (limited to 'src/algebra/constant.spad.pamphlet')
-rw-r--r--src/algebra/constant.spad.pamphlet10
1 files changed, 4 insertions, 6 deletions
diff --git a/src/algebra/constant.spad.pamphlet b/src/algebra/constant.spad.pamphlet
index 34138adc..186d6afb 100644
--- a/src/algebra/constant.spad.pamphlet
+++ b/src/algebra/constant.spad.pamphlet
@@ -30,9 +30,8 @@ InnerAlgebraicNumber(): Exports == Implementation where
LinearlyExplicitRingOver Z, RealConstant,
LinearlyExplicitRingOver Fraction Z,
CharacteristicZero,
- ConvertibleTo Complex Float, DifferentialRing) with
- coerce : P -> %
- ++ coerce(p) returns p viewed as an algebraic number.
+ ConvertibleTo Complex Float, DifferentialRing,
+ CoercibleFrom P) with
numer : % -> P
++ numer(f) returns the numerator of f viewed as a
++ polynomial in the kernels over Z.
@@ -164,9 +163,8 @@ AlgebraicNumber(): Exports == Implementation where
LinearlyExplicitRingOver Z, RealConstant,
LinearlyExplicitRingOver Fraction Z,
CharacteristicZero,
- ConvertibleTo Complex Float, DifferentialRing) with
- coerce : P -> %
- ++ coerce(p) returns p viewed as an algebraic number.
+ ConvertibleTo Complex Float, DifferentialRing,
+ CoercibleFrom P) with
numer : % -> P
++ numer(f) returns the numerator of f viewed as a
++ polynomial in the kernels over Z.