diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-19 21:38:54 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-19 21:38:54 +0000 |
commit | 09469d002d15b88c105731142bce403a1aa5a21b (patch) | |
tree | c91273f9d8a7b5ae5bd3efb0f67734db0fb49dee /src/algebra/sturm.spad.pamphlet | |
parent | 0d25890bd7bc8bd697294a3288396c23a2438879 (diff) | |
download | open-axiom-09469d002d15b88c105731142bce403a1aa5a21b.tar.gz |
* algebra/aggcat.spad.pamphlet (Aggregate) [more?,less?,size?]:
Move to StreamAggregate.
* algebra/array2.spad.pamphlet (TwoDimensionalArrayCategory):
Don't implement them.
* algebra/tree.spad.pamphlet (Tree): Likewise.
Diffstat (limited to 'src/algebra/sturm.spad.pamphlet')
-rw-r--r-- | src/algebra/sturm.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/sturm.spad.pamphlet b/src/algebra/sturm.spad.pamphlet index 30c438a1..b005b535 100644 --- a/src/algebra/sturm.spad.pamphlet +++ b/src/algebra/sturm.spad.pamphlet @@ -257,7 +257,7 @@ SturmHabichtPackage(R,x): T == C where -- elements in an ordered integral domain variation(Lsig:L R):INT == - size?(Lsig,1) => 0 + #Lsig = 1 => 0 elt1:R:=first Lsig elt2:R:=Lsig.2 sig1:R:=(sign(elt1*elt2))::R @@ -270,7 +270,7 @@ SturmHabichtPackage(R,x): T == C where -- elements in an ordered integral domain permanence(Lsig:L R):INT == - size?(Lsig,1) => 0 + #Lsig = 1 => 0 elt1:R:=first Lsig elt2:R:=Lsig.2 sig1:R:=(sign(elt1*elt2))::R |