
(/VERSIONCHECK 2) 

(DEFPARAMETER |TranscendentalFunctionCategory;AL| 'NIL) 

(DEFUN |TranscendentalFunctionCategory| ()
  (LET (#:G6824)
    (COND (|TranscendentalFunctionCategory;AL|)
          (T
           (SETQ |TranscendentalFunctionCategory;AL|
                   (|TranscendentalFunctionCategory;|)))))) 

(DEFUN |TranscendentalFunctionCategory;| ()
  (PROG (#1=#:G6822)
    (RETURN
     (PROG1
         (LETT #1#
               (|Join| (|TrigonometricFunctionCategory|)
                       (|ArcTrigonometricFunctionCategory|)
                       (|HyperbolicFunctionCategory|)
                       (|ArcHyperbolicFunctionCategory|)
                       (|ElementaryFunctionCategory|)
                       (|mkCategory| '|domain| '(((|pi| ($)) T)) NIL 'NIL NIL))
               |TranscendentalFunctionCategory|)
       (SETELT #1# 0 '(|TranscendentalFunctionCategory|)))))) 

(MAKEPROP '|TranscendentalFunctionCategory| 'NILADIC T) 
