From 90a4fe6666a5db6d12e71e924c1486522a2ccdd1 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 13 Jun 2010 16:53:32 +0000 Subject: * algebra/generic.spad.pamphlet (GenericNonAssociativeAlgebra)[generic]: Fix thinko. --- src/ChangeLog | 5 +++++ src/algebra/generic.spad.pamphlet | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 00c7642b..52918b3c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2010-06-13 Gabriel Dos Reis + + * algebra/generic.spad.pamphlet + (GenericNonAssociativeAlgebra)[generic]: Fix thinko. + 2010-06-13 Gabriel Dos Reis * algebra/array1.spad.pamphlet (IndexedFlexibleArray) [merge!]: Tidy. diff --git a/src/algebra/generic.spad.pamphlet b/src/algebra/generic.spad.pamphlet index e8eab134..35d694d5 100644 --- a/src/algebra/generic.spad.pamphlet +++ b/src/algebra/generic.spad.pamphlet @@ -19,7 +19,7 @@ import SparseUnivariatePolynomial )abbrev domain GCNAALG GenericNonAssociativeAlgebra ++ Authors: J. Grabmeier, R. Wisbauer ++ Date Created: 26 June 1991 -++ Date Last Updated: 26 June 1991 +++ Date Last Updated: June 13, 2010 ++ Basic Operations: generic ++ Related Constructors: AlgebraPackage ++ Also See: @@ -265,7 +265,7 @@ GenericNonAssociativeAlgebra(R : CommutativeRing, n : PositiveInteger,_ generic() == genericElement generic(vs:V S, ve: V %): % == - maxIndex v > maxIndex ve => + maxIndex ve > maxIndex vs => error "generic: too little symbols" v : Vector PR := [monomial(1$PR, [vs.i],[1]) for i in 1..maxIndex ve] -- cgit v1.2.3