diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-12-20 05:59:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-12-20 05:59:26 +0000 |
| commit | b91f52ba52fc76bc9700f69a21f65042c805409b (patch) | |
| tree | 902f81d6d2d2e16420187105f11748f564c7891b /src/algebra/newdata.spad.pamphlet | |
| parent | ba161fefd4ab91c4908e7c7da8f6d84373f8e7ce (diff) | |
| download | open-axiom-b91f52ba52fc76bc9700f69a21f65042c805409b.tar.gz | |
* algebra/newdata.spad.pamphlet (SplittingNode): Define Rep as
constant. Remove definitions for `per' and `rep'.
* algebra/regset.spad.pamphlet (RegularTriangularSet): Likewise.
* algebra/sregset.spad.pamphlet (SquareFreeRegularTriangularSet):
Likewise.
* algebra/triset.spad.pamphlet (GeneralTriangularSet): Likewise.
(WuWenTsunTriangularSet): Likewise.
Diffstat (limited to 'src/algebra/newdata.spad.pamphlet')
| -rw-r--r-- | src/algebra/newdata.spad.pamphlet | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/algebra/newdata.spad.pamphlet b/src/algebra/newdata.spad.pamphlet index 3cc22ee6..aacaddb7 100644 --- a/src/algebra/newdata.spad.pamphlet +++ b/src/algebra/newdata.spad.pamphlet @@ -255,10 +255,7 @@ SplittingNode(V,C) : Exports == Implementation where Implementation == add - Rep ==> VTB - - rep(n:%):Rep == n pretend Rep - per(r:Rep):% == r pretend % + Rep == VTB empty() == per [empty()$V,empty()$C,false]$Rep empty?(n:%) == empty?((rep n).val)$V and empty?((rep n).tower)$C @@ -437,10 +434,7 @@ SplittingTree(V,C) : Exports == Implementation where Implementation == add - Rep ==> A - - rep(n:%):Rep == n pretend Rep - per(r:Rep):% == r pretend % + Rep == A construct(s:S) == per [s,[]]$A |