From 9193f9852190e4b72e094fac1e18994a940cd1d0 Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Wed, 3 Feb 2016 06:07:16 -0800 Subject: Clean up IndexedDirectProductAbelianMonoid --- src/algebra/indexedp.spad.pamphlet | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/src/algebra/indexedp.spad.pamphlet b/src/algebra/indexedp.spad.pamphlet index e4dd5805..c6ce02a1 100644 --- a/src/algebra/indexedp.spad.pamphlet +++ b/src/algebra/indexedp.spad.pamphlet @@ -163,10 +163,6 @@ IndexedDirectProductAbelianMonoid(A:AbelianMonoid,S:OrderedType): Term == IndexedProductTerm(A,S) import Term - r: A - n: NonNegativeInteger - f: A -> A - s: S 0 == convert nil$List(Term) zero? x == null terms x @@ -215,7 +211,7 @@ IndexedDirectProductAbelianMonoid(A:AbelianMonoid,S:OrderedType): else qsetrest!(endcell, end) convert res - n * x == + n:NonNegativeInteger * x:% == zero? n => 0 one? n => x convert [term(index u,a) for u in terms x @@ -286,11 +282,8 @@ IndexedDirectProductOrderedAbelianMonoidSup(A:OrderedAbelianMonoidSup,S:OrderedS Join(OrderedAbelianMonoidSup,IndexedDirectProductCategory(A,S)) == IndexedDirectProductOrderedAbelianMonoid(A,S) add --representations - Term:= Record(k:S,c:A) + Term == Record(k:S,c:A) Rep:= List Term - x,y: % - r: A - s: S subtractIfCan(x,y) == empty? y => just x -- cgit v1.2.3