diff options
author | dos-reis <gdr@axiomatics.org> | 2012-01-14 22:35:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-01-14 22:35:57 +0000 |
commit | a00d32a888a910fe517afb91cc48a6eb44ed58da (patch) | |
tree | 492e12c3db9f3a4b5e1e184d5762ca90655c2753 /src/algebra/catdef.spad.pamphlet | |
parent | 3fdb491979d151670295b7cdac04c7b322e52830 (diff) | |
download | open-axiom-a00d32a888a910fe517afb91cc48a6eb44ed58da.tar.gz |
* algebra/catdef.spad.pamphlet (Finite) [random]: Provide default
implementation.
* algebra/boolean.spad.pamphlet (KleeneTrivalentLogic): Now
satisfy Finite. Use Maybe Boolean as representation.
Diffstat (limited to 'src/algebra/catdef.spad.pamphlet')
-rw-r--r-- | src/algebra/catdef.spad.pamphlet | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/algebra/catdef.spad.pamphlet b/src/algebra/catdef.spad.pamphlet index e546bb01..6fae2576 100644 --- a/src/algebra/catdef.spad.pamphlet +++ b/src/algebra/catdef.spad.pamphlet @@ -915,7 +915,6 @@ Field(): Category == Join(EuclideanDomain,UniqueFactorizationDomain, ++ \spad{index(lookup(s)) = s} Finite(): Category == SetCategory with - --operations size: () -> NonNegativeInteger ++ size() returns the number of elements in the set. index: PositiveInteger -> % @@ -928,7 +927,15 @@ Finite(): Category == SetCategory with ++ \spad{x = index lookup x}. random: () -> % ++ random() returns a random element from the set. - + add + --FIXME: Tthe only purpose of this local function is to bring + --FIXME: the compiler to admission that the successor of a + --FIXME: nonnegative integer has positive value. + --FIXME: Take it out when the its logic is sufficiently advanced. + succ(x: NonNegativeInteger): PositiveInteger == + (1 + x) : PositiveInteger + random() == + index succ random(size())$NonNegativeInteger @ \section{category FLINEXP FullyLinearlyExplicitRingOver} <<category FLINEXP FullyLinearlyExplicitRingOver>>= |