aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra')
-rw-r--r--src/algebra/Makefile.in30
-rw-r--r--src/algebra/catdef.spad.pamphlet19
-rw-r--r--src/algebra/exposed.lsp.pamphlet1
3 files changed, 39 insertions, 11 deletions
diff --git a/src/algebra/Makefile.in b/src/algebra/Makefile.in
index 480c3cc7..7f30bb8e 100644
--- a/src/algebra/Makefile.in
+++ b/src/algebra/Makefile.in
@@ -148,8 +148,9 @@ strap-0/SRING.$(FASLEXT): strap-0/ABELMON.$(FASLEXT) \
strap-0/ORDRING.$(FASLEXT): strap-0/OAGROUP.$(FASLEXT) \
strap-0/RING.$(FASLEXT) strap-0/MONOID.$(FASLEXT)
strap-0/RING.$(FASLEXT): strap-0/RNG.$(FASLEXT) \
- strap-0/MONOID.$(FASLEXT) \
+ strap-0/SRING.$(FASLEXT) \
strap-0/LMODULE.$(FASLEXT) strap-0/KRCFROM.$(FASLEXT)
+strap-0/DIOID.$(FASLEXT): strap-0/OAMON.$(FASLEXT) strap-0/SRING.$(FASLEXT)
strap-0/COMRING.$(FASLEXT): strap-0/RING.$(FASLEXT) \
strap-0/BMODULE.$(FASLEXT)
strap-0/INTDOM.$(FASLEXT): strap-0/COMRING.$(FASLEXT) \
@@ -449,10 +450,15 @@ strap-1/RMODULE.$(FASLEXT): strap-1/ABELGRP.$(FASLEXT) \
strap-1/BMODULE.$(FASLEXT): strap-1/LMODULE.$(FASLEXT) \
strap-1/RMODULE.$(FASLEXT)
+strap-1/SRING.$(FASLEXT): strap-1/ABELMON.$(FASLEXT) \
+ strap-1/MONOID.$(FASLEXT)
+
strap-1/RING.$(FASLEXT): strap-1/RNG.$(FASLEXT) \
- strap-1/MONOID.$(FASLEXT) \
+ strap-1/SRING.$(FASLEXT) \
strap-1/LMODULE.$(FASLEXT) strap-1/KRCFROM.$(FASLEXT)
+strap-1/DIOID.$(FASLEXT): strap-1/OAMON.$(FASLEXT) strap-1/SRING.$(FASLEXT)
+
strap-1/SRING.$(FASLEXT): strap-1/ABELMON.$(FASLEXT) \
strap-1/MONOID.$(FASLEXT)
@@ -803,12 +809,19 @@ strap-2/RMODULE.$(FASLEXT): strap-2/ABELGRP.$(FASLEXT) \
strap-2/RLINSET.$(FASLEXT)
strap-2/BMODULE.$(FASLEXT): strap-2/LMODULE.$(FASLEXT) \
strap-2/RMODULE.$(FASLEXT)
+
+strap-2/SRING.$(FASLEXT): strap-2/ABELMON.$(FASLEXT) \
+ strap-2/MONOID.$(FASLEXT)
+
strap-2/RING.$(FASLEXT): strap-2/RNG.$(FASLEXT) \
- strap-2/MONOID.$(FASLEXT) \
+ strap-2/SRING.$(FASLEXT) \
strap-2/LMODULE.$(FASLEXT) strap-2/KRCFROM.$(FASLEXT)
+
strap-2/SRING.$(FASLEXT): strap-2/ABELMON.$(FASLEXT) \
strap-2/MONOID.$(FASLEXT)
+strap-2/DIOID.$(FASLEXT): strap-2/OAMON.$(FASLEXT) strap-2/SRING.$(FASLEXT)
+
strap-2/ORDRING.$(FASLEXT): strap-2/OAGROUP.$(FASLEXT) \
strap-2/RING.$(FASLEXT) strap-2/MONOID.$(FASLEXT)
@@ -1098,8 +1111,6 @@ strap-2/BOOLEAN.$(FASLEXT): strap-2/PROPLOG.$(FASLEXT) \
##
##
-strap-2/%.$(FASLEXT): initdb.daase
-
.PRECIOUS: strap-0 strap-1 strap-2
strap-0 strap-1 strap-2:
$(mkdir_p) $@
@@ -1123,7 +1134,7 @@ strap-1/%.$(FASLEXT): %.spad | strap-1
rm -rf $*.NRLIB $*-.NRLIB
.PRECIOUS: strap-2/%.$(FASLEXT)
-strap-2/%.$(FASLEXT): %.spad | strap-2
+strap-2/%.$(FASLEXT): %.spad initdb.daase | strap-2
$(BOOTSTRAP) --strap=strap-1 --sysalg=strap-2 --optimize=3 $< && \
cp $*.NRLIB/code.$(FASLEXT) $@ && \
if test -d $*-.NRLIB; then cp $*-.NRLIB/code.$(FASLEXT) \
@@ -1392,6 +1403,7 @@ $(OUT)/OAMON.$(FASLEXT): $(OUT)/OASGP.$(FASLEXT)
$(OUT)/OAMONS.$(FASLEXT): $(OUT)/OAMON.$(FASLEXT)
$(OUT)/OASGP.$(FASLEXT): $(OUT)/ORDSET.$(FASLEXT) $(OUT)/ABELSG.$(FASLEXT)
$(OUT)/RNG.$(FASLEXT): $(OUT)/SGROUP.$(FASLEXT)
+$(OUT)/DIOID.$(FASLEXT): $(OUT)/OAMON.$(FASLEXT) $(OUT)/SRING.$(FASLEXT)
$(OUT)/LLINSET.$(FASLEXT): $(OUT)/SETCAT.$(FASLEXT)
$(OUT)/RLINSET.$(FASLEXT): $(OUT)/SETCAT.$(FASLEXT)
@@ -1426,7 +1438,7 @@ oa_algebra_layer_0 = \
RMODULE ALGEBRA ALGEBRA- SGROUP SGROUP- ABELSG \
ABELSG- ORDSET OASGP FILECAT SEXCAT \
MODULE MODULE- PID OAGROUP OAGROUP- OCAMON \
- OAMON OAMON- \
+ OAMON OAMON- DIOID \
RNG ORDFIN LLINSET RLINSET LINSET OAMONS \
MKBCFUNC MKRECORD MKUCFUNC DROPT1 PLOT1 ITFUN2 \
ITFUN3 STREAM1 STREAM2 STREAM3 ANY1 SEGBIND2 \
@@ -1475,7 +1487,7 @@ $(OUT)/MAYBE.$(FASLEXT): $(OUT)/KOERCE.$(FASLEXT) $(OUT)/RETRACT.$(FASLEXT)
$(OUT)/BYTEORD.$(FASLEXT): $(OUT)/SETCAT.$(FASLEXT)
$(OUT)/SRING.$(FASLEXT): $(OUT)/ABELMON.$(FASLEXT) $(OUT)/MONOID.$(FASLEXT)
-$(OUT)/RING.$(FASLEXT): $(OUT)/RNG.$(FASLEXT) $(OUT)/MONOID.$(FASLEXT) \
+$(OUT)/RING.$(FASLEXT): $(OUT)/RNG.$(FASLEXT) $(OUT)/SRING.$(FASLEXT) \
$(OUT)/LMODULE.$(FASLEXT) $(OUT)/KOERCE.$(FASLEXT)
$(OUT)/MONOID.$(FASLEXT): $(OUT)/SGROUP.$(FASLEXT)
$(OUT)/ABELGRP.$(FASLEXT): $(OUT)/CABMON.$(FASLEXT) $(OUT)/LLINSET.$(FASLEXT)
@@ -1514,7 +1526,7 @@ $(OUT)/STREAM.$(FASLEXT): $(OUT)/LZSTAGG.$(FASLEXT)
axiom_algebra_layer_1 = \
ABELGRP ABELGRP- ABELMON ABELMON- ITUPLE \
CABMON MONOID MONOID- RING RING- COMRING \
- DIFRING ENTIRER INTDOM INTDOM- OINTDOM \
+ DIFRING SRING ENTIRER INTDOM INTDOM- OINTDOM \
GCDDOM GCDDOM- UFD UFD- ES ES- \
PATAB PPCURVE PSCURVE CACHSET RESLATC \
IDENT OUTFORM BINDING BOOLEAN \
diff --git a/src/algebra/catdef.spad.pamphlet b/src/algebra/catdef.spad.pamphlet
index 6fae2576..00930fb2 100644
--- a/src/algebra/catdef.spad.pamphlet
+++ b/src/algebra/catdef.spad.pamphlet
@@ -1831,7 +1831,7 @@ SemiRing(): Category == Join(AbelianMonoid,Monoid)
)abbrev category RING Ring
++ Author:
++ Date Created:
-++ Date Last Updated:
+++ Date Last Updated: February 14, 2012
++ Basic Functions:
++ Related Constructors:
++ Also See:
@@ -1842,7 +1842,7 @@ SemiRing(): Category == Join(AbelianMonoid,Monoid)
++ The category of rings with unity, always associative, but
++ not necessarily commutative.
-Ring(): Category == Join(Rng,Monoid,LeftModule(%),CoercibleFrom Integer) with
+Ring(): Category == Join(Rng,SemiRing,LeftModule(%),CoercibleFrom Integer) with
--operations
characteristic: NonNegativeInteger
++ characteristic() returns the characteristic of the ring
@@ -1860,6 +1860,19 @@ Ring(): Category == Join(Rng,Monoid,LeftModule(%),CoercibleFrom Integer) with
@
+\section{Dioid category}
+
+<<category DIOID Dioid>>=
+)abbrev category DIOID Dioid
+++ Author: Gabriel Dos Reis
+++ Date Created: February 14, 2012
+++ Date Last Modified: February 14, 2012
+++ Description:
+++ Dioid is the class of semirings where the addition operation
+++ induces a canonical order relation.
+Dioid(): Category == Join(OrderedAbelianMonoid,SemiRing)
+
+@
\section{category RNG Rng}
<<category RNG Rng>>=
@@ -2104,7 +2117,9 @@ VectorSpace(S:Field): Category == Module(S) with
<<category LINSET LinearSet>>
<<category LMODULE LeftModule>>
<<category RMODULE RightModule>>
+<<category SRING SemiRing>>
<<category RING Ring>>
+<<category DIOID Dioid>>
<<category BMODULE BiModule>>
<<category ENTIRER EntireRing>>
<<category CHARZ CharacteristicZero>>
diff --git a/src/algebra/exposed.lsp.pamphlet b/src/algebra/exposed.lsp.pamphlet
index fce173ac..0c8523cf 100644
--- a/src/algebra/exposed.lsp.pamphlet
+++ b/src/algebra/exposed.lsp.pamphlet
@@ -507,6 +507,7 @@
(|DifferentialSpace| . DIFFSPC)
(|DifferentialSpaceExtension| . DSEXT)
(|DifferentialVariableCategory| . DVARCAT)
+ (|Dioid| . DIOID)
(|DirectProductCategory| . DIRPCAT)
(|DivisionRing| . DIVRING)
(|DoublyLinkedAggregate| . DLAGG)