diff options
| -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: % -> % |