
(/VERSIONCHECK 2) 

(DEFPARAMETER |TrigonometricFunctionCategory;AL| 'NIL) 

(DEFUN |TrigonometricFunctionCategory| ()
  (LET (#:G1817)
    (COND
      (|TrigonometricFunctionCategory;AL|)
      (T (SETQ |TrigonometricFunctionCategory;AL|
               (|TrigonometricFunctionCategory;|)))))) 

(DEFUN |TrigonometricFunctionCategory;| ()
  (PROG (#0=#:G1815)
    (RETURN
      (PROG1 (LETT #0#
                   (|Join| (|mkCategory| '|domain|
                               '(((|cos| ($ $)) T) ((|cot| ($ $)) T)
                                 ((|csc| ($ $)) T) ((|sec| ($ $)) T)
                                 ((|sin| ($ $)) T) ((|tan| ($ $)) T))
                               NIL 'NIL NIL))
                   |TrigonometricFunctionCategory|)
        (SETELT #0# 0 '(|TrigonometricFunctionCategory|)))))) 

(MAKEPROP '|TrigonometricFunctionCategory| 'NILADIC T) 
