
(/VERSIONCHECK 2) 

(DEFPARAMETER |UnivariatePuiseuxSeriesCategory;CAT| 'NIL) 

(DEFPARAMETER |UnivariatePuiseuxSeriesCategory;AL| 'NIL) 

(DEFUN |UnivariatePuiseuxSeriesCategory| (#0=#:G1818)
  (LET (#1=#:G1819)
    (COND
      ((SETQ #1#
             (|assoc| #2=(|devaluate| #0#)
                      |UnivariatePuiseuxSeriesCategory;AL|))
       (CDR #1#))
      (T (SETQ |UnivariatePuiseuxSeriesCategory;AL|
               (|cons5| (CONS #2#
                              (SETQ #1#
                                    (|UnivariatePuiseuxSeriesCategory;|
                                     #0#)))
                        |UnivariatePuiseuxSeriesCategory;AL|))
         #1#)))) 

(DEFUN |UnivariatePuiseuxSeriesCategory;| (|t#1|)
  (PROG (#0=#:G1817)
    (RETURN
      (PROG1 (LETT #0#
                   (|sublisV|
                       (PAIR '(|t#1|) (LIST (|devaluate| |t#1|)))
                       (|sublisV|
                           (PAIR '(#1=#:G1816)
                                 (LIST '(|Fraction| (|Integer|))))
                           (COND
                             (|UnivariatePuiseuxSeriesCategory;CAT|)
                             ('T
                              (LETT |UnivariatePuiseuxSeriesCategory;CAT|
                                    (|Join|
                                     (|UnivariatePowerSeriesCategory|
                                      '|t#1| '#1#)
                                     (|mkCategory| '|domain|
                                      '(((|series|
                                          ($ (|NonNegativeInteger|)
                                           (|Stream|
                                            (|Record|
                                             (|:| |k|
                                              (|Fraction| (|Integer|)))
                                             (|:| |c| |t#1|)))))
                                         T)
                                        ((|multiplyExponents|
                                          ($ $
                                           (|Fraction| (|Integer|))))
                                         T)
                                        ((|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| (|Integer|))
                                        (|NonNegativeInteger|)
                                        (|Stream|
                                         (|Record|
                                          (|:| |k|
                                           (|Fraction| (|Integer|)))
                                          (|:| |c| |t#1|))))
                                      NIL))
                                    . #2=(|UnivariatePuiseuxSeriesCategory|)))))) . #2#)
        (SETELT #0# 0
                (LIST '|UnivariatePuiseuxSeriesCategory|
                      (|devaluate| |t#1|))))))) 
