diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-30 04:07:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-30 04:07:42 +0000 |
| commit | e8d97f536bc5aa1e00778e23efd78611cfbe9fe9 (patch) | |
| tree | 19b5531141aed7b0e0aaf49e9bb50d00738bc37c /src/algebra/wtpol.spad.pamphlet | |
| parent | 496fe8b336293c1ca960eb3fad67ac005403ee31 (diff) | |
| download | open-axiom-e8d97f536bc5aa1e00778e23efd78611cfbe9fe9.tar.gz | |
More explicit import
Diffstat (limited to 'src/algebra/wtpol.spad.pamphlet')
| -rw-r--r-- | src/algebra/wtpol.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/wtpol.spad.pamphlet b/src/algebra/wtpol.spad.pamphlet index 7f64a69f..d4b28f47 100644 --- a/src/algebra/wtpol.spad.pamphlet +++ b/src/algebra/wtpol.spad.pamphlet @@ -58,7 +58,7 @@ WeightedPolynomials(R:Ring,VarSet: OrderedSet, E:OrderedAbelianMonoidSup, if #vl ~= #wl then error "incompatible length lists in WeightedPolynomial" lookupList:=[[v,n] for v in vl for n in wl] -- local operation - innercoerce:(p,z) -> $ + innercoerce: (P,Integer) -> $ lookup:VarSet -> NonNegativeInteger lookup v == l:=lookupList |