diff options
author | dos-reis <gdr@axiomatics.org> | 2011-10-26 12:46:05 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-10-26 12:46:05 +0000 |
commit | 903486e44d8cb2fd57e2df9515be4c3e0e4f5369 (patch) | |
tree | 0330838c324e7f45a4d92860f3f6c7d2e02b517d | |
parent | 47343d6fc2dcd7c9795f7a715a7cf1d862733c26 (diff) | |
download | open-axiom-903486e44d8cb2fd57e2df9515be4c3e0e4f5369.tar.gz |
minor cleanups
-rw-r--r-- | src/algebra/boolean.spad.pamphlet | 4 | ||||
-rw-r--r-- | src/algebra/data.spad.pamphlet | 2 | ||||
-rw-r--r-- | src/algebra/sgcf.spad.pamphlet | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/boolean.spad.pamphlet b/src/algebra/boolean.spad.pamphlet index 62c02779..7db25b9f 100644 --- a/src/algebra/boolean.spad.pamphlet +++ b/src/algebra/boolean.spad.pamphlet @@ -638,8 +638,8 @@ KleeneTrivalentLogic(): Public == Private where unknown == per(1::Byte) true == per(2::Byte) x = y == rep x = rep y - x case true == x = true - x case false == x = false + x case true == x = true@% + x case false == x = false@% x case unknown == x = unknown not x == x case false => true diff --git a/src/algebra/data.spad.pamphlet b/src/algebra/data.spad.pamphlet index 07f9144f..ed78eba4 100644 --- a/src/algebra/data.spad.pamphlet +++ b/src/algebra/data.spad.pamphlet @@ -47,7 +47,7 @@ Byte(): Public == Private where import %bcompl: % -> % from Foreign Builtin byte(x: NonNegativeInteger): % == per x - sample = %icst0 + sample == %icst0 x = y == %beq(x,y) x < y == %blt(x,y) x > y == %bgt(x,y) diff --git a/src/algebra/sgcf.spad.pamphlet b/src/algebra/sgcf.spad.pamphlet index c16691d8..bf077186 100644 --- a/src/algebra/sgcf.spad.pamphlet +++ b/src/algebra/sgcf.spad.pamphlet @@ -363,7 +363,7 @@ SymmetricGroupCombinatoricFunctions(): public == private where listYoungTableaus(lambda) == ytab : M I younglist : L M I := nil$(L M I) - lattice := nextLatticePermutation(lambda,nil,false) + lattice := nextLatticePermutation(lambda,nil$L(I),false) until null lattice repeat ytab := makeYoungTableau(lambda,lattice) younglist := append(younglist,[ytab]$(L M I))$(L M I) |