aboutsummaryrefslogtreecommitdiff
path: root/src/input/lexp.input.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-10-14 08:53:35 +0000
committerdos-reis <gdr@axiomatics.org>2007-10-14 08:53:35 +0000
commit095703f8cc7439cddda478b12667c5ac8264b6d5 (patch)
treecc7a8dc987cd91ec29082900cac30c28e339b20b /src/input/lexp.input.pamphlet
parent80f5cef01abdaee3b8c818ea07f534570e94c6d4 (diff)
downloadopen-axiom-095703f8cc7439cddda478b12667c5ac8264b6d5.tar.gz
more work toward removing depsys
Diffstat (limited to 'src/input/lexp.input.pamphlet')
-rw-r--r--src/input/lexp.input.pamphlet26
1 files changed, 13 insertions, 13 deletions
diff --git a/src/input/lexp.input.pamphlet b/src/input/lexp.input.pamphlet
index f8af5761..4f70d158 100644
--- a/src/input/lexp.input.pamphlet
+++ b/src/input/lexp.input.pamphlet
@@ -12,19 +12,19 @@
<<*>>=
)cl all
- a: Symbol := 'a
- b: Symbol := 'b
- coef := Fraction(Integer)
- group := LieExponentials(Symbol, coef, 3)
- lpoly := LiePolynomial(Symbol, coef)
- poly := XPBWPolynomial(Symbol, coef)
- ea := exp(a::lpoly)$group
- eb := exp(b::lpoly)$group
- g: group := ea*eb
- g :: poly
- log(g)$group
- g1: group := inv(g)
- g*g1
+a: Symbol := 'a
+b: Symbol := 'b
+coef := Fraction(Integer)
+group := LieExponentials(Symbol, coef, 3)
+lpoly := LiePolynomial(Symbol, coef)
+poly := XPBWPolynomial(Symbol, coef)
+ea := exp(a::lpoly)$group
+eb := exp(b::lpoly)$group
+g: group := ea*eb
+g :: poly
+log(g)$group
+g1: group := inv(g)
+g*g1
@
\eject
\begin{thebibliography}{99}