
(/VERSIONCHECK 2) 

(DEFPARAMETER |UnivariateTaylorSeriesCategory;CAT| 'NIL) 

(DEFPARAMETER |UnivariateTaylorSeriesCategory;AL| 'NIL) 

(DEFUN |UnivariateTaylorSeriesCategory| (#0=#:G1837)
  (LET (#1=#:G1838)
    (COND
      ((SETQ #1#
             (|assoc| #2=(|devaluate| #0#)
                      |UnivariateTaylorSeriesCategory;AL|))
       (CDR #1#))
      (T (SETQ |UnivariateTaylorSeriesCategory;AL|
               (|cons5| (CONS #2#
                              (SETQ #1#
                                    (|UnivariateTaylorSeriesCategory;|
                                     #0#)))
                        |UnivariateTaylorSeriesCategory;AL|))
         #1#)))) 

(DEFUN |UnivariateTaylorSeriesCategory;| (|t#1|)
  (PROG (#0=#:G1836)
    (RETURN
      (PROG1 (LETT #0#
                   (|sublisV|
                       (PAIR '(|t#1|) (LIST (|devaluate| |t#1|)))
                       (|sublisV|
                           (PAIR '(#1=#:G1835)
                                 (LIST '(|NonNegativeInteger|)))
                           (COND
                             (|UnivariateTaylorSeriesCategory;CAT|)
                             ('T
                              (LETT |UnivariateTaylorSeriesCategory;CAT|
                                    (|Join|
                                     (|UnivariatePowerSeriesCategory|
                                      '|t#1| '#1#)
                                     (|mkCategory| '|domain|
                                      '(((|series|
                                          ($
                                           (|Stream|
                                            (|Record|
                                             (|:| |k|
                                              (|NonNegativeInteger|))
                                             (|:| |c| |t#1|)))))
                                         T)
                                        ((|coefficients|
                                          ((|Stream| |t#1|) $))
                                         T)
                                        ((|series|
                                          ($ (|Stream| |t#1|)))
                                         T)
                                        ((|quoByVar| ($ $)) T)
                                        ((|multiplyCoefficients|
                                          ($
                                           (|Mapping| |t#1|
                                            (|Integer|))
                                           $))
                                         T)
                                        ((|polynomial|
                                          ((|Polynomial| |t#1|) $
                                           (|NonNegativeInteger|)))
                                         T)
                                        ((|polynomial|
                                          ((|Polynomial| |t#1|) $
                                           (|NonNegativeInteger|)
                                           (|NonNegativeInteger|)))
                                         T)
                                        ((** ($ $ |t#1|))
                                         (|has| |t#1| (|Field|)))
                                        ((|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|))))))
                                      '((|Symbol|) (|Polynomial| |t#1|)
                                        (|NonNegativeInteger|)
                                        (|Stream| |t#1|)
                                        (|Stream|
                                         (|Record|
                                          (|:| |k|
                                           (|NonNegativeInteger|))
                                          (|:| |c| |t#1|))))
                                      NIL))
                                    . #2=(|UnivariateTaylorSeriesCategory|)))))) . #2#)
        (SETELT #0# 0
                (LIST '|UnivariateTaylorSeriesCategory|
                      (|devaluate| |t#1|))))))) 
