aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/ULSCAT.lsp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-04-24 16:06:58 +0000
committerdos-reis <gdr@axiomatics.org>2009-04-24 16:06:58 +0000
commit67f37d74670b259da00b58bf8d81986bc1a47444 (patch)
tree75add71faacb8fda7a63988ce8b179b18a51980f /src/algebra/strap/ULSCAT.lsp
parent3b24f6e21fc68e562a47f36a4a693391da50fdf3 (diff)
downloadopen-axiom-67f37d74670b259da00b58bf8d81986bc1a47444.tar.gz
* algebra/strap/ULSCAT.lsp: Remove.
Diffstat (limited to 'src/algebra/strap/ULSCAT.lsp')
-rw-r--r--src/algebra/strap/ULSCAT.lsp113
1 files changed, 0 insertions, 113 deletions
diff --git a/src/algebra/strap/ULSCAT.lsp b/src/algebra/strap/ULSCAT.lsp
deleted file mode 100644
index d82c1a35..00000000
--- a/src/algebra/strap/ULSCAT.lsp
+++ /dev/null
@@ -1,113 +0,0 @@
-
-(/VERSIONCHECK 2)
-
-(DEFPARAMETER |UnivariateLaurentSeriesCategory;CAT| 'NIL)
-
-(DEFPARAMETER |UnivariateLaurentSeriesCategory;AL| 'NIL)
-
-(DEFUN |UnivariateLaurentSeriesCategory;| (|t#1|)
- (PROG (#0=#:G1400)
- (RETURN
- (PROG1 (LETT #0#
- (|sublisV|
- (PAIR '(|t#1|) (LIST (|devaluate| |t#1|)))
- (|sublisV|
- (PAIR '(#1=#:G1399) (LIST '(|Integer|)))
- (COND
- (|UnivariateLaurentSeriesCategory;CAT|)
- ('T
- (LETT |UnivariateLaurentSeriesCategory;CAT|
- (|Join|
- (|UnivariatePowerSeriesCategory|
- '|t#1| '#1#)
- (|mkCategory| '|domain|
- '(((|series|
- ($
- (|Stream|
- (|Record|
- (|:| |k| (|Integer|))
- (|:| |c| |t#1|)))))
- T)
- ((|multiplyCoefficients|
- ($
- (|Mapping| |t#1|
- (|Integer|))
- $))
- T)
- ((|rationalFunction|
- ((|Fraction|
- (|Polynomial| |t#1|))
- $ (|Integer|)))
- (|has| |t#1|
- (|IntegralDomain|)))
- ((|rationalFunction|
- ((|Fraction|
- (|Polynomial| |t#1|))
- $ (|Integer|) (|Integer|)))
- (|has| |t#1|
- (|IntegralDomain|)))
- ((|integrate| ($ $))
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|)))))
- ((|integrate| ($ $ (|Symbol|)))
- (AND
- (|has| |t#1|
- (SIGNATURE |variables|
- ((|List| (|Symbol|)) |t#1|)))
- (|has| |t#1|
- (SIGNATURE |integrate|
- (|t#1| |t#1| (|Symbol|))))
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|))))))
- ((|integrate| ($ $ (|Symbol|)))
- (AND
- (|has| |t#1|
- (|AlgebraicallyClosedFunctionSpace|
- (|Integer|)))
- (|has| |t#1|
- (|PrimitiveFunctionCategory|))
- (|has| |t#1|
- (|TranscendentalFunctionCategory|))
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|)))))))
- '(((|RadicalCategory|)
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|)))))
- ((|TranscendentalFunctionCategory|)
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|)))))
- ((|Field|)
- (|has| |t#1| (|Field|))))
- '((|Symbol|)
- (|Fraction|
- (|Polynomial| |t#1|))
- (|Integer|)
- (|Stream|
- (|Record|
- (|:| |k| (|Integer|))
- (|:| |c| |t#1|))))
- NIL))
- . #2=(|UnivariateLaurentSeriesCategory|)))))) . #2#)
- (|setShellEntry| #0# 0
- (LIST '|UnivariateLaurentSeriesCategory|
- (|devaluate| |t#1|)))))))
-
-(DEFUN |UnivariateLaurentSeriesCategory| (#0=#:G1401)
- (LET (#1=#:G1402)
- (COND
- ((SETQ #1#
- (|assoc| (|devaluate| #0#)
- |UnivariateLaurentSeriesCategory;AL|))
- (CDR #1#))
- (T (SETQ |UnivariateLaurentSeriesCategory;AL|
- (|cons5| (CONS (|devaluate| #0#)
- (SETQ #1#
- (|UnivariateLaurentSeriesCategory;|
- #0#)))
- |UnivariateLaurentSeriesCategory;AL|))
- #1#))))