
(/VERSIONCHECK 2) 

(DEFUN |ALGMANIP;ratDenom;2F;1| (|x| $)
  (|ALGMANIP;innerRF| |x|
      (|ALGMANIP;algkernels| (SPADCALL |x| (QREFELT $ 17)) $) $)) 

(DEFUN |ALGMANIP;ratDenom;FLF;2| (|x| |l| $)
  (|ALGMANIP;innerRF| |x| (|ALGMANIP;algkernels| |l| $) $)) 

(DEFUN |ALGMANIP;ratDenom;3F;3| (|x| |y| $)
  (SPADCALL |x| (LIST |y|) (QREFELT $ 22))) 

(DEFUN |ALGMANIP;ratDenom;FLF;4| (|x| |l| $)
  (PROG (#0=#:G1830 |y| #1=#:G1831)
    (RETURN
      (SEQ (SPADCALL |x|
               (PROGN
                 (LETT #0# NIL . #2=(|ALGMANIP;ratDenom;FLF;4|))
                 (SEQ (LETT |y| NIL . #2#) (LETT #1# |l| . #2#) G190
                      (COND
                        ((OR (ATOM #1#)
                             (PROGN (LETT |y| (CAR #1#) . #2#) NIL))
                         (GO G191)))
                      (SEQ (EXIT (LETT #0#
                                       (CONS
                                        (SPADCALL |y| (QREFELT $ 25))
                                        #0#) . #2#)))
                      (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                      (EXIT (NREVERSE0 #0#))))
               (QREFELT $ 20)))))) 

(DEFUN |ALGMANIP;algkernels| (|l| $)
  (PROG ()
    (RETURN
      (SPADCALL
          (CONS #'|ALGMANIP;algkernels!0| (VECTOR (QREFELT $ 11) $))
          |l| (QREFELT $ 31))))) 

(DEFUN |ALGMANIP;algkernels!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 1) |ALGMANIP;algkernels|)
    (RETURN
      (PROGN
        (SPADCALL (SPADCALL |#1| (QREFELT $ 27)) (QREFELT $$ 0)
            (QREFELT $ 29)))))) 

(DEFUN |ALGMANIP;rootkernels| (|l| $)
  (SPADCALL (CONS #'|ALGMANIP;rootkernels!0| $) |l| (QREFELT $ 31))) 

(DEFUN |ALGMANIP;rootkernels!0| (|#1| $)
  (SPADCALL (SPADCALL |#1| (QREFELT $ 27))
            (SPADCALL "nthRoot" (QREFELT $ 10)) (QREFELT $ 32))) 

(DEFUN |ALGMANIP;ratPoly;FSup;7| (|x| $)
  (SPADCALL
      (SPADCALL
          (SPADCALL
              (SPADCALL
                  (SPADCALL
                      (SPADCALL
                          (SPADCALL (SPADCALL
                                     (SPADCALL (QREFELT $ 15)
                                      (QREFELT $ 34))
                                     (QREFELT $ 36))
                                    |x| (QREFELT $ 37))
                          (QREFELT $ 38))
                      (QREFELT $ 18))
                  (QREFELT $ 39))
              (QREFELT $ 36))
          (QREFELT $ 15) (QREFELT $ 42))
      (QREFELT $ 44))) 

(DEFUN |ALGMANIP;rootSplit;2F;8| (|x| $)
  (PROG (|lk| #0=#:G1839 |k| #1=#:G1840)
    (RETURN
      (SEQ (LETT |lk|
                 (|ALGMANIP;rootkernels| (SPADCALL |x| (QREFELT $ 17))
                     $)
                 . #2=(|ALGMANIP;rootSplit;2F;8|))
           (EXIT (SPADCALL |x| |lk|
                     (PROGN
                       (LETT #0# NIL . #2#)
                       (SEQ (LETT |k| NIL . #2#) (LETT #1# |lk| . #2#)
                            G190
                            (COND
                              ((OR (ATOM #1#)
                                   (PROGN
                                     (LETT |k| (CAR #1#) . #2#)
                                     NIL))
                               (GO G191)))
                            (SEQ (EXIT (LETT #0#
                                        (CONS
                                         (|ALGMANIP;rootExpand| |k| $)
                                         #0#) . #2#)))
                            (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                            (EXIT (NREVERSE0 #0#))))
                     (QREFELT $ 47))))))) 

(DEFUN |ALGMANIP;rootExpand| (|k| $)
  (PROG (|x| |n| |op|)
    (RETURN
      (SEQ (LETT |x| (|SPADfirst| (SPADCALL |k| (QREFELT $ 49)))
                 . #0=(|ALGMANIP;rootExpand|))
           (LETT |n|
                 (SPADCALL (SPADCALL |k| (QREFELT $ 49))
                     (QREFELT $ 50)) . #0#)
           (LETT |op| (SPADCALL |k| (QREFELT $ 27)) . #0#)
           (EXIT (SPADCALL
                     (SPADCALL |op|
                         (SPADCALL (SPADCALL |x| (QREFELT $ 51))
                             (QREFELT $ 36))
                         |n| (QREFELT $ 52))
                     (SPADCALL |op|
                         (SPADCALL (SPADCALL |x| (QREFELT $ 39))
                             (QREFELT $ 36))
                         |n| (QREFELT $ 52))
                     (QREFELT $ 53))))))) 

(DEFUN |ALGMANIP;innerRF| (|x| |ll| $)
  (PROG (|k| |lk| |l| #0=#:G1855 #1=#:G1856 #2=#:G1854 #3=#:G1849
             #4=#:G1857 |kk| #5=#:G1858 |q|)
    (RETURN
      (SEQ (EXIT (COND
                   ((OR (NULL (LETT |l|
                                    (SPADCALL
                                     (CONS #'|ALGMANIP;innerRF!0| $)
                                     (SPADCALL |x| (QREFELT $ 55))
                                     (QREFELT $ 57))
                                    . #6=(|ALGMANIP;innerRF|)))
                        (NULL (SPADCALL |ll|
                                  (SPADCALL |x| (QREFELT $ 17))
                                  (QREFELT $ 58))))
                    |x|)
                   ('T
                    (SEQ (LETT |lk| NIL . #6#)
                         (SEQ G190
                              (COND
                                ((NULL (COND
                                         ((SPADCALL
                                           (LETT |k|
                                            (|SPADfirst| |l|) . #6#)
                                           |ll| (QREFELT $ 59))
                                          'NIL)
                                         ('T 'T)))
                                 #7=(GO G191)))
                              (SEQ (EXIT
                                    (SEQ
                                     (LETT |lk| (CONS |k| |lk|) . #6#)
                                     (EXIT
                                      (COND
                                        ((NULL
                                          (LETT |l| (CDR |l|) . #6#))
                                         (PROGN
                                           (LETT #3#
                                            (PROGN
                                              (LETT #2#
                                               (SPADCALL |x| |lk|
                                                (PROGN
                                                  (LETT #0# NIL . #6#)
                                                  (SEQ
                                                   (LETT |kk|
                                                    NIL . #6#)
                                                   (LETT #1#
                                                    |lk| . #6#)
                                                   G190
                                                   (COND
                                                     ((OR (ATOM #1#)
                                                       (PROGN
                                                         (LETT |kk|
                                                          (CAR #1#) . #6#)
                                                         NIL))
                                                      #7#))
                                                   (SEQ
                                                    (EXIT
                                                     (LETT #0#
                                                      (CONS
                                                       (SPADCALL
                                                        (CONS
                                                         #'|ALGMANIP;innerRF!1|
                                                         (VECTOR $
                                                          |ll|))
                                                        |kk|
                                                        (QREFELT $ 61))
                                                       #0#) . #6#)))
                                                   (LETT #1#
                                                    (CDR #1#) . #6#)
                                                   #8=(GO G190) G191
                                                   (EXIT
                                                    (NREVERSE0 #0#))))
                                                (QREFELT $ 47)) . #6#)
                                              (GO #2#)) . #6#)
                                           (GO #3#)))))))
                                   #3# (EXIT #3#))
                              NIL #8# G191 (EXIT NIL))
                         (LETT |q|
                               (SPADCALL
                                   (SPADCALL |x| |lk|
                                    (PROGN
                                      (LETT #4# NIL . #6#)
                                      (SEQ (LETT |kk| NIL . #6#)
                                       (LETT #5# |lk| . #6#) G190
                                       (COND
                                         ((OR (ATOM #5#)
                                           (PROGN
                                             (LETT |kk|
                                              (CAR #5#) . #6#)
                                             NIL))
                                          #7#))
                                       (SEQ
                                        (EXIT
                                         (LETT #4#
                                          (CONS
                                           (SPADCALL
                                            (CONS
                                             #'|ALGMANIP;innerRF!2|
                                             (VECTOR $ |ll|))
                                            |kk| (QREFELT $ 61))
                                           #4#) . #6#)))
                                       (LETT #5# (CDR #5#) . #6#) #8#
                                       G191 (EXIT (NREVERSE0 #4#))))
                                    (QREFELT $ 47))
                                   |k| (SPADCALL |k| (QREFELT $ 63))
                                   (QREFELT $ 64)) . #6#)
                         (EXIT (SPADCALL
                                   (SPADCALL
                                    (CONS #'|ALGMANIP;innerRF!3|
                                     (VECTOR $ |ll|))
                                    |q| (QREFELT $ 66))
                                   (SPADCALL
                                    (CONS #'|ALGMANIP;innerRF!4|
                                     (VECTOR $ |ll|))
                                    |k| (QREFELT $ 61))
                                   (QREFELT $ 67)))))))
           #2# (EXIT #2#))))) 

(DEFUN |ALGMANIP;innerRF!4| (|#1| $$)
  (|ALGMANIP;innerRF| |#1| (QREFELT $$ 1) (QREFELT $$ 0))) 

(DEFUN |ALGMANIP;innerRF!3| (|#1| $$)
  (|ALGMANIP;innerRF| |#1| (QREFELT $$ 1) (QREFELT $$ 0))) 

(DEFUN |ALGMANIP;innerRF!2| (|#1| $$)
  (|ALGMANIP;innerRF| |#1| (QREFELT $$ 1) (QREFELT $$ 0))) 

(DEFUN |ALGMANIP;innerRF!1| (|#1| $$)
  (|ALGMANIP;innerRF| |#1| (QREFELT $$ 1) (QREFELT $$ 0))) 

(DEFUN |ALGMANIP;innerRF!0| (|#1| |#2| $)
  (SPADCALL |#2| |#1| (QREFELT $ 54))) 

(DEFUN |ALGMANIP;rootKerSimp;BoFNniF;11| (|op| |x| |n| $)
  (PROG (|r|)
    (RETURN
      (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 69))
                 |ALGMANIP;rootKerSimp;BoFNniF;11|)
           (EXIT (COND
                   ((QEQCAR |r| 0)
                    (SPADCALL (SPADCALL (QCDR |r|) |n| (QREFELT $ 71))
                        (QREFELT $ 72)))
                   ('T (|ALGMANIP;inroot| |op| |x| |n| $)))))))) 

(DEFUN |ALGMANIP;rootKerSimp;BoFNniF;12| (|op| |x| |n| $)
  (|ALGMANIP;inroot| |op| |x| |n| $)) 

(DEFUN |ALGMANIP;breakup| (|l| $)
  (PROG (|k| |a| |n| |kk| #0=#:G1875 |arg| |same| |expo| |others| |ll|)
    (RETURN
      (SEQ (COND
             ((NULL |l|) NIL)
             ('T
              (SEQ (LETT |k| (|SPADfirst| |l|)
                         . #1=(|ALGMANIP;breakup|))
                   (LETT |a|
                         (|SPADfirst|
                             (LETT |arg|
                                   (SPADCALL
                                    (LETT |k| (|SPADfirst| |l|) . #1#)
                                    (QREFELT $ 49)) . #1#)) . #1#)
                   (LETT |n|
                         (SPADCALL (SPADCALL |arg| (QREFELT $ 50))
                             (QREFELT $ 75)) . #1#)
                   (LETT |expo| NIL . #1#)
                   (LETT |others| (LETT |same| NIL . #1#) . #1#)
                   (SEQ (LETT |kk| NIL . #1#)
                        (LETT #0# (CDR |l|) . #1#) G190
                        (COND
                          ((OR (ATOM #0#)
                               (PROGN (LETT |kk| (CAR #0#) . #1#) NIL))
                           (GO G191)))
                        (SEQ (EXIT (COND
                                     ((SPADCALL |a|
                                       (|SPADfirst|
                                        (LETT |arg|
                                         (SPADCALL |kk| (QREFELT $ 49)) . #1#))
                                       (QREFELT $ 76))
                                      (SEQ
                                       (LETT |same|
                                        (CONS |kk| |same|) . #1#)
                                       (EXIT
                                        (LETT |expo|
                                         (CONS
                                          (SPADCALL
                                           (SPADCALL |arg|
                                            (QREFELT $ 50))
                                           (QREFELT $ 75))
                                          |expo|) . #1#))))
                                     ('T
                                      (LETT |others|
                                       (CONS |kk| |others|) . #1#)))))
                        (LETT #0# (CDR #0#) . #1#) (GO G190) G191
                        (EXIT NIL))
                   (LETT |ll| (|ALGMANIP;breakup| |others| $) . #1#)
                   (EXIT (CONS (CONS (CONS |k| |same|)
                                     (CONS |n| |expo|))
                               |ll|))))))))) 

(DEFUN |ALGMANIP;rootProduct;2F;14| (|x| $)
  (PROG (|rec| #0=#:G1884 |l| |k0| |nx| |dx| |n| |k| #1=#:G1885 |m|
               #2=#:G1886 #3=#:G1877 |lv|)
    (RETURN
      (SEQ (SEQ (LETT |rec| NIL . #4=(|ALGMANIP;rootProduct;2F;14|))
                (LETT #0#
                      (|ALGMANIP;breakup|
                          (|ALGMANIP;rootkernels|
                              (SPADCALL |x| (QREFELT $ 17)) $)
                          $) . #4#)
                G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |rec| (CAR #0#) . #4#) NIL))
                   #5=(GO G191)))
                (SEQ (LETT |k0|
                           (|SPADfirst| (LETT |l| (QCAR |rec|) . #4#)) . #4#)
                     (LETT |nx| (SPADCALL |x| (QREFELT $ 51)) . #4#)
                     (LETT |dx| (SPADCALL |x| (QREFELT $ 39)) . #4#)
                     (EXIT (COND
                             ((NULL (CDR |l|))
                              (LETT |x|
                                    (SPADCALL
                                     (|ALGMANIP;radeval| |nx| |k0| $)
                                     (|ALGMANIP;radeval| |dx| |k0| $)
                                     (QREFELT $ 53)) . #4#))
                             ('T
                              (SEQ (LETT |n|
                                    (SPADCALL (QCDR |rec|)
                                     (QREFELT $ 77)) . #4#)
                                   (LETT |k|
                                    (SPADCALL
                                     (SPADCALL |k0| (QREFELT $ 27))
                                     (LIST
                                      (|SPADfirst|
                                       (SPADCALL |k0| (QREFELT $ 49)))
                                      (SPADCALL |n| (QREFELT $ 78)))
                                     (SPADCALL |k0| (QREFELT $ 79))
                                     (QREFELT $ 80)) . #4#)
                                   (LETT |lv|
                                    (PROGN
                                      (LETT #1# NIL . #4#)
                                      (SEQ (LETT |m| NIL . #4#)
                                       (LETT #2# (QCDR |rec|) . #4#)
                                       G190
                                       (COND
                                         ((OR (ATOM #2#)
                                           (PROGN
                                             (LETT |m| (CAR #2#) . #4#)
                                             NIL))
                                          #5#))
                                       (SEQ
                                        (EXIT
                                         (LETT #1#
                                          (CONS
                                           (SPADCALL
                                            (|spadConstant| $ 83) |k|
                                            (PROG1
                                             (LETT #3#
                                              (QUOTIENT2 |n| |m|) . #4#)
                                              (|check-subtype|
                                               (>= #3# 0)
                                               '(|NonNegativeInteger|)
                                               #3#))
                                            (QREFELT $ 84))
                                           #1#) . #4#)))
                                       (LETT #2# (CDR #2#) . #4#)
                                       #6=(GO G190) G191
                                       (EXIT (NREVERSE0 #1#)))) . #4#)
                                   (EXIT
                                    (LETT |x|
                                     (SPADCALL
                                      (|ALGMANIP;radeval|
                                       (SPADCALL |nx| |l| |lv|
                                        (QREFELT $ 85))
                                       |k| $)
                                      (|ALGMANIP;radeval|
                                       (SPADCALL |dx| |l| |lv|
                                        (QREFELT $ 85))
                                       |k| $)
                                      (QREFELT $ 53)) . #4#)))))))
                (LETT #0# (CDR #0#) . #4#) #6# G191 (EXIT NIL))
           (EXIT |x|))))) 

(DEFUN |ALGMANIP;rootPower;2F;15| (|x| $)
  (PROG (|k| #0=#:G1890)
    (RETURN
      (SEQ (SEQ (LETT |k| NIL . #1=(|ALGMANIP;rootPower;2F;15|))
                (LETT #0#
                      (|ALGMANIP;rootkernels|
                          (SPADCALL |x| (QREFELT $ 17)) $) . #1#)
                G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |k| (CAR #0#) . #1#) NIL))
                   (GO G191)))
                (SEQ (EXIT (LETT |x|
                                 (SPADCALL
                                     (|ALGMANIP;radeval|
                                      (SPADCALL |x| (QREFELT $ 51)) |k|
                                      $)
                                     (|ALGMANIP;radeval|
                                      (SPADCALL |x| (QREFELT $ 39)) |k|
                                      $)
                                     (QREFELT $ 53)) . #1#)))
                (LETT #0# (CDR #0#) . #1#) (GO G190) G191 (EXIT NIL))
           (EXIT |x|))))) 

(DEFUN |ALGMANIP;radeval| (|p| |k| $)
  (PROG (|arg| |a| #0=#:G1891 |n| |d| |g| |term| |ans| |q|)
    (RETURN
      (SEQ (LETT |a|
                 (|SPADfirst|
                     (LETT |arg| (SPADCALL |k| (QREFELT $ 49))
                           . #1=(|ALGMANIP;radeval|))) . #1#)
           (LETT |n|
                 (PROG1 (LETT #0#
                              (SPADCALL (SPADCALL |arg| (QREFELT $ 50))
                                  (QREFELT $ 75)) . #1#)
                   (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|)
                       #0#)) . #1#)
           (LETT |ans| (|spadConstant| $ 88) . #1#)
           (LETT |q| (SPADCALL |p| |k| (QREFELT $ 89)) . #1#)
           (SEQ G190
                (COND
                  ((NULL (< 0
                            (LETT |d|
                                  (SPADCALL |q| (QREFELT $ 92)) . #1#)))
                   (GO G191)))
                (SEQ (LETT |term|
                           (SEQ (LETT |g| (GCD |d| |n|) . #1#)
                                (EXIT (COND
                                        ((EQL |g| 1)
                                         (SPADCALL
                                          (|spadConstant| $ 83) |k| |d|
                                          (QREFELT $ 84)))
                                        ('T
                                         (SPADCALL
                                          (|spadConstant| $ 83)
                                          (SPADCALL
                                           (SPADCALL |k|
                                            (QREFELT $ 27))
                                           (LIST |a|
                                            (SPADCALL
                                             (QUOTIENT2 |n| |g|)
                                             (QREFELT $ 78)))
                                           (SPADCALL |k|
                                            (QREFELT $ 79))
                                           (QREFELT $ 80))
                                          (QUOTIENT2 |d| |g|)
                                          (QREFELT $ 84)))))) . #1#)
                     (LETT |ans|
                           (SPADCALL |ans|
                               (SPADCALL
                                   (SPADCALL
                                    (SPADCALL |q| (QREFELT $ 95))
                                    (QREFELT $ 96))
                                   (SPADCALL |term| (QREFELT $ 96))
                                   (QREFELT $ 97))
                               (QREFELT $ 98)) . #1#)
                     (EXIT (LETT |q|
                                 (SPADCALL |q| (QREFELT $ 99)) . #1#)))
                NIL (GO G190) G191 (EXIT NIL))
           (EXIT (SPADCALL
                     (SPADCALL (SPADCALL |q| (QREFELT $ 95))
                         (QREFELT $ 96))
                     |ans| (QREFELT $ 98))))))) 

(DEFUN |ALGMANIP;inroot| (|op| |x| |n| $)
  (PROG (|num| #0=#:G1931 |u| |pr| |q| |qr| #1=#:G1929)
    (RETURN
      (SEQ (COND
             ((SPADCALL |x| (|spadConstant| $ 82) (QREFELT $ 76)) |x|)
             (#2='T
              (SEQ (EXIT (SEQ (COND
                                ((NULL (SPADCALL |x|
                                        (SPADCALL (|spadConstant| $ 82)
                                         (QREFELT $ 100))
                                        (QREFELT $ 76)))
                                 (SEQ (LETT |num|
                                       (SPADCALL |x| (QREFELT $ 51))
                                       . #3=(|ALGMANIP;inroot|))
                                      (EXIT
                                       (COND
                                         ((OR
                                           (SPADCALL |num|
                                            (|spadConstant| $ 83)
                                            (QREFELT $ 101))
                                           (SPADCALL |num|
                                            (SPADCALL
                                             (|spadConstant| $ 83)
                                             (QREFELT $ 103))
                                            (QREFELT $ 101)))
                                          (PROGN
                                            (LETT #0#
                                             (SPADCALL
                                              (|ALGMANIP;inroot| |op|
                                               (SPADCALL
                                                (SPADCALL |num|
                                                 (SPADCALL |x|
                                                  (QREFELT $ 39))
                                                 (QREFELT $ 102))
                                                (QREFELT $ 96))
                                               |n| $)
                                              (QREFELT $ 38)) . #3#)
                                            (GO #0#))))))))
                              (LETT |u|
                                    (SPADCALL |x| |op| (QREFELT $ 106)) . #3#)
                              (EXIT (COND
                                      ((QEQCAR |u| 1)
                                       (SPADCALL |op|
                                        (LIST |x|
                                         (SPADCALL |n| (QREFELT $ 78)))
                                        (QREFELT $ 107)))
                                      (#2#
                                       (SEQ
                                        (LETT |pr| (QCDR |u|) . #3#)
                                        (LETT |q|
                                         (SPADCALL (QCDR |pr|)
                                          (SPADCALL |n|
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL (QCAR |pr|)
                                              (QREFELT $ 49))
                                             (QREFELT $ 50))
                                            (QREFELT $ 75))
                                           (QREFELT $ 108))
                                          (QREFELT $ 110)) . #3#)
                                        (LETT |qr|
                                         (DIVIDE2
                                          (SPADCALL |q|
                                           (QREFELT $ 111))
                                          (SPADCALL |q|
                                           (QREFELT $ 112))) . #3#)
                                        (LETT |x|
                                         (|SPADfirst|
                                          (SPADCALL (QCAR |pr|)
                                           (QREFELT $ 49))) . #3#)
                                        (EXIT
                                         (SPADCALL
                                          (SPADCALL |x| (QCAR |qr|)
                                           (QREFELT $ 113))
                                          (SPADCALL
                                           (SPADCALL |op| |x|
                                            (PROG1
                                             (LETT #1#
                                              (SPADCALL |q|
                                               (QREFELT $ 112)) . #3#)
                                              (|check-subtype|
                                               (>= #1# 0)
                                               '(|NonNegativeInteger|)
                                               #1#))
                                            (QREFELT $ 74))
                                           (QCDR |qr|) (QREFELT $ 113))
                                          (QREFELT $ 97)))))))))
                   #0# (EXIT #0#)))))))) 

(DEFUN |ALGMANIP;sroot| (|k| $)
  (PROG (|arg| #0=#:G1933 |pr|)
    (RETURN
      (SEQ (LETT |pr|
                 (SPADCALL
                     (|SPADfirst|
                         (LETT |arg| (SPADCALL |k| (QREFELT $ 49))
                               . #1=(|ALGMANIP;sroot|)))
                     (PROG1 (LETT #0#
                                  (SPADCALL
                                      (SPADCALL |arg| (QREFELT $ 50))
                                      (QREFELT $ 75)) . #1#)
                       (|check-subtype| (>= #0# 0)
                           '(|NonNegativeInteger|) #0#))
                     (QREFELT $ 116)) . #1#)
           (EXIT (SPADCALL (QVELT |pr| 1)
                     (SPADCALL (SPADCALL |k| (QREFELT $ 27))
                         (QVELT |pr| 2) (QVELT |pr| 0) (QREFELT $ 74))
                     (QREFELT $ 97))))))) 

(DEFUN |ALGMANIP;rootSimp;2F;19| (|x| $)
  (PROG (|lk| #0=#:G1941 |k| #1=#:G1942)
    (RETURN
      (SEQ (LETT |lk|
                 (|ALGMANIP;rootkernels| (SPADCALL |x| (QREFELT $ 17))
                     $)
                 . #2=(|ALGMANIP;rootSimp;2F;19|))
           (EXIT (SPADCALL |x| |lk|
                     (PROGN
                       (LETT #0# NIL . #2#)
                       (SEQ (LETT |k| NIL . #2#) (LETT #1# |lk| . #2#)
                            G190
                            (COND
                              ((OR (ATOM #1#)
                                   (PROGN
                                     (LETT |k| (CAR #1#) . #2#)
                                     NIL))
                               (GO G191)))
                            (SEQ (EXIT (LETT #0#
                                        (CONS (|ALGMANIP;sroot| |k| $)
                                         #0#) . #2#)))
                            (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                            (EXIT (NREVERSE0 #0#))))
                     (QREFELT $ 47))))))) 

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

(DEFUN |AlgebraicManipulations;| (|#1| |#2|)
  (PROG (DV$1 DV$2 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|AlgebraicManipulations|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT |dv$| (LIST '|AlgebraicManipulations| DV$1 DV$2) . #0#)
        (LETT $ (GETREFV 118) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3
            (LETT |pv$|
                  (|buildPredVector| 0 0
                      (LIST (AND (|HasCategory| |#1| '(|GcdDomain|))
                                 (|HasCategory| |#1| '(|OrderedSet|))
                                 (|HasCategory| |#1|
                                     '(|RetractableTo| (|Integer|)))
                                 (|HasCategory| |#2|
                                     (LIST '|FunctionSpace|
                                      (|devaluate| |#1|)))))) . #0#))
        (|haddProp| |$ConstructorCache| '|AlgebraicManipulations|
            (LIST DV$1 DV$2) (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        (QSETREFV $ 11 (SPADCALL "%alg" (QREFELT $ 10)))
        (QSETREFV $ 15
            (SPADCALL (SPADCALL (QREFELT $ 12)) (QREFELT $ 14)))
        (COND
          ((|HasCategory| |#1| '(|OrderedSet|))
           (COND
             ((|HasCategory| |#1| '(|GcdDomain|))
              (COND
                ((|HasCategory| |#1| '(|RetractableTo| (|Integer|)))
                 (COND
                   ((|HasCategory| |#2|
                        (LIST '|FunctionSpace| (|devaluate| |#1|)))
                    (PROGN
                      (COND
                        ((|HasCategory| |#1| '(|RadicalCategory|))
                         (QSETREFV $ 74
                             (CONS (|dispatchFunction|
                                    |ALGMANIP;rootKerSimp;BoFNniF;11|)
                                   $)))
                        ('T
                         (QSETREFV $ 74
                             (CONS (|dispatchFunction|
                                    |ALGMANIP;rootKerSimp;BoFNniF;12|)
                                   $))))
                      (QSETREFV $ 86
                          (CONS (|dispatchFunction|
                                    |ALGMANIP;rootProduct;2F;14|)
                                $))
                      (QSETREFV $ 87
                          (CONS (|dispatchFunction|
                                    |ALGMANIP;rootPower;2F;15|)
                                $))
                      (QSETREFV $ 117
                          (CONS (|dispatchFunction|
                                    |ALGMANIP;rootSimp;2F;19|)
                                $)))))))))))
        $)))) 

(MAKEPROP '|AlgebraicManipulations| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|String|) (|Symbol|) (0 . |coerce|) 'ALGOP (5 . |new|)
             (|Kernel| 7) (9 . |kernel|) '|dummy| (|List| 24)
             (14 . |tower|) |ALGMANIP;ratDenom;2F;1| (|List| 13)
             |ALGMANIP;ratDenom;FLF;2| (|List| 7)
             |ALGMANIP;ratDenom;FLF;4| |ALGMANIP;ratDenom;3F;3|
             (|Kernel| $) (19 . |retract|) (|BasicOperator|)
             (24 . |operator|) (|Boolean|) (29 . |has?|)
             (|Mapping| 28 13) (35 . |select!|) (41 . |is?|)
             (|SparseMultivariatePolynomial| 6 13) (47 . |coerce|)
             (|SparseMultivariatePolynomial| 6 24) (52 . |coerce|)
             (57 . -) (63 . |inv|) (68 . |denom|) (|Fraction| 43)
             (|PolynomialCategoryQuotientFunctions|
                 (|IndexedExponents| 13) 13 6 33 7)
             (73 . |univariate|) (|SparseUnivariatePolynomial| 7)
             (79 . |numer|) |ALGMANIP;ratPoly;FSup;7| (|List| $)
             (84 . |eval|) |ALGMANIP;rootSplit;2F;8| (91 . |argument|)
             (96 . |second|) (101 . |numer|) (106 . |elt|) (113 . /)
             (119 . <) (125 . |kernels|) (|Mapping| 28 13 13)
             (130 . |sort!|) (136 . |setIntersection|)
             (142 . |member?|) (|Mapping| $ $) (148 . |map|)
             (|SparseUnivariatePolynomial| $) (154 . |minPoly|)
             (159 . |univariate|) (|Mapping| 7 7) (166 . |map|)
             (172 . |elt|) (|Union| 6 '"failed") (178 . |retractIfCan|)
             (|Integer|) (183 . |nthRoot|) (189 . |coerce|)
             (|NonNegativeInteger|) (194 . |rootKerSimp|)
             (201 . |retract|) (206 . =) (212 . |lcm|) (217 . |coerce|)
             (222 . |height|) (227 . |kernel|) (234 . |One|)
             (238 . |One|) (242 . |One|) (246 . |monomial|)
             (253 . |eval|) (260 . |rootProduct|) (265 . |rootPower|)
             (270 . |Zero|) (274 . |univariate|) (280 . |Zero|)
             (|SparseUnivariatePolynomial| 33) (284 . |degree|)
             (289 . |Zero|) (293 . |Zero|) (297 . |leadingCoefficient|)
             (302 . |coerce|) (307 . *) (313 . +) (319 . |reductum|)
             (324 . -) (329 . =) (335 . *) (341 . -)
             (|Record| (|:| |var| 24) (|:| |exponent| 70))
             (|Union| 104 '"failed") (346 . |isExpt|) (352 . |kernel|)
             (358 . *) (|Fraction| 70) (364 . /) (370 . |numer|)
             (375 . |denom|) (380 . **)
             (|Record| (|:| |exponent| 73) (|:| |coef| 7)
                 (|:| |radicand| 7))
             (|PolynomialRoots| (|IndexedExponents| 13) 13 6 33 7)
             (386 . |froot|) (392 . |rootSimp|))
          '#(|rootSplit| 397 |rootSimp| 402 |rootProduct| 407
             |rootPower| 412 |rootKerSimp| 417 |ratPoly| 424 |ratDenom|
             429)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 117
                                '(1 9 0 8 10 0 9 0 12 1 13 0 9 14 1 7
                                  16 0 17 1 7 24 0 25 1 13 26 0 27 2 26
                                  28 0 9 29 2 19 0 30 0 31 2 26 28 0 9
                                  32 1 33 0 13 34 1 7 0 35 36 2 7 0 0 0
                                  37 1 7 0 0 38 1 7 35 0 39 2 41 40 7
                                  13 42 1 40 43 0 44 3 7 0 0 16 46 47 1
                                  13 21 0 49 1 21 7 0 50 1 7 35 0 51 3
                                  7 0 26 0 0 52 2 7 0 0 0 53 2 13 28 0
                                  0 54 1 7 16 0 55 2 19 0 56 0 57 2 19
                                  0 0 0 58 2 19 28 13 0 59 2 7 0 60 24
                                  61 1 7 62 24 63 3 41 43 7 13 43 64 2
                                  43 0 65 0 66 2 43 7 0 7 67 1 7 68 0
                                  69 2 6 0 0 70 71 1 7 0 6 72 3 0 7 26
                                  7 73 74 1 7 70 0 75 2 7 28 0 0 76 1
                                  70 0 46 77 1 7 0 70 78 1 13 73 0 79 3
                                  13 0 26 21 73 80 0 6 0 81 0 7 0 82 0
                                  33 0 83 3 33 0 0 13 73 84 3 33 0 0 19
                                  46 85 1 0 7 7 86 1 0 7 7 87 0 7 0 88
                                  2 33 62 0 13 89 0 6 0 90 1 91 73 0 92
                                  0 33 0 93 0 91 0 94 1 91 33 0 95 1 7
                                  0 35 96 2 7 0 0 0 97 2 7 0 0 0 98 1
                                  91 0 0 99 1 7 0 0 100 2 33 28 0 0 101
                                  2 33 0 0 0 102 1 33 0 0 103 2 7 105 0
                                  26 106 2 7 0 26 46 107 2 70 0 73 0
                                  108 2 109 0 70 70 110 1 109 70 0 111
                                  1 109 70 0 112 2 7 0 0 70 113 2 115
                                  114 7 73 116 1 0 7 7 117 1 0 7 7 48 1
                                  1 7 7 117 1 1 7 7 86 1 1 7 7 87 3 1 7
                                  26 7 73 74 1 0 43 7 45 1 0 7 7 18 2 0
                                  7 7 7 23 2 0 7 7 19 20 2 0 7 7 21 22)))))
          '|lookupComplete|)) 
