diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-16 20:17:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-16 20:17:37 +0000 |
commit | 1b0bb495c53cbd98069caeb30089c5ff778aceb3 (patch) | |
tree | c855466ba24bdcc1dde24db340c0407d963bce73 /src/algebra/polset.spad.pamphlet | |
parent | 0520bd59f6b9d9294a73cc88a1fa34a32678d7e5 (diff) | |
download | open-axiom-1b0bb495c53cbd98069caeb30089c5ff778aceb3.tar.gz |
* algebra/aggcat.spad.pamphlet (FiniteAggregate): Temporarily
include attribute finiteAggregate.
(StackAggregate): Extend category FiniteAggregate instead of
attribute finiteAggregate.
(QueueAggregate): Likewise.
(PriorityQueueAggregate): Likewise.
(FiniteSetAggregate): Likewise.
* algebra/lmdict.spad.pamphlet (ListMultiDictionary): Likewise.
* algebra/matcat.spad.pamphlet (MatrixCategory): Likewise.
* algebra/mset.spad.pamphlet (Multiset): Likewise.
* algebra/newdata.spad.pamphlet (SplittingTree): Likewise.
* algebra/polset.spad.pamphlet (PolynomialSetCategory): Likewise.
* algebra/tree.spad.pamphlet (Tree): Likewise.
(BinaryTreeCategory): Likewise.
* algebra/triset.spad.pamphlet (TriangularSetCategory): Likewise.
* algebra/vector.spad.pamphlet (DirectProductCategory): Likewise.
Diffstat (limited to 'src/algebra/polset.spad.pamphlet')
-rw-r--r-- | src/algebra/polset.spad.pamphlet | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/algebra/polset.spad.pamphlet b/src/algebra/polset.spad.pamphlet index 6043955c..b52209a6 100644 --- a/src/algebra/polset.spad.pamphlet +++ b/src/algebra/polset.spad.pamphlet @@ -34,8 +34,7 @@ PolynomialSetCategory(R:Ring, E:OrderedAbelianMonoidSup,_ VarSet:OrderedSet, P:RecursivePolynomialCategory(R,E,VarSet)): Category == - Join(SetCategory,Collection(P),CoercibleTo(List(P))) with - finiteAggregate + Join(SetCategory,Collection P,FiniteAggregate P,CoercibleTo List P) with retractIfCan : List(P) -> Union($,"failed") ++ \axiom{retractIfCan(lp)} returns an element of the domain whose elements ++ are the members of \axiom{lp} if such an element exists, otherwise @@ -376,13 +375,11 @@ GeneralPolynomialSet(R,E,VarSet,P) : Exports == Implementation where LP ==> List P PtoP ==> P -> P - Exports == PolynomialSetCategory(R,E,VarSet,P) with - + Exports == Join(PolynomialSetCategory(R,E,VarSet,P),FiniteAggregate P) with convert : LP -> $ ++ \axiom{convert(lp)} returns the polynomial set whose members ++ are the polynomials of \axiom{lp}. - finiteAggregate shallowlyMutable Implementation == add |