diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-04-26 02:05:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-04-26 02:05:39 +0000 |
| commit | 95a8891a808572509f7449aa32022df42f8b7ab8 (patch) | |
| tree | b68be5fd0d707dfc45eb4db560775b1ca01849f3 /src/algebra/clifford.spad.pamphlet | |
| parent | f50462616a6319727efb50c267a105166f5275e8 (diff) | |
| download | open-axiom-95a8891a808572509f7449aa32022df42f8b7ab8.tar.gz | |
* algebra/carten.spad.pamphlet (CartesianTensor): Satisfy
instantiation of Eltable.
* algebra/clifford.spad.pamphlet (QuadraticForm): Likewise.
* algebra/domain.spad.pamphlet (DomainTemplate): Likewise.
* algebra/files.spad.pamphlet (Library): Likewise.
* algebra/aggcat.spad.pamphlet (LinearAggregate): Extend
instantiation of Eltable.
* algebra/naalg.spad.pamphlet (FiniteRankNonAssociativeAlgebra):
Likewise.
* algebra/pscat.spad.pamphlet (UnivariatePowerSeriesCategory):
Likewise.
* algebra/sex.spad.pamphlet (SExpressionCategory): Likewise.
* algebra/Makefile.pamphlet: Update rules.
Diffstat (limited to 'src/algebra/clifford.spad.pamphlet')
| -rw-r--r-- | src/algebra/clifford.spad.pamphlet | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/algebra/clifford.spad.pamphlet b/src/algebra/clifford.spad.pamphlet index 20fa8514..262afa86 100644 --- a/src/algebra/clifford.spad.pamphlet +++ b/src/algebra/clifford.spad.pamphlet @@ -33,15 +33,12 @@ QuadraticForm(n, K): T == Impl where SM ==> SquareMatrix V ==> DirectProduct - T ==> AbelianGroup with + T ==> Join(AbelianGroup, Eltable(V(n,K),K)) with quadraticForm: SM(n, K) -> % ++ quadraticForm(m) creates a quadratic form from a symmetric, ++ square matrix m. matrix: % -> SM(n, K) ++ matrix(qf) creates a square matrix from the quadratic form qf. - elt: (%, V(n, K)) -> K - ++ elt(qf,v) evaluates the quadratic form qf on the vector v, - ++ producing a scalar. Impl ==> SM(n,K) add Rep := SM(n,K) |