diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-29 07:42:49 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-29 07:42:49 +0000 |
| commit | 9bef621350fff8de58a30cada7c1a64d76b778fb (patch) | |
| tree | fd9c6c5608f1ac55891ebec171de798375143974 | |
| parent | 8c21fa51748d435b43b06fff98ff3b2e5af8c435 (diff) | |
| download | open-axiom-9bef621350fff8de58a30cada7c1a64d76b778fb.tar.gz | |
* algebra/xpoly.spad.pamphlet (OrderedFreeMonoid): Really make an
OrderedMonoid.
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/algebra/xpoly.spad.pamphlet | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index fc857474..4addb0d3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2009-09-29 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/xpoly.spad.pamphlet (OrderedFreeMonoid): Really make an + OrderedMonoid. + +2009-09-29 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/br-util.boot (htPred2English): Espace "has". * interp/format.boot (pred2English): Likewise. * interp/i-spec1.boot ($specialOps): Likewise. diff --git a/src/algebra/xpoly.spad.pamphlet b/src/algebra/xpoly.spad.pamphlet index a862c711..708f697f 100644 --- a/src/algebra/xpoly.spad.pamphlet +++ b/src/algebra/xpoly.spad.pamphlet @@ -42,7 +42,7 @@ OrderedFreeMonoid(S: OrderedSet): OFMcategory == OFMdefinition where NNI ==> NonNegativeInteger REC ==> Record(gen:S, exp:NNI) - OFMcategory == Join(FreeMonoidCategory S,OrderedSet) with + OFMcategory == Join(FreeMonoidCategory S,OrderedMonoid) with first: % -> S ++ \spad{first(x)} returns the first letter of \spad{x}. rest: % -> % |