
(/VERSIONCHECK 2) 

(DEFUN |TRMANIP;expandTrigProducts;2F;1| (|e| $)
  (SPADCALL (LIST (QREFELT $ 23) (QREFELT $ 24) (QREFELT $ 25)) |e| 10
            (QREFELT $ 29))) 

(DEFUN |TRMANIP;logArgs| (|l| $)
  (PROG (|sum| |arg| |prod| #1=#:G1857 |term|)
    (RETURN
     (SEQ (LETT |sum| (|spadConstant| $ 31) . #2=(|TRMANIP;logArgs|))
          (LETT |arg| (|spadConstant| $ 32) . #2#)
          (SEQ (LETT |term| NIL . #2#) (LETT #1# |l| . #2#) G190
               (COND
                ((OR (ATOM #1#) (PROGN (LETT |term| (CAR #1#) . #2#) NIL))
                 (GO G191)))
               (SEQ
                (EXIT
                 (COND
                  ((SPADCALL |term| '|log| (QREFELT $ 34))
                   (LETT |arg|
                         (SPADCALL |arg|
                                   (SPADCALL
                                    (|SPADfirst|
                                     (SPADCALL
                                      (|SPADfirst|
                                       (SPADCALL |term| (QREFELT $ 36)))
                                      (QREFELT $ 39)))
                                    (QREFELT $ 40))
                                   (QREFELT $ 15))
                         . #2#))
                  ('T
                   (SEQ (LETT |prod| (SPADCALL |term| (QREFELT $ 43)) . #2#)
                        (COND
                         ((QEQCAR |prod| 0)
                          (COND
                           ((SPADCALL (QCDR (QCDR |prod|)) '|log|
                                      (QREFELT $ 44))
                            (EXIT
                             (LETT |arg|
                                   (SPADCALL |arg|
                                             (SPADCALL
                                              (SPADCALL
                                               (|SPADfirst|
                                                (SPADCALL (QCDR (QCDR |prod|))
                                                          (QREFELT $ 39)))
                                               (QCAR (QCDR |prod|))
                                               (QREFELT $ 45))
                                              (QREFELT $ 40))
                                             (QREFELT $ 15))
                                   . #2#))))))
                        (EXIT
                         (LETT |sum| (SPADCALL |sum| |term| (QREFELT $ 16))
                               . #2#)))))))
               (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
          (EXIT
           (SPADCALL |sum| (SPADCALL |arg| (QREFELT $ 46)) (QREFELT $ 16))))))) 

(DEFUN |TRMANIP;simplifyLog;2F;3| (|e| $)
  (SPADCALL (|TRMANIP;simplifyLog1| (SPADCALL |e| (QREFELT $ 47)) $)
            (|TRMANIP;simplifyLog1| (SPADCALL |e| (QREFELT $ 48)) $)
            (QREFELT $ 20))) 

(DEFUN |TRMANIP;simplifyLog1| (|e| $)
  (PROG (#1=#:G1909 #2=#:G1908 #3=#:G1910 #4=#:G1921 #5=#:G1793 |terms|
         |foundLog| #6=#:G1901 #7=#:G1900 #8=#:G1902 #9=#:G1920 #10=#:G1792
         |args| |i| |nterms| |exprs| #11=#:G1919 |term| #12=#:G1918 #13=#:G1917
         #14=#:G1916 |u| #15=#:G1915 |kers| |expt| |termList| |prod|)
    (RETURN
     (SEQ
      (COND ((SPADCALL |e| '|log| (QREFELT $ 49)) |e|)
            (#16='T
             (SEQ
              (LETT |prod| (SPADCALL |e| (QREFELT $ 43))
                    . #17=(|TRMANIP;simplifyLog1|))
              (COND
               ((QEQCAR |prod| 0)
                (COND
                 ((SPADCALL (QCDR (QCDR |prod|)) '|log| (QREFELT $ 44))
                  (EXIT
                   (SPADCALL
                    (SPADCALL
                     (SPADCALL
                      (|SPADfirst|
                       (SPADCALL (QCDR (QCDR |prod|)) (QREFELT $ 39)))
                      (QCAR (QCDR |prod|)) (QREFELT $ 45))
                     (QREFELT $ 40))
                    (QREFELT $ 46)))))))
              (LETT |termList| (SPADCALL |e| (QREFELT $ 51)) . #17#)
              (EXIT
               (COND
                ((QEQCAR |termList| 1)
                 (SEQ (LETT |terms| (SPADCALL |e| (QREFELT $ 52)) . #17#)
                      (EXIT
                       (COND
                        ((QEQCAR |terms| 1)
                         (SEQ
                          (LETT |expt| (SPADCALL |e| (QREFELT $ 55)) . #17#)
                          (COND
                           ((QEQCAR |expt| 0)
                            (COND
                             ((NULL (EQL (QCDR (QCDR |expt|)) 1))
                              (EXIT
                               (SPADCALL
                                (SPADCALL (QCAR (QCDR |expt|)) (QREFELT $ 40))
                                (QCDR (QCDR |expt|)) (QREFELT $ 45)))))))
                          (LETT |kers| (SPADCALL |e| (QREFELT $ 36)) . #17#)
                          (COND ((NULL (EQL (LENGTH |kers|) 1)) (EXIT |e|)))
                          (EXIT
                           (SPADCALL
                            (SPADCALL (|SPADfirst| |kers|) (QREFELT $ 57))
                            (PROGN
                             (LETT #15# NIL . #17#)
                             (SEQ (LETT |u| NIL . #17#)
                                  (LETT #14#
                                        (SPADCALL (|SPADfirst| |kers|)
                                                  (QREFELT $ 39))
                                        . #17#)
                                  G190
                                  (COND
                                   ((OR (ATOM #14#)
                                        (PROGN
                                         (LETT |u| (CAR #14#) . #17#)
                                         NIL))
                                    #18=(GO G191)))
                                  (SEQ
                                   (EXIT
                                    (LETT #15#
                                          (CONS (SPADCALL |u| (QREFELT $ 40))
                                                #15#)
                                          . #17#)))
                                  (LETT #14# (CDR #14#) . #17#) #19=(GO G190)
                                  G191 (EXIT (NREVERSE0 #15#))))
                            (QREFELT $ 59)))))
                        (#16# (|TRMANIP;logArgs| (QCDR |terms|) $))))))
                (#16#
                 (SEQ
                  (LETT |terms|
                        (PROGN
                         (LETT #13# NIL . #17#)
                         (SEQ (LETT |term| NIL . #17#)
                              (LETT #12# (QCDR |termList|) . #17#) G190
                              (COND
                               ((OR (ATOM #12#)
                                    (PROGN
                                     (LETT |term| (CAR #12#) . #17#)
                                     NIL))
                                #18#))
                              (SEQ
                               (EXIT
                                (LETT #13#
                                      (CONS (SPADCALL |term| (QREFELT $ 40))
                                            #13#)
                                      . #17#)))
                              (LETT #12# (CDR #12#) . #17#) #19# G191
                              (EXIT (NREVERSE0 #13#))))
                        . #17#)
                  (LETT |exprs| NIL . #17#) (LETT |nterms| NIL . #17#)
                  (SEQ (LETT |term| NIL . #17#) (LETT #11# |terms| . #17#) G190
                       (COND
                        ((OR (ATOM #11#)
                             (PROGN (LETT |term| (CAR #11#) . #17#) NIL))
                         #18#))
                       (SEQ
                        (EXIT
                         (COND
                          ((QEQCAR (SPADCALL |term| (QREFELT $ 61)) 0)
                           (LETT |exprs| (CONS |term| |exprs|) . #17#))
                          ('T (LETT |nterms| (CONS |term| |nterms|) . #17#)))))
                       (LETT #11# (CDR #11#) . #17#) #19# G191 (EXIT NIL))
                  (LETT |terms| |nterms| . #17#)
                  (COND
                   ((NULL (NULL |exprs|))
                    (SEQ (LETT |foundLog| 'NIL . #17#) (LETT |i| 0 . #17#)
                         (SEQ G190
                              (COND
                               ((NULL
                                 (COND (|foundLog| 'NIL)
                                       ('T (< |i| (LENGTH |terms|)))))
                                #18#))
                              (SEQ (LETT |i| (+ |i| 1) . #17#)
                                   (EXIT
                                    (COND
                                     ((SPADCALL
                                       (SPADCALL |terms| |i| (QREFELT $ 63))
                                       '|log| (QREFELT $ 34))
                                      (SEQ
                                       (LETT |args|
                                             (SPADCALL
                                              (SPADCALL
                                               (SPADCALL |terms| |i|
                                                         (QREFELT $ 63))
                                               (QREFELT $ 65))
                                              (QREFELT $ 39))
                                             . #17#)
                                       (SPADCALL |terms| |i|
                                                 (SPADCALL
                                                  (|TRMANIP;simplifyLog1|
                                                   (SPADCALL
                                                    (|SPADfirst| |args|)
                                                    (PROGN
                                                     (LETT #6# NIL . #17#)
                                                     (SEQ
                                                      (LETT #10# NIL . #17#)
                                                      (LETT #9# |exprs| . #17#)
                                                      G190
                                                      (COND
                                                       ((OR (ATOM #9#)
                                                            (PROGN
                                                             (LETT #10#
                                                                   (CAR #9#)
                                                                   . #17#)
                                                             NIL))
                                                        #18#))
                                                      (SEQ
                                                       (EXIT
                                                        (PROGN
                                                         (LETT #8# #10# . #17#)
                                                         (COND
                                                          (#6#
                                                           (LETT #7#
                                                                 (SPADCALL #7#
                                                                           #8#
                                                                           (QREFELT
                                                                            $
                                                                            15))
                                                                 . #17#))
                                                          ('T
                                                           (PROGN
                                                            (LETT #7# #8#
                                                                  . #17#)
                                                            (LETT #6# 'T
                                                                  . #17#)))))))
                                                      (LETT #9# (CDR #9#)
                                                            . #17#)
                                                      #19# G191 (EXIT NIL))
                                                     (COND (#6# #7#)
                                                           ('T
                                                            (|spadConstant| $
                                                                            32))))
                                                    (QREFELT $ 66))
                                                   $)
                                                  (QREFELT $ 46))
                                                 (QREFELT $ 67))
                                       (EXIT (LETT |foundLog| 'T . #17#)))))))
                              NIL #19# G191 (EXIT NIL))
                         (EXIT
                          (COND
                           ((NULL |foundLog|)
                            (LETT |terms| (APPEND |exprs| |terms|)
                                  . #17#)))))))
                  (EXIT
                   (PROGN
                    (LETT #1# NIL . #17#)
                    (SEQ (LETT #5# NIL . #17#) (LETT #4# |terms| . #17#) G190
                         (COND
                          ((OR (ATOM #4#)
                               (PROGN (LETT #5# (CAR #4#) . #17#) NIL))
                           #18#))
                         (SEQ
                          (EXIT
                           (PROGN
                            (LETT #3# #5# . #17#)
                            (COND
                             (#1#
                              (LETT #2# (SPADCALL #2# #3# (QREFELT $ 15))
                                    . #17#))
                             ('T
                              (PROGN
                               (LETT #2# #3# . #17#)
                               (LETT #1# 'T . #17#)))))))
                         (LETT #4# (CDR #4#) . #17#) #19# G191 (EXIT NIL))
                    (COND (#1# #2#) (#16# (|spadConstant| $ 32)))))))))))))))) 

(DEFUN |TRMANIP;simplify;2F;5| (|x| $)
  (SPADCALL (|TRMANIP;simplify0| |x| $) (QREFELT $ 69))) 

(DEFUN |TRMANIP;simplify;2F;6| (|x| $) (|TRMANIP;simplify0| |x| $)) 

(DEFUN |TRMANIP;expandpow| (|k| $)
  (PROG (|de| |ne| |b| |a| |arg|)
    (RETURN
     (SEQ
      (LETT |a|
            (SPADCALL
             (|SPADfirst|
              (LETT |arg| (SPADCALL |k| (QREFELT $ 39))
                    . #1=(|TRMANIP;expandpow|)))
             (QREFELT $ 71))
            . #1#)
      (LETT |b| (SPADCALL (SPADCALL |arg| (QREFELT $ 72)) (QREFELT $ 71))
            . #1#)
      (LETT |ne|
            (COND
             ((SPADCALL (SPADCALL |a| (QREFELT $ 74)) (|spadConstant| $ 76)
                        (QREFELT $ 77))
              (|spadConstant| $ 32))
             (#2='T
              (SPADCALL (SPADCALL (SPADCALL |a| (QREFELT $ 74)) (QREFELT $ 78))
                        |b| (QREFELT $ 66))))
            . #1#)
      (LETT |de|
            (COND
             ((SPADCALL (SPADCALL |a| (QREFELT $ 79)) (|spadConstant| $ 76)
                        (QREFELT $ 77))
              (|spadConstant| $ 32))
             (#2#
              (SPADCALL (SPADCALL (SPADCALL |a| (QREFELT $ 79)) (QREFELT $ 78))
                        (SPADCALL |b| (QREFELT $ 80)) (QREFELT $ 66))))
            . #1#)
      (EXIT (SPADCALL |ne| |de| (QREFELT $ 15))))))) 

(DEFUN |TRMANIP;termexp| (|p| $)
  (PROG (|coef| #1=#:G1939 |u| #2=#:G1938 |exponent| |d| #3=#:G1937 |k| |lpow|
         |lk|)
    (RETURN
     (SEQ (LETT |exponent| (|spadConstant| $ 31) . #4=(|TRMANIP;termexp|))
          (LETT |coef| (SPADCALL (SPADCALL |p| (QREFELT $ 81)) (QREFELT $ 82))
                . #4#)
          (LETT |lpow|
                (SPADCALL (CONS #'|TRMANIP;termexp!0| $)
                          (LETT |lk| (SPADCALL |p| (QREFELT $ 84)) . #4#)
                          (QREFELT $ 86))
                . #4#)
          (SEQ (LETT |k| NIL . #4#) (LETT #3# |lk| . #4#) G190
               (COND
                ((OR (ATOM #3#) (PROGN (LETT |k| (CAR #3#) . #4#) NIL))
                 #5=(GO G191)))
               (SEQ (LETT |d| (SPADCALL |p| |k| (QREFELT $ 88)) . #4#)
                    (EXIT
                     (COND
                      ((SPADCALL |k| '|exp| (QREFELT $ 44))
                       (LETT |exponent|
                             (SPADCALL |exponent|
                                       (SPADCALL |d|
                                                 (|SPADfirst|
                                                  (SPADCALL |k|
                                                            (QREFELT $ 39)))
                                                 (QREFELT $ 89))
                                       (QREFELT $ 16))
                             . #4#))
                      ((NULL (SPADCALL |k| '|%power| (QREFELT $ 44)))
                       (LETT |coef|
                             (SPADCALL |coef|
                                       (SPADCALL (|spadConstant| $ 76)
                                                 (SPADCALL
                                                  (SPADCALL |k| (QREFELT $ 57))
                                                  (PROGN
                                                   (LETT #2# NIL . #4#)
                                                   (SEQ (LETT |u| NIL . #4#)
                                                        (LETT #1#
                                                              (SPADCALL |k|
                                                                        (QREFELT
                                                                         $ 39))
                                                              . #4#)
                                                        G190
                                                        (COND
                                                         ((OR (ATOM #1#)
                                                              (PROGN
                                                               (LETT |u|
                                                                     (CAR #1#)
                                                                     . #4#)
                                                               NIL))
                                                          #5#))
                                                        (SEQ
                                                         (EXIT
                                                          (LETT #2#
                                                                (CONS
                                                                 (SPADCALL |u|
                                                                           (QREFELT
                                                                            $
                                                                            90))
                                                                 #2#)
                                                                . #4#)))
                                                        (LETT #1# (CDR #1#)
                                                              . #4#)
                                                        #6=(GO G190) G191
                                                        (EXIT
                                                         (NREVERSE0 #2#))))
                                                  (SPADCALL |k| (QREFELT $ 91))
                                                  (QREFELT $ 92))
                                                 |d| (QREFELT $ 93))
                                       (QREFELT $ 94))
                             . #4#)))))
               (LETT #3# (CDR #3#) . #4#) #6# G191 (EXIT NIL))
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |coef| (QREFELT $ 78))
                      (SPADCALL |exponent| (QREFELT $ 95)) (QREFELT $ 15))
            (|TRMANIP;powersimp| |p| |lpow| $) (QREFELT $ 15))))))) 

(DEFUN |TRMANIP;termexp!0| (|z1| $) (SPADCALL |z1| '|%power| (QREFELT $ 44))) 

(DEFUN |TRMANIP;expandPower;2F;9| (|f| $)
  (PROG (#1=#:G1944 |k| #2=#:G1943 |l|)
    (RETURN
     (SEQ
      (LETT |l|
            (SPADCALL (CONS #'|TRMANIP;expandPower;2F;9!0| $)
                      (SPADCALL |f| (QREFELT $ 36)) (QREFELT $ 86))
            . #3=(|TRMANIP;expandPower;2F;9|))
      (EXIT
       (SPADCALL |f| |l|
                 (PROGN
                  (LETT #2# NIL . #3#)
                  (SEQ (LETT |k| NIL . #3#) (LETT #1# |l| . #3#) G190
                       (COND
                        ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
                         (GO G191)))
                       (SEQ
                        (EXIT
                         (LETT #2# (CONS (|TRMANIP;expandpow| |k| $) #2#)
                               . #3#)))
                       (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                       (EXIT (NREVERSE0 #2#))))
                 (QREFELT $ 96))))))) 

(DEFUN |TRMANIP;expandPower;2F;9!0| (|z1| $)
  (SPADCALL |z1| '|%power| (QREFELT $ 44))) 

(DEFUN |TRMANIP;powersimp| (|p| |l| $)
  (PROG (|exponent| #1=#:G1950 |k0| |lk| |a| |arg| |k|)
    (RETURN
     (SEQ
      (COND ((NULL |l|) (|spadConstant| $ 32))
            (#2='T
             (SEQ (LETT |k| (|SPADfirst| |l|) . #3=(|TRMANIP;powersimp|))
                  (LETT |a|
                        (|SPADfirst|
                         (LETT |arg| (SPADCALL |k| (QREFELT $ 39)) . #3#))
                        . #3#)
                  (LETT |exponent|
                        (SPADCALL (SPADCALL |p| |k| (QREFELT $ 88))
                                  (SPADCALL |arg| (QREFELT $ 72))
                                  (QREFELT $ 97))
                        . #3#)
                  (EXIT
                   (COND
                    ((NULL
                      (LETT |lk|
                            (SPADCALL
                             (CONS #'|TRMANIP;powersimp!0| (VECTOR $ |a|))
                             (CDR |l|) (QREFELT $ 86))
                            . #3#))
                     (SPADCALL (SPADCALL |a| |exponent| (QREFELT $ 66))
                               (|TRMANIP;powersimp| |p| (CDR |l|) $)
                               (QREFELT $ 15)))
                    (#2#
                     (SEQ
                      (SEQ (LETT |k0| NIL . #3#) (LETT #1# |lk| . #3#) G190
                           (COND
                            ((OR (ATOM #1#)
                                 (PROGN (LETT |k0| (CAR #1#) . #3#) NIL))
                             (GO G191)))
                           (SEQ
                            (EXIT
                             (LETT |exponent|
                                   (SPADCALL |exponent|
                                             (SPADCALL
                                              (SPADCALL |p| |k0|
                                                        (QREFELT $ 88))
                                              (SPADCALL
                                               (SPADCALL |k0| (QREFELT $ 39))
                                               (QREFELT $ 72))
                                              (QREFELT $ 97))
                                             (QREFELT $ 16))
                                   . #3#)))
                           (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                           (EXIT NIL))
                      (EXIT
                       (SPADCALL (SPADCALL |a| |exponent| (QREFELT $ 66))
                                 (|TRMANIP;powersimp| |p|
                                  (SPADCALL (CDR |l|) |lk| (QREFELT $ 100)) $)
                                 (QREFELT $ 15)))))))))))))) 

(DEFUN |TRMANIP;powersimp!0| (|z1| $$)
  (PROG (|a| $)
    (LETT |a| (QREFELT $$ 1) . #1=(|TRMANIP;powersimp|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |a| (SPADCALL (SPADCALL |z1| (QREFELT $ 39)) (QREFELT $ 98))
                (QREFELT $ 99)))))) 

(DEFUN |TRMANIP;t2t| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 14)) (SPADCALL |x| (QREFELT $ 13))
            (QREFELT $ 20))) 

(DEFUN |TRMANIP;c2t| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 13)) (SPADCALL |x| (QREFELT $ 14))
            (QREFELT $ 20))) 

(DEFUN |TRMANIP;c2s| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 14)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;s2c| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 13)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;s2c2| (|x| $)
  (SPADCALL (|spadConstant| $ 32)
            (SPADCALL (SPADCALL |x| (QREFELT $ 13)) 2 (QREFELT $ 45))
            (QREFELT $ 17))) 

(DEFUN |TRMANIP;th2th| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 102)) (SPADCALL |x| (QREFELT $ 103))
            (QREFELT $ 20))) 

(DEFUN |TRMANIP;ch2th| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 103)) (SPADCALL |x| (QREFELT $ 102))
            (QREFELT $ 20))) 

(DEFUN |TRMANIP;ch2sh| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 102)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;sh2ch| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 103)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;sh2ch2| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 103)) 2 (QREFELT $ 45))
            (|spadConstant| $ 32) (QREFELT $ 17))) 

(DEFUN |TRMANIP;ueval| (|x| |s| |f| $)
  (SPADCALL |x| (SPADCALL |s| (QREFELT $ 105)) |f| (QREFELT $ 107))) 

(DEFUN |TRMANIP;ueval2| (|x| |s| |f| $)
  (SPADCALL |x| (SPADCALL |s| (QREFELT $ 105)) 2 |f| (QREFELT $ 108))) 

(DEFUN |TRMANIP;cos2sec;2F;23| (|x| $)
  (|TRMANIP;ueval| |x| "cos" (CONS #'|TRMANIP;cos2sec;2F;23!0| $) $)) 

(DEFUN |TRMANIP;cos2sec;2F;23!0| (|z1| $)
  (SPADCALL (SPADCALL |z1| (QREFELT $ 109)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;sin2csc;2F;24| (|x| $)
  (|TRMANIP;ueval| |x| "sin" (CONS #'|TRMANIP;sin2csc;2F;24!0| $) $)) 

(DEFUN |TRMANIP;sin2csc;2F;24!0| (|z1| $)
  (SPADCALL (SPADCALL |z1| (QREFELT $ 111)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;csc2sin;2F;25| (|x| $)
  (|TRMANIP;ueval| |x| "csc" (CONS (|function| |TRMANIP;c2s|) $) $)) 

(DEFUN |TRMANIP;sec2cos;2F;26| (|x| $)
  (|TRMANIP;ueval| |x| "sec" (CONS (|function| |TRMANIP;s2c|) $) $)) 

(DEFUN |TRMANIP;tan2cot;2F;27| (|x| $)
  (|TRMANIP;ueval| |x| "tan" (CONS #'|TRMANIP;tan2cot;2F;27!0| $) $)) 

(DEFUN |TRMANIP;tan2cot;2F;27!0| (|z1| $)
  (SPADCALL (SPADCALL |z1| (QREFELT $ 115)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;cot2tan;2F;28| (|x| $)
  (|TRMANIP;ueval| |x| "cot" (CONS #'|TRMANIP;cot2tan;2F;28!0| $) $)) 

(DEFUN |TRMANIP;cot2tan;2F;28!0| (|z1| $)
  (SPADCALL (SPADCALL |z1| (QREFELT $ 117)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;tan2trig;2F;29| (|x| $)
  (|TRMANIP;ueval| |x| "tan" (CONS (|function| |TRMANIP;t2t|) $) $)) 

(DEFUN |TRMANIP;cot2trig;2F;30| (|x| $)
  (|TRMANIP;ueval| |x| "cot" (CONS (|function| |TRMANIP;c2t|) $) $)) 

(DEFUN |TRMANIP;cosh2sech;2F;31| (|x| $)
  (|TRMANIP;ueval| |x| "cosh" (CONS #'|TRMANIP;cosh2sech;2F;31!0| $) $)) 

(DEFUN |TRMANIP;cosh2sech;2F;31!0| (|z1| $)
  (SPADCALL (SPADCALL |z1| (QREFELT $ 121)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;sinh2csch;2F;32| (|x| $)
  (|TRMANIP;ueval| |x| "sinh" (CONS #'|TRMANIP;sinh2csch;2F;32!0| $) $)) 

(DEFUN |TRMANIP;sinh2csch;2F;32!0| (|z1| $)
  (SPADCALL (SPADCALL |z1| (QREFELT $ 123)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;csch2sinh;2F;33| (|x| $)
  (|TRMANIP;ueval| |x| "csch" (CONS (|function| |TRMANIP;ch2sh|) $) $)) 

(DEFUN |TRMANIP;sech2cosh;2F;34| (|x| $)
  (|TRMANIP;ueval| |x| "sech" (CONS (|function| |TRMANIP;sh2ch|) $) $)) 

(DEFUN |TRMANIP;tanh2coth;2F;35| (|x| $)
  (|TRMANIP;ueval| |x| "tanh" (CONS #'|TRMANIP;tanh2coth;2F;35!0| $) $)) 

(DEFUN |TRMANIP;tanh2coth;2F;35!0| (|z1| $)
  (SPADCALL (SPADCALL |z1| (QREFELT $ 127)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;coth2tanh;2F;36| (|x| $)
  (|TRMANIP;ueval| |x| "coth" (CONS #'|TRMANIP;coth2tanh;2F;36!0| $) $)) 

(DEFUN |TRMANIP;coth2tanh;2F;36!0| (|z1| $)
  (SPADCALL (SPADCALL |z1| (QREFELT $ 129)) (QREFELT $ 101))) 

(DEFUN |TRMANIP;tanh2trigh;2F;37| (|x| $)
  (|TRMANIP;ueval| |x| "tanh" (CONS (|function| |TRMANIP;th2th|) $) $)) 

(DEFUN |TRMANIP;coth2trigh;2F;38| (|x| $)
  (|TRMANIP;ueval| |x| "coth" (CONS (|function| |TRMANIP;ch2th|) $) $)) 

(DEFUN |TRMANIP;removeCosSq;2F;39| (|x| $)
  (|TRMANIP;ueval2| |x| "cos" (CONS #'|TRMANIP;removeCosSq;2F;39!0| $) $)) 

(DEFUN |TRMANIP;removeCosSq;2F;39!0| (|z1| $)
  (SPADCALL (|spadConstant| $ 32)
            (SPADCALL (SPADCALL |z1| (QREFELT $ 14)) 2 (QREFELT $ 45))
            (QREFELT $ 17))) 

(DEFUN |TRMANIP;removeSinSq;2F;40| (|x| $)
  (|TRMANIP;ueval2| |x| "sin" (CONS (|function| |TRMANIP;s2c2|) $) $)) 

(DEFUN |TRMANIP;removeCoshSq;2F;41| (|x| $)
  (|TRMANIP;ueval2| |x| "cosh" (CONS #'|TRMANIP;removeCoshSq;2F;41!0| $) $)) 

(DEFUN |TRMANIP;removeCoshSq;2F;41!0| (|z1| $)
  (SPADCALL (|spadConstant| $ 32)
            (SPADCALL (SPADCALL |z1| (QREFELT $ 102)) 2 (QREFELT $ 45))
            (QREFELT $ 16))) 

(DEFUN |TRMANIP;removeSinhSq;2F;42| (|x| $)
  (|TRMANIP;ueval2| |x| "sinh" (CONS (|function| |TRMANIP;sh2ch2|) $) $)) 

(DEFUN |TRMANIP;expandLog;2F;43| (|x| $)
  (SPADCALL (|TRMANIP;smplog| (SPADCALL |x| (QREFELT $ 74)) $)
            (|TRMANIP;smplog| (SPADCALL |x| (QREFELT $ 79)) $) (QREFELT $ 20))) 

(DEFUN |TRMANIP;simplifyExp;2F;44| (|x| $)
  (SPADCALL (|TRMANIP;smpexp| (SPADCALL |x| (QREFELT $ 74)) $)
            (|TRMANIP;smpexp| (SPADCALL |x| (QREFELT $ 79)) $) (QREFELT $ 20))) 

(DEFUN |TRMANIP;expand;2F;45| (|x| $)
  (SPADCALL (|TRMANIP;smpexpand| (SPADCALL |x| (QREFELT $ 74)) $)
            (|TRMANIP;smpexpand| (SPADCALL |x| (QREFELT $ 79)) $)
            (QREFELT $ 20))) 

(DEFUN |TRMANIP;smpexpand| (|p| $)
  (SPADCALL (CONS (|function| |TRMANIP;kerexpand|) $) (ELT $ 139) |p|
            (QREFELT $ 143))) 

(DEFUN |TRMANIP;smplog| (|p| $)
  (SPADCALL (CONS (|function| |TRMANIP;logexpand|) $) (ELT $ 139) |p|
            (QREFELT $ 143))) 

(DEFUN |TRMANIP;smp2htrigs| (|p| $)
  (SPADCALL (CONS #'|TRMANIP;smp2htrigs!0| $) (ELT $ 139) |p| (QREFELT $ 143))) 

(DEFUN |TRMANIP;smp2htrigs!0| (|k1| $)
  (SPADCALL (SPADCALL |k1| (QREFELT $ 144)) (QREFELT $ 145))) 

(DEFUN |TRMANIP;htrigs;2F;49| (|f| $)
  (PROG (|g1| |b| |g2| |a| |den| |num| |arg| #1=#:G2004 |x| #2=#:G2003 |op| |k|
         |m|)
    (RETURN
     (SEQ
      (LETT |m| (SPADCALL |f| (QREFELT $ 147)) . #3=(|TRMANIP;htrigs;2F;49|))
      (EXIT
       (COND ((QEQCAR |m| 1) |f|)
             (#4='T
              (SEQ
               (LETT |op| (SPADCALL (LETT |k| (QCDR |m|) . #3#) (QREFELT $ 57))
                     . #3#)
               (LETT |arg|
                     (PROGN
                      (LETT #2# NIL . #3#)
                      (SEQ (LETT |x| NIL . #3#)
                           (LETT #1# (SPADCALL |k| (QREFELT $ 39)) . #3#) G190
                           (COND
                            ((OR (ATOM #1#)
                                 (PROGN (LETT |x| (CAR #1#) . #3#) NIL))
                             (GO G191)))
                           (SEQ
                            (EXIT
                             (LETT #2#
                                   (CONS (SPADCALL |x| (QREFELT $ 145)) #2#)
                                   . #3#)))
                           (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                           (EXIT (NREVERSE0 #2#))))
                     . #3#)
               (LETT |num|
                     (SPADCALL (SPADCALL |f| (QREFELT $ 74)) |k|
                               (QREFELT $ 149))
                     . #3#)
               (LETT |den|
                     (SPADCALL (SPADCALL |f| (QREFELT $ 79)) |k|
                               (QREFELT $ 149))
                     . #3#)
               (EXIT
                (COND
                 ((SPADCALL |op| '|exp| (QREFELT $ 150))
                  (SEQ
                   (LETT |g1|
                         (SPADCALL
                          (SPADCALL (LETT |a| (|SPADfirst| |arg|) . #3#)
                                    (QREFELT $ 103))
                          (SPADCALL |a| (QREFELT $ 102)) (QREFELT $ 16))
                         . #3#)
                   (LETT |g2|
                         (SPADCALL (SPADCALL |a| (QREFELT $ 103))
                                   (SPADCALL |a| (QREFELT $ 102))
                                   (QREFELT $ 17))
                         . #3#)
                   (EXIT
                    (SPADCALL
                     (|TRMANIP;supexp| |num| |g1| |g2|
                      (LETT |b| (QUOTIENT2 (SPADCALL |num| (QREFELT $ 152)) 2)
                            . #3#)
                      $)
                     (|TRMANIP;supexp| |den| |g1| |g2| |b| $)
                     (QREFELT $ 20)))))
                 (#4#
                  (SPADCALL
                   (|TRMANIP;sup2htrigs| |num|
                    (LETT |g1| (SPADCALL |op| |arg| (QREFELT $ 153)) . #3#) $)
                   (|TRMANIP;sup2htrigs| |den| |g1| $)
                   (QREFELT $ 20))))))))))))) 

(DEFUN |TRMANIP;supexp| (|p| |f1| |f2| |bse| $)
  (PROG (|ans| |d| |g|)
    (RETURN
     (SEQ (LETT |ans| (|spadConstant| $ 31) . #1=(|TRMANIP;supexp|))
          (SEQ G190
               (COND
                ((NULL
                  (COND
                   ((SPADCALL |p| (|spadConstant| $ 155) (QREFELT $ 156)) 'NIL)
                   ('T 'T)))
                 (GO G191)))
               (SEQ
                (LETT |g|
                      (SPADCALL
                       (SPADCALL (SPADCALL |p| (QREFELT $ 157)) (QREFELT $ 78))
                       (QREFELT $ 145))
                      . #1#)
                (SEQ (LETT |d| (- (SPADCALL |p| (QREFELT $ 152)) |bse|) . #1#)
                     (EXIT
                      (COND
                       ((< |d| 0)
                        (LETT |ans|
                              (SPADCALL |ans|
                                        (SPADCALL |g|
                                                  (SPADCALL |f2| (- |d|)
                                                            (QREFELT $ 45))
                                                  (QREFELT $ 15))
                                        (QREFELT $ 16))
                              . #1#))
                       ('T
                        (LETT |ans|
                              (SPADCALL |ans|
                                        (SPADCALL |g|
                                                  (SPADCALL |f1| |d|
                                                            (QREFELT $ 45))
                                                  (QREFELT $ 15))
                                        (QREFELT $ 16))
                              . #1#)))))
                (EXIT (LETT |p| (SPADCALL |p| (QREFELT $ 158)) . #1#)))
               NIL (GO G190) G191 (EXIT NIL))
          (EXIT |ans|))))) 

(DEFUN |TRMANIP;sup2htrigs| (|p| |f| $)
  (SPADCALL
   (SPADCALL (CONS (|function| |TRMANIP;smp2htrigs|) $) |p| (QREFELT $ 162))
   |f| (QREFELT $ 163))) 

(DEFUN |TRMANIP;exlog| (|p| $)
  (PROG (#1=#:G2020 #2=#:G2019 #3=#:G2021 #4=#:G2023 |r|)
    (RETURN
     (SEQ
      (PROGN
       (LETT #1# NIL . #5=(|TRMANIP;exlog|))
       (SEQ (LETT |r| NIL . #5#)
            (LETT #4# (SPADCALL (SPADCALL |p| (QREFELT $ 165)) (QREFELT $ 170))
                  . #5#)
            G190
            (COND
             ((OR (ATOM #4#) (PROGN (LETT |r| (CAR #4#) . #5#) NIL))
              (GO G191)))
            (SEQ
             (EXIT
              (PROGN
               (LETT #3#
                     (SPADCALL (QCAR |r|)
                               (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 78))
                                         (QREFELT $ 46))
                               (QREFELT $ 97))
                     . #5#)
               (COND (#1# (LETT #2# (SPADCALL #2# #3# (QREFELT $ 16)) . #5#))
                     ('T (PROGN (LETT #2# #3# . #5#) (LETT #1# 'T . #5#)))))))
            (LETT #4# (CDR #4#) . #5#) (GO G190) G191 (EXIT NIL))
       (COND (#1# #2#) ('T (|spadConstant| $ 31)))))))) 

(DEFUN |TRMANIP;logexpand| (|k| $)
  (PROG (#1=#:G2029 |x| #2=#:G2028 |op|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL
         (LETT |op| (SPADCALL |k| (QREFELT $ 57)) . #3=(|TRMANIP;logexpand|))
         (QREFELT $ 171))
        (SPADCALL |k| (QREFELT $ 144)))
       ((SPADCALL |op| '|log| (QREFELT $ 150))
        (SPADCALL
         (|TRMANIP;exlog|
          (SPADCALL
           (LETT |x|
                 (SPADCALL (|SPADfirst| (SPADCALL |k| (QREFELT $ 39)))
                           (QREFELT $ 137))
                 . #3#)
           (QREFELT $ 74))
          $)
         (|TRMANIP;exlog| (SPADCALL |x| (QREFELT $ 79)) $) (QREFELT $ 17)))
       ('T
        (SPADCALL |op|
                  (PROGN
                   (LETT #2# NIL . #3#)
                   (SEQ (LETT |x| NIL . #3#)
                        (LETT #1# (SPADCALL |k| (QREFELT $ 39)) . #3#) G190
                        (COND
                         ((OR (ATOM #1#)
                              (PROGN (LETT |x| (CAR #1#) . #3#) NIL))
                          (GO G191)))
                        (SEQ
                         (EXIT
                          (LETT #2# (CONS (SPADCALL |x| (QREFELT $ 137)) #2#)
                                . #3#)))
                        (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                        (EXIT (NREVERSE0 #2#))))
                  (QREFELT $ 153)))))))) 

(DEFUN |TRMANIP;kerexpand| (|k| $)
  (PROG (#1=#:G2050 |x| #2=#:G2049 #3=#:G2040 #4=#:G2048 #5=#:G2047 |ctb| |cta|
         |tb| |ta| |a| |b| |den| |num| |arg| |op|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL
         (LETT |op| (SPADCALL |k| (QREFELT $ 57)) . #6=(|TRMANIP;kerexpand|))
         (QREFELT $ 171))
        (SPADCALL |k| (QREFELT $ 144)))
       ((SPADCALL |op| '|%power| (QREFELT $ 150)) (|TRMANIP;expandpow| |k| $))
       (#7='T
        (SEQ (LETT |arg| (|SPADfirst| (SPADCALL |k| (QREFELT $ 39))) . #6#)
             (EXIT
              (COND
               ((SPADCALL |op| '|sec| (QREFELT $ 150))
                (SPADCALL
                 (SPADCALL (SPADCALL |arg| (QREFELT $ 13)) (QREFELT $ 138))
                 (QREFELT $ 101)))
               ((SPADCALL |op| '|csc| (QREFELT $ 150))
                (SPADCALL
                 (SPADCALL (SPADCALL |arg| (QREFELT $ 14)) (QREFELT $ 138))
                 (QREFELT $ 101)))
               ((SPADCALL |op| '|log| (QREFELT $ 150))
                (SPADCALL
                 (|TRMANIP;exlog|
                  (SPADCALL (LETT |x| (SPADCALL |arg| (QREFELT $ 138)) . #6#)
                            (QREFELT $ 74))
                  $)
                 (|TRMANIP;exlog| (SPADCALL |x| (QREFELT $ 79)) $)
                 (QREFELT $ 17)))
               (#7#
                (SEQ
                 (EXIT
                  (SEQ (LETT |num| (SPADCALL |arg| (QREFELT $ 74)) . #6#)
                       (LETT |den| (SPADCALL |arg| (QREFELT $ 79)) . #6#)
                       (SEQ
                        (LETT |b|
                              (SPADCALL (SPADCALL |num| (QREFELT $ 172)) |den|
                                        (QREFELT $ 173))
                              . #6#)
                        (EXIT
                         (COND
                          ((NULL
                            (SPADCALL |b| (|spadConstant| $ 31)
                                      (QREFELT $ 99)))
                           (PROGN
                            (LETT #3#
                                  (SEQ
                                   (LETT |a|
                                         (SPADCALL
                                          (SPADCALL |num| (QREFELT $ 174))
                                          |den| (QREFELT $ 173))
                                         . #6#)
                                   (EXIT
                                    (COND
                                     ((SPADCALL |op| '|exp| (QREFELT $ 150))
                                      (SPADCALL
                                       (SPADCALL (SPADCALL |a| (QREFELT $ 138))
                                                 (QREFELT $ 95))
                                       (SPADCALL (SPADCALL |b| (QREFELT $ 95))
                                                 (QREFELT $ 138))
                                       (QREFELT $ 15)))
                                     ((SPADCALL |op| '|sin| (QREFELT $ 150))
                                      (SPADCALL
                                       (SPADCALL
                                        (SPADCALL
                                         (SPADCALL |a| (QREFELT $ 138))
                                         (QREFELT $ 14))
                                        (SPADCALL (SPADCALL |b| (QREFELT $ 13))
                                                  (QREFELT $ 138))
                                        (QREFELT $ 15))
                                       (SPADCALL
                                        (SPADCALL
                                         (SPADCALL |a| (QREFELT $ 138))
                                         (QREFELT $ 13))
                                        (SPADCALL (SPADCALL |b| (QREFELT $ 14))
                                                  (QREFELT $ 138))
                                        (QREFELT $ 15))
                                       (QREFELT $ 16)))
                                     ((SPADCALL |op| '|cos| (QREFELT $ 150))
                                      (SPADCALL
                                       (SPADCALL
                                        (SPADCALL
                                         (SPADCALL |a| (QREFELT $ 138))
                                         (QREFELT $ 13))
                                        (SPADCALL (SPADCALL |b| (QREFELT $ 13))
                                                  (QREFELT $ 138))
                                        (QREFELT $ 15))
                                       (SPADCALL
                                        (SPADCALL
                                         (SPADCALL |a| (QREFELT $ 138))
                                         (QREFELT $ 14))
                                        (SPADCALL (SPADCALL |b| (QREFELT $ 14))
                                                  (QREFELT $ 138))
                                        (QREFELT $ 15))
                                       (QREFELT $ 17)))
                                     ((SPADCALL |op| '|tan| (QREFELT $ 150))
                                      (SEQ
                                       (LETT |ta|
                                             (SPADCALL
                                              (SPADCALL |a| (QREFELT $ 138))
                                              (QREFELT $ 117))
                                             . #6#)
                                       (LETT |tb|
                                             (SPADCALL
                                              (SPADCALL |b| (QREFELT $ 117))
                                              (QREFELT $ 138))
                                             . #6#)
                                       (EXIT
                                        (SPADCALL
                                         (SPADCALL |ta| |tb| (QREFELT $ 16))
                                         (SPADCALL (|spadConstant| $ 32)
                                                   (SPADCALL |ta| |tb|
                                                             (QREFELT $ 15))
                                                   (QREFELT $ 17))
                                         (QREFELT $ 20)))))
                                     ((SPADCALL |op| '|cot| (QREFELT $ 150))
                                      (SEQ
                                       (LETT |cta|
                                             (SPADCALL
                                              (SPADCALL |a| (QREFELT $ 138))
                                              (QREFELT $ 115))
                                             . #6#)
                                       (LETT |ctb|
                                             (SPADCALL
                                              (SPADCALL |b| (QREFELT $ 115))
                                              (QREFELT $ 138))
                                             . #6#)
                                       (EXIT
                                        (SPADCALL
                                         (SPADCALL
                                          (SPADCALL |cta| |ctb| (QREFELT $ 15))
                                          (|spadConstant| $ 32) (QREFELT $ 17))
                                         (SPADCALL |ctb| |cta| (QREFELT $ 16))
                                         (QREFELT $ 20)))))
                                     (#7#
                                      (SPADCALL |op|
                                                (PROGN
                                                 (LETT #5# NIL . #6#)
                                                 (SEQ (LETT |x| NIL . #6#)
                                                      (LETT #4#
                                                            (SPADCALL |k|
                                                                      (QREFELT
                                                                       $ 39))
                                                            . #6#)
                                                      G190
                                                      (COND
                                                       ((OR (ATOM #4#)
                                                            (PROGN
                                                             (LETT |x|
                                                                   (CAR #4#)
                                                                   . #6#)
                                                             NIL))
                                                        #8=(GO G191)))
                                                      (SEQ
                                                       (EXIT
                                                        (LETT #5#
                                                              (CONS
                                                               (SPADCALL |x|
                                                                         (QREFELT
                                                                          $
                                                                          138))
                                                               #5#)
                                                              . #6#)))
                                                      (LETT #4# (CDR #4#)
                                                            . #6#)
                                                      #9=(GO G190) G191
                                                      (EXIT (NREVERSE0 #5#))))
                                                (QREFELT $ 153))))))
                                  . #6#)
                            (GO #3#))))))
                       (EXIT
                        (SPADCALL |op|
                                  (PROGN
                                   (LETT #2# NIL . #6#)
                                   (SEQ (LETT |x| NIL . #6#)
                                        (LETT #1# (SPADCALL |k| (QREFELT $ 39))
                                              . #6#)
                                        G190
                                        (COND
                                         ((OR (ATOM #1#)
                                              (PROGN
                                               (LETT |x| (CAR #1#) . #6#)
                                               NIL))
                                          #8#))
                                        (SEQ
                                         (EXIT
                                          (LETT #2#
                                                (CONS
                                                 (SPADCALL |x| (QREFELT $ 138))
                                                 #2#)
                                                . #6#)))
                                        (LETT #1# (CDR #1#) . #6#) #9# G191
                                        (EXIT (NREVERSE0 #2#))))
                                  (QREFELT $ 153)))))
                 #3# (EXIT #3#)))))))))))) 

(DEFUN |TRMANIP;smpexp| (|p| $)
  (PROG (|ans|)
    (RETURN
     (SEQ (LETT |ans| (|spadConstant| $ 31) . #1=(|TRMANIP;smpexp|))
          (SEQ G190
               (COND
                ((NULL
                  (COND
                   ((SPADCALL |p| (|spadConstant| $ 175) (QREFELT $ 77)) 'NIL)
                   ('T 'T)))
                 (GO G191)))
               (SEQ
                (LETT |ans|
                      (SPADCALL |ans|
                                (|TRMANIP;termexp|
                                 (SPADCALL |p| (QREFELT $ 174)) $)
                                (QREFELT $ 16))
                      . #1#)
                (EXIT (LETT |p| (SPADCALL |p| (QREFELT $ 172)) . #1#)))
               NIL (GO G190) G191 (EXIT NIL))
          (EXIT |ans|))))) 

(DEFUN |TRMANIP;simplify0| (|x| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL |x|
              (LIST '|tan| '|cot| '|sec| '|csc| '|tanh| '|coth| '|sech|
                    '|csch|)
              (LIST (CONS (|function| |TRMANIP;t2t|) $)
                    (CONS (|function| |TRMANIP;c2t|) $)
                    (CONS (|function| |TRMANIP;s2c|) $)
                    (CONS (|function| |TRMANIP;c2s|) $)
                    (CONS (|function| |TRMANIP;th2th|) $)
                    (CONS (|function| |TRMANIP;ch2th|) $)
                    (CONS (|function| |TRMANIP;sh2ch|) $)
                    (CONS (|function| |TRMANIP;ch2sh|) $))
              (QREFELT $ 178))
    (LIST '|sin| '|sinh|) (LIST 2 2)
    (LIST (CONS (|function| |TRMANIP;s2c2|) $)
          (CONS (|function| |TRMANIP;sh2ch2|) $))
    (QREFELT $ 180))
   (QREFELT $ 90))) 

(DEFUN |TranscendentalManipulations| (&REST #1=#:G2057)
  (PROG ()
    (RETURN
     (PROG (#2=#:G2058)
       (RETURN
        (COND
         ((LETT #2#
                (|lassocShiftWithFunction| (|devaluateList| #1#)
                                           (HGET |$ConstructorCache|
                                                 '|TranscendentalManipulations|)
                                           '|domainEqualList|)
                . #3=(|TranscendentalManipulations|))
          (|CDRwithIncrement| #2#))
         ('T
          (UNWIND-PROTECT
              (PROG1 (APPLY (|function| |TranscendentalManipulations;|) #1#)
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#)
              (HREM |$ConstructorCache|
                    '|TranscendentalManipulations|))))))))))) 

(DEFUN |TranscendentalManipulations;| (|#1| |#2|)
  (PROG (|pv$| $ |dv$| DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|TranscendentalManipulations|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT |dv$| (LIST '|TranscendentalManipulations| DV$1 DV$2) . #1#)
      (LETT $ (GETREFV 181) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (AND
                                           (|HasCategory| |#1|
                                                          (LIST
                                                           '|ConvertibleTo|
                                                           (LIST '|Pattern|
                                                                 (|devaluate|
                                                                  |#1|))))
                                           (|HasCategory| |#1|
                                                          (LIST
                                                           '|PatternMatchable|
                                                           (|devaluate| |#1|)))
                                           (|HasCategory| |#2|
                                                          (LIST
                                                           '|ConvertibleTo|
                                                           (LIST '|Pattern|
                                                                 (|devaluate|
                                                                  |#1|))))
                                           (|HasCategory| |#2|
                                                          (LIST
                                                           '|PatternMatchable|
                                                           (|devaluate|
                                                            |#1|))))))
                      . #1#))
      (|haddProp| |$ConstructorCache| '|TranscendentalManipulations|
                  (LIST DV$1 DV$2) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (COND
       ((|HasCategory| |#1| (LIST '|PatternMatchable| (|devaluate| |#1|)))
        (COND
         ((|HasCategory| |#1|
                         (LIST '|ConvertibleTo|
                               (LIST '|Pattern| (|devaluate| |#1|))))
          (COND
           ((|HasCategory| |#2|
                           (LIST '|ConvertibleTo|
                                 (LIST '|Pattern| (|devaluate| |#1|))))
            (COND
             ((|HasCategory| |#2|
                             (LIST '|PatternMatchable| (|devaluate| |#1|)))
              (PROGN
               (QSETREFV $ 11
                         (SPADCALL (SPADCALL (QREFELT $ 9)) (QREFELT $ 10)))
               (QSETREFV $ 12
                         (SPADCALL (SPADCALL (QREFELT $ 9)) (QREFELT $ 10)))
               (QSETREFV $ 23
                         (SPADCALL
                          (SPADCALL (SPADCALL (QREFELT $ 11) (QREFELT $ 13))
                                    (SPADCALL (QREFELT $ 12) (QREFELT $ 14))
                                    (QREFELT $ 15))
                          (SPADCALL
                           (SPADCALL
                            (SPADCALL
                             (SPADCALL (QREFELT $ 11) (QREFELT $ 12)
                                       (QREFELT $ 16))
                             (QREFELT $ 14))
                            (SPADCALL
                             (SPADCALL (QREFELT $ 11) (QREFELT $ 12)
                                       (QREFELT $ 17))
                             (QREFELT $ 14))
                            (QREFELT $ 17))
                           (SPADCALL 2 (QREFELT $ 19)) (QREFELT $ 20))
                          (QREFELT $ 22)))
               (QSETREFV $ 24
                         (SPADCALL
                          (SPADCALL (SPADCALL (QREFELT $ 11) (QREFELT $ 14))
                                    (SPADCALL (QREFELT $ 12) (QREFELT $ 14))
                                    (QREFELT $ 15))
                          (SPADCALL
                           (SPADCALL
                            (SPADCALL
                             (SPADCALL (QREFELT $ 11) (QREFELT $ 12)
                                       (QREFELT $ 17))
                             (QREFELT $ 13))
                            (SPADCALL
                             (SPADCALL (QREFELT $ 11) (QREFELT $ 12)
                                       (QREFELT $ 16))
                             (QREFELT $ 13))
                            (QREFELT $ 17))
                           (SPADCALL 2 (QREFELT $ 19)) (QREFELT $ 20))
                          (QREFELT $ 22)))
               (QSETREFV $ 25
                         (SPADCALL
                          (SPADCALL (SPADCALL (QREFELT $ 11) (QREFELT $ 13))
                                    (SPADCALL (QREFELT $ 12) (QREFELT $ 13))
                                    (QREFELT $ 15))
                          (SPADCALL
                           (SPADCALL
                            (SPADCALL
                             (SPADCALL (QREFELT $ 11) (QREFELT $ 12)
                                       (QREFELT $ 17))
                             (QREFELT $ 13))
                            (SPADCALL
                             (SPADCALL (QREFELT $ 11) (QREFELT $ 12)
                                       (QREFELT $ 16))
                             (QREFELT $ 13))
                            (QREFELT $ 16))
                           (SPADCALL 2 (QREFELT $ 19)) (QREFELT $ 20))
                          (QREFELT $ 22)))
               (QSETREFV $ 30
                         (CONS
                          (|dispatchFunction|
                           |TRMANIP;expandTrigProducts;2F;1|)
                          $)))))))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Integer|)))
        (QSETREFV $ 70 (CONS (|dispatchFunction| |TRMANIP;simplify;2F;5|) $)))
       ('T
        (QSETREFV $ 70 (CONS (|dispatchFunction| |TRMANIP;simplify;2F;6|) $))))
      $)))) 

(MAKEPROP '|TranscendentalManipulations| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) (|Symbol|)
              (0 . |new|) (4 . |coerce|) 'XX 'YY (9 . |cos|) (14 . |sin|)
              (19 . *) (25 . +) (31 . -) (|Integer|) (37 . |coerce|) (42 . /)
              (|RewriteRule| 6 6 7) (48 . |rule|) '|sinCosRule| '|sinSinRule|
              '|cosCosRule| (|List| 21) (|PositiveInteger|)
              (|ApplyRules| 6 6 7) (54 . |applyRules|)
              (61 . |expandTrigProducts|) (66 . |Zero|) (70 . |One|)
              (|Boolean|) (74 . |is?|) (|List| 64) (80 . |kernels|) (|List| 7)
              (|Kernel| 7) (85 . |argument|) |TRMANIP;simplifyLog;2F;3|
              (|Record| (|:| |coef| 18) (|:| |var| 64))
              (|Union| 41 '#1="failed") (90 . |isMult|) (95 . |is?|) (101 . ^)
              (107 . |log|) (112 . |numerator|) (117 . |denominator|)
              (122 . |freeOf?|) (|Union| 58 '#1#) (128 . |isTimes|)
              (133 . |isPlus|) (|Record| (|:| |val| $) (|:| |exponent| 18))
              (|Union| 53 '#1#) (138 . |isPower|) (|BasicOperator|)
              (143 . |operator|) (|List| $) (148 . |kernel|)
              (|Union| (|Fraction| (|Polynomial| 6)) '"failed")
              (154 . |retractIfCan|) (159 . |One|) (163 . |elt|) (|Kernel| $)
              (169 . |retract|) (174 . ^) (180 . |setelt|)
              (|AlgebraicManipulations| 6 7) (187 . |rootProduct|)
              (192 . |simplify|) |TRMANIP;expandPower;2F;9| (197 . |second|)
              (|SparseMultivariatePolynomial| 6 64) (202 . |numer|)
              (|SparseMultivariatePolynomial| 6 38) (207 . |One|) (211 . =)
              (217 . |coerce|) (222 . |denom|) (227 . -)
              (232 . |leadingCoefficient|) (237 . |coerce|) (|List| 38)
              (242 . |variables|) (|Mapping| 33 38) (247 . |select|)
              (|NonNegativeInteger|) (253 . |degree|) (259 . *)
              |TRMANIP;simplifyExp;2F;44| (265 . |height|) (270 . |kernel|)
              (277 . |monomial|) (284 . *) (290 . |exp|) (295 . |eval|)
              (302 . *) (308 . |first|) (313 . =) (319 . |setDifference|)
              (325 . |inv|) (330 . |sinh|) (335 . |cosh|) (|String|)
              (340 . |coerce|) (|Mapping| $ $) (345 . |eval|) (352 . |eval|)
              (360 . |sec|) |TRMANIP;cos2sec;2F;23| (365 . |csc|)
              |TRMANIP;sin2csc;2F;24| |TRMANIP;csc2sin;2F;25|
              |TRMANIP;sec2cos;2F;26| (370 . |cot|) |TRMANIP;tan2cot;2F;27|
              (375 . |tan|) |TRMANIP;cot2tan;2F;28| |TRMANIP;tan2trig;2F;29|
              |TRMANIP;cot2trig;2F;30| (380 . |sech|) |TRMANIP;cosh2sech;2F;31|
              (385 . |csch|) |TRMANIP;sinh2csch;2F;32|
              |TRMANIP;csch2sinh;2F;33| |TRMANIP;sech2cosh;2F;34|
              (390 . |coth|) |TRMANIP;tanh2coth;2F;35| (395 . |tanh|)
              |TRMANIP;coth2tanh;2F;36| |TRMANIP;tanh2trigh;2F;37|
              |TRMANIP;coth2trigh;2F;38| |TRMANIP;removeCosSq;2F;39|
              |TRMANIP;removeSinSq;2F;40| |TRMANIP;removeCoshSq;2F;41|
              |TRMANIP;removeSinhSq;2F;42| |TRMANIP;expandLog;2F;43|
              |TRMANIP;expand;2F;45| (400 . |coerce|) (|Mapping| 7 38)
              (|Mapping| 7 6)
              (|PolynomialCategoryLifting| (|IndexedExponents| 38) 38 6 75 7)
              (405 . |map|) (412 . |coerce|) |TRMANIP;htrigs;2F;49|
              (|Union| 64 '"failed") (417 . |mainKernel|)
              (|SparseUnivariatePolynomial| $) (422 . |univariate|)
              (428 . |is?|) (|SparseUnivariatePolynomial| 75) (434 . |degree|)
              (439 . |elt|) (445 . |Zero|) (449 . |Zero|) (453 . =)
              (459 . |leadingCoefficient|) (464 . |reductum|)
              (|SparseUnivariatePolynomial| 7) (|Mapping| 7 75)
              (|SparseUnivariatePolynomialFunctions2| 75 7) (469 . |map|)
              (475 . |elt|) (|Factored| $) (481 . |squareFree|)
              (|Record| (|:| |coef| 87) (|:| |logand| 75)) (|List| 166)
              (|Factored| 75) (|FactoredFunctions| 75) (486 . |log|)
              (491 . |nullary?|) (496 . |reductum|) (501 . /)
              (507 . |leadingMonomial|) (512 . |Zero|) (|List| 8) (|List| 106)
              (516 . |eval|) (|List| 87) (523 . |eval|))
           '#(|tanh2trigh| 531 |tanh2coth| 536 |tan2trig| 541 |tan2cot| 546
              |sinh2csch| 551 |sin2csc| 556 |simplifyLog| 561 |simplifyExp| 566
              |simplify| 571 |sech2cosh| 576 |sec2cos| 581 |removeSinhSq| 586
              |removeSinSq| 591 |removeCoshSq| 596 |removeCosSq| 601 |htrigs|
              606 |expandTrigProducts| 611 |expandPower| 616 |expandLog| 621
              |expand| 626 |csch2sinh| 631 |csc2sin| 636 |coth2trigh| 641
              |coth2tanh| 646 |cot2trig| 651 |cot2tan| 656 |cosh2sech| 661
              |cos2sec| 666)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 180
                                                 '(0 8 0 9 1 7 0 8 10 1 7 0 0
                                                   13 1 7 0 0 14 2 7 0 0 0 15 2
                                                   7 0 0 0 16 2 7 0 0 0 17 1 7
                                                   0 18 19 2 7 0 0 0 20 2 21 0
                                                   7 7 22 3 28 7 26 7 27 29 1 0
                                                   7 7 30 0 7 0 31 0 7 0 32 2 7
                                                   33 0 8 34 1 7 35 0 36 1 38
                                                   37 0 39 1 7 42 0 43 2 38 33
                                                   0 8 44 2 7 0 0 18 45 1 7 0 0
                                                   46 1 7 0 0 47 1 7 0 0 48 2 7
                                                   33 0 8 49 1 7 50 0 51 1 7 50
                                                   0 52 1 7 54 0 55 1 38 56 0
                                                   57 2 7 0 56 58 59 1 7 60 0
                                                   61 0 6 0 62 2 37 7 0 18 63 1
                                                   7 64 0 65 2 7 0 0 0 66 3 37
                                                   7 0 18 7 67 1 68 7 7 69 1 0
                                                   7 7 70 1 37 7 0 72 1 7 73 0
                                                   74 0 75 0 76 2 75 33 0 0 77
                                                   1 7 0 73 78 1 7 73 0 79 1 7
                                                   0 0 80 1 75 6 0 81 1 75 0 6
                                                   82 1 75 83 0 84 2 83 0 85 0
                                                   86 2 75 87 0 38 88 2 7 0 87
                                                   0 89 1 38 87 0 91 3 38 0 56
                                                   37 87 92 3 75 0 0 38 87 93 2
                                                   75 0 0 0 94 1 7 0 0 95 3 7 0
                                                   0 35 58 96 2 7 0 18 0 97 1
                                                   37 7 0 98 2 7 33 0 0 99 2 83
                                                   0 0 0 100 1 7 0 0 101 1 7 0
                                                   0 102 1 7 0 0 103 1 8 0 104
                                                   105 3 7 0 0 8 106 107 4 7 0
                                                   0 8 87 106 108 1 7 0 0 109 1
                                                   7 0 0 111 1 7 0 0 115 1 7 0
                                                   0 117 1 7 0 0 121 1 7 0 0
                                                   123 1 7 0 0 127 1 7 0 0 129
                                                   1 7 0 6 139 3 142 7 140 141
                                                   75 143 1 7 0 64 144 1 7 146
                                                   0 147 2 75 148 0 38 149 2 56
                                                   33 0 8 150 1 151 87 0 152 2
                                                   7 0 56 58 153 0 6 0 154 0
                                                   151 0 155 2 151 33 0 0 156 1
                                                   151 75 0 157 1 151 0 0 158 2
                                                   161 159 160 151 162 2 159 7
                                                   0 7 163 1 75 164 0 165 1 169
                                                   167 168 170 1 56 33 0 171 1
                                                   75 0 0 172 2 7 0 73 73 173 1
                                                   75 0 0 174 0 75 0 175 3 7 0
                                                   0 176 177 178 4 7 0 0 176
                                                   179 177 180 1 0 7 7 131 1 0
                                                   7 7 128 1 0 7 7 119 1 0 7 7
                                                   116 1 0 7 7 124 1 0 7 7 112
                                                   1 0 7 7 40 1 0 7 7 90 1 0 7
                                                   7 70 1 0 7 7 126 1 0 7 7 114
                                                   1 0 7 7 136 1 0 7 7 134 1 0
                                                   7 7 135 1 0 7 7 133 1 0 7 7
                                                   145 1 1 7 7 30 1 0 7 7 71 1
                                                   0 7 7 137 1 0 7 7 138 1 0 7
                                                   7 125 1 0 7 7 113 1 0 7 7
                                                   132 1 0 7 7 130 1 0 7 7 120
                                                   1 0 7 7 118 1 0 7 7 122 1 0
                                                   7 7 110)))))
           '|lookupComplete|)) 
