
(/VERSIONCHECK 2) 

(DEFUN |INBFF;inv;2V;1| (|a| $)
  (PROG (|erg| |b| #1=#:G681)
    (RETURN
     (SEQ
      (LETT |b|
            (SPADCALL
             (SPADCALL |a|
                       (SPADCALL
                        (PROG1
                            (LETT #1# (- (QVSIZE |a|) 1)
                                  . #2=(|INBFF;inv;2V;1|))
                          (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|)
                                           #1#))
                        (QREFELT $ 19))
                       1 (QREFELT $ 23))
             1 (QREFELT $ 24))
            . #2#)
      (EXIT
       (LETT |erg|
             (SPADCALL
              (SPADCALL
               (SPADCALL
                (SPADCALL (SPADCALL |a| |b| (QREFELT $ 25)) 1 (QREFELT $ 26))
                (QREFELT $ 16) (QREFELT $ 27))
               (QREFELT $ 28))
              |b| (QREFELT $ 29))
             . #2#)))))) 

(DEFUN |INBFF;^;VIV;2| (|a| |ex| $)
  (PROG (|mult| |k| |expT| |logqe| |q1| |e1| |e| #1=#:G690 #2=#:G689)
    (RETURN
     (SEQ
      (LETT |e|
            (PROG1
                (LETT #1#
                      (SPADCALL |ex|
                                (-
                                 (SPADCALL (QREFELT $ 9)
                                           (PROG1
                                               (LETT #2# (QVSIZE |a|)
                                                     . #3=(|INBFF;^;VIV;2|))
                                             (|check-subtype| (> #2# 0)
                                                              '(|PositiveInteger|)
                                                              #2#))
                                           (QREFELT $ 32))
                                 1)
                                (QREFELT $ 33))
                      . #3#)
              (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
            . #3#)
      (EXIT
       (COND
        ((ZEROP |e|) (SPADCALL (QVSIZE |a|) (QREFELT $ 16) (QREFELT $ 34)))
        ((EQL |e| 1) (SPADCALL |a| (QREFELT $ 35)))
        (#4='T
         (SEQ (LETT |e1| (SPADCALL (INTEGER-LENGTH |e|) (QREFELT $ 19)) . #3#)
              (EXIT
               (COND
                ((< 11 (QREFELT $ 9))
                 (SEQ
                  (LETT |q1|
                        (SPADCALL (INTEGER-LENGTH (QREFELT $ 9))
                                  (QREFELT $ 19))
                        . #3#)
                  (LETT |logqe| (QSPLUS (QSQUOTIENT |e1| |q1|) 1) . #3#)
                  (EXIT
                   (COND
                    ((< (QSTIMES 15 |e1|)
                        (* 10 (- (+ |logqe| (QREFELT $ 9)) 2)))
                     (SPADCALL |a| |e| (QREFELT $ 36)))
                    (#4# (SPADCALL |a| |e| 1 (QREFELT $ 37)))))))
                (#4#
                 (SEQ
                  (LETT |logqe|
                        (QSPLUS
                         (QSQUOTIENT (QSTIMES 10 |e1|)
                                     (SPADCALL (QREFELT $ 20) (QREFELT $ 9)
                                               (QREFELT $ 39)))
                         1)
                        . #3#)
                  (LETT |k| 1 . #3#)
                  (LETT |expT|
                        (SPADCALL (QREFELT $ 21) (QREFELT $ 9) (QREFELT $ 41))
                        . #3#)
                  (SEQ G190
                       (COND
                        ((NULL
                          (COND
                           ((OR
                             (QSLESSP |logqe|
                                      (SPADCALL |expT| |k| (QREFELT $ 39)))
                             (QSZEROP (SPADCALL |expT| |k| (QREFELT $ 39))))
                            'NIL)
                           ('T 'T)))
                         (GO G191)))
                       (SEQ (EXIT (LETT |k| (QSPLUS |k| 1) . #3#))) NIL
                       (GO G190) G191 (EXIT NIL))
                  (LETT |mult|
                        (-
                         (+
                          (* (- (QREFELT $ 9) 1)
                             (EXPT (QREFELT $ 9) (QSDIFFERENCE |k| 1)))
                          (QSQUOTIENT (QSDIFFERENCE (QSPLUS |logqe| |k|) 1)
                                      |k|))
                         2)
                        . #3#)
                  (COND
                   ((NULL
                     (< (SPADCALL 10 |mult| (QREFELT $ 42))
                        (SPADCALL 15 |e1| (QREFELT $ 42))))
                    (EXIT (SPADCALL |a| |e| (QREFELT $ 36)))))
                  (EXIT (SPADCALL |a| |e| |k| (QREFELT $ 37))))))))))))))) 

(DEFUN |INBFF;repSq;VNniV;3| (|b| |e| $)
  (PROG (|a|)
    (RETURN
     (SEQ (LETT |a| (SPADCALL |b| (QREFELT $ 35)) |INBFF;repSq;VNniV;3|)
          (EXIT
           (COND ((EQL |e| 1) |a|)
                 ((ODDP |e|)
                  (SPADCALL |a|
                            (SPADCALL (SPADCALL |a| |a| (QREFELT $ 25))
                                      (QUOTIENT2 |e| 2) (QREFELT $ 36))
                            (QREFELT $ 25)))
                 ('T
                  (SPADCALL (SPADCALL |a| |a| (QREFELT $ 25)) (QUOTIENT2 |e| 2)
                            (QREFELT $ 36))))))))) 

(DEFUN |INBFF;dAndcExp;VNniSiV;4| (|a| |e| |k| $)
  (PROG (|i| |erg| #1=#:G714 |j| |ex| |l| |plist| |b| #2=#:G713 |qk|)
    (RETURN
     (SEQ
      (LETT |plist| (LIST (SPADCALL |a| (QREFELT $ 35)))
            . #3=(|INBFF;dAndcExp;VNniSiV;4|))
      (LETT |qk| (EXPT (QREFELT $ 9) |k|) . #3#)
      (SEQ (LETT |j| 2 . #3#) (LETT #2# (- |qk| 1) . #3#) G190
           (COND ((QSGREATERP |j| #2#) #4=(GO G191)))
           (SEQ
            (COND
             ((EQL (SPADCALL |j| (QREFELT $ 9) (QREFELT $ 33)) 0)
              (LETT |b|
                    (SPADCALL
                     (SPADCALL |plist| (QUOTIENT2 |j| (QREFELT $ 9))
                               (QREFELT $ 45))
                     1 (QREFELT $ 24))
                    . #3#))
             ('T
              (LETT |b|
                    (SPADCALL |a| (SPADCALL |plist| (QREFELT $ 46))
                              (QREFELT $ 25))
                    . #3#)))
            (EXIT (LETT |plist| (SPADCALL |plist| |b| (QREFELT $ 47)) . #3#)))
           (LETT |j| (QSADD1 |j|) . #3#) #5=(GO G190) G191 (EXIT NIL))
      (LETT |l| NIL . #3#) (LETT |ex| |e| . #3#)
      (SEQ G190 (COND ((NULL (COND ((EQL |ex| 0) 'NIL) ('T 'T))) #4#))
           (SEQ
            (LETT |l|
                  (SPADCALL |l| (SPADCALL |ex| |qk| (QREFELT $ 33))
                            (QREFELT $ 50))
                  . #3#)
            (EXIT (LETT |ex| (QUOTIENT2 |ex| |qk|) . #3#)))
           NIL #5# G191 (EXIT NIL))
      (COND
       ((EQL (|SPADfirst| |l|) 0)
        (LETT |erg| (SPADCALL (QVSIZE |a|) (QREFELT $ 16) (QREFELT $ 34))
              . #3#))
       ('T
        (LETT |erg| (SPADCALL |plist| (|SPADfirst| |l|) (QREFELT $ 45))
              . #3#)))
      (LETT |i| |k| . #3#)
      (SEQ (LETT |j| NIL . #3#) (LETT #1# (CDR |l|) . #3#) G190
           (COND ((OR (ATOM #1#) (PROGN (LETT |j| (CAR #1#) . #3#) NIL)) #4#))
           (SEQ
            (COND
             ((NULL (EQL |j| 0))
              (LETT |erg|
                    (SPADCALL |erg|
                              (SPADCALL (SPADCALL |plist| |j| (QREFELT $ 45))
                                        |i| (QREFELT $ 24))
                              (QREFELT $ 25))
                    . #3#)))
            (EXIT (LETT |i| (QSPLUS |i| |k|) . #3#)))
           (LETT #1# (CDR #1#) . #3#) #5# G191 (EXIT NIL))
      (EXIT |erg|))))) 

(DEFUN |INBFF;*;3V;5| (|a| |b| $)
  (PROG (|k| |x| |y| #1=#:G726 |t| |j| #2=#:G725 |i| #3=#:G724 |erg| |e|)
    (RETURN
     (SEQ
      (LETT |e| (SPADCALL (QVSIZE |a|) (QREFELT $ 19)) . #4=(|INBFF;*;3V;5|))
      (LETT |erg| (SPADCALL (QVSIZE |a|) (QREFELT $ 51)) . #4#)
      (SEQ (LETT |t| NIL . #4#)
           (LETT #3# (SPADCALL (QREFELT $ 15) 1 (QREFELT $ 52)) . #4#) G190
           (COND
            ((OR (ATOM #3#) (PROGN (LETT |t| (CAR #3#) . #4#) NIL))
             #5=(GO G191)))
           (SEQ
            (EXIT
             (SEQ (LETT |j| 1 . #4#) G190 (COND ((QSGREATERP |j| |e|) #5#))
                  (SEQ (LETT |y| (QCAR |t|) . #4#) (LETT |x| (QCDR |t|) . #4#)
                       (LETT |k|
                             (QSPLUS
                              (QSADDMOD |x| (SPADCALL |j| (QREFELT $ 19)) |e|)
                              1)
                             . #4#)
                       (EXIT
                        (SPADCALL |erg| |k|
                                  (SPADCALL (SPADCALL |erg| |k| (QREFELT $ 26))
                                            (SPADCALL
                                             (SPADCALL
                                              (SPADCALL |a| |j| (QREFELT $ 26))
                                              (SPADCALL |b| |j| (QREFELT $ 26))
                                              (QREFELT $ 27))
                                             |y| (QREFELT $ 27))
                                            (QREFELT $ 53))
                                  (QREFELT $ 54))))
                  (LETT |j| (QSADD1 |j|) . #4#) #6=(GO G190) G191 (EXIT NIL))))
           (LETT #3# (CDR #3#) . #4#) #6# G191 (EXIT NIL))
      (SEQ (LETT |i| 1 . #4#) (LETT #2# (QSDIFFERENCE |e| 1) . #4#) G190
           (COND ((QSGREATERP |i| #2#) #5#))
           (SEQ
            (EXIT
             (SEQ (LETT |j| (+ |i| 1) . #4#) G190 (COND ((> |j| |e|) #5#))
                  (SEQ
                   (EXIT
                    (SEQ (LETT |t| NIL . #4#)
                         (LETT #1#
                               (SPADCALL (QREFELT $ 15) (+ (- |j| |i|) 1)
                                         (QREFELT $ 52))
                               . #4#)
                         G190
                         (COND
                          ((OR (ATOM #1#)
                               (PROGN (LETT |t| (CAR #1#) . #4#) NIL))
                           #5#))
                         (SEQ (LETT |y| (QCAR |t|) . #4#)
                              (LETT |x| (QCDR |t|) . #4#)
                              (LETT |k|
                                    (QSPLUS
                                     (QSADDMOD |x|
                                               (SPADCALL |i| (QREFELT $ 19))
                                               |e|)
                                     1)
                                    . #4#)
                              (EXIT
                               (SPADCALL |erg| |k|
                                         (SPADCALL
                                          (SPADCALL |erg| |k| (QREFELT $ 26))
                                          (SPADCALL
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL |a| |i| (QREFELT $ 26))
                                             (SPADCALL |b| |j| (QREFELT $ 26))
                                             (QREFELT $ 27))
                                            (SPADCALL
                                             (SPADCALL |a| |j| (QREFELT $ 26))
                                             (SPADCALL |b| |i| (QREFELT $ 26))
                                             (QREFELT $ 27))
                                            (QREFELT $ 53))
                                           |y| (QREFELT $ 27))
                                          (QREFELT $ 53))
                                         (QREFELT $ 54))))
                         (LETT #1# (CDR #1#) . #4#) #6# G191 (EXIT NIL))))
                  (LETT |j| (+ |j| 1) . #4#) #6# G191 (EXIT NIL))))
           (LETT |i| (QSADD1 |i|) . #4#) #6# G191 (EXIT NIL))
      (EXIT |erg|))))) 

(DEFUN |INBFF;lookup;VPi;6| (|x| $)
  (PROG (#1=#:G729 #2=#:G728 |erg| |j|)
    (RETURN
     (SEQ (LETT |erg| 0 . #3=(|INBFF;lookup;VPi;6|))
          (SEQ (LETT |j| (QVSIZE |x|) . #3#) G190 (COND ((< |j| 1) (GO G191)))
               (SEQ
                (EXIT
                 (LETT |erg|
                       (+ (* |erg| (QREFELT $ 9))
                          (REMAINDER2
                           (SPADCALL (SPADCALL |x| |j| (QREFELT $ 26))
                                     (QREFELT $ 55))
                           (QREFELT $ 9)))
                       . #3#)))
               (LETT |j| (+ |j| -1) . #3#) (GO G190) G191 (EXIT NIL))
          (EXIT
           (COND
            ((EQL |erg| 0)
             (PROG1 (LETT #2# (EXPT (QREFELT $ 9) (QVSIZE |x|)) . #3#)
               (|check-subtype| (> #2# 0) '(|PositiveInteger|) #2#)))
            ('T
             (PROG1 (LETT #1# |erg| . #3#)
               (|check-subtype| (> #1# 0) '(|PositiveInteger|) #1#))))))))) 

(DEFUN |INBFF;norm;VPiV;7| (|a| |d| $)
  (PROG (|r| |dSI|)
    (RETURN
     (SEQ (LETT |dSI| (SPADCALL |d| (QREFELT $ 19)) . #1=(|INBFF;norm;VPiV;7|))
          (LETT |r|
                (SPADCALL (SPADCALL (QVSIZE |a|) (QREFELT $ 19)) |dSI|
                          (QREFELT $ 58))
                . #1#)
          (COND
           ((NULL (EQL (QCDR |r|) 0))
            (EXIT (|error| "norm: 2.arg must divide extdeg"))))
          (EXIT (SPADCALL |a| (QCAR |r|) |dSI| (QREFELT $ 23))))))) 

(DEFUN |INBFF;expPot;V2SiV;8| (|a| |e| |d| $)
  (PROG (|qpot| |erg| |k2| |y| #1=#:G746 |k| |deg|)
    (RETURN
     (SEQ
      (LETT |deg| (SPADCALL (QVSIZE |a|) (QREFELT $ 19))
            . #2=(|INBFF;expPot;V2SiV;8|))
      (EXIT
       (COND ((EQL |e| 1) (SPADCALL |a| (QREFELT $ 35)))
             (#3='T
              (SEQ (LETT |k2| |d| . #2#)
                   (LETT |y| (SPADCALL |a| (QREFELT $ 35)) . #2#)
                   (COND
                    ((SPADCALL |e| 0 (QREFELT $ 61))
                     (SEQ (LETT |erg| (SPADCALL |y| (QREFELT $ 35)) . #2#)
                          (EXIT (LETT |qpot| |k2| . #2#))))
                    (#3#
                     (SEQ
                      (LETT |erg|
                            (SPADCALL (QVSIZE |a|)
                                      (SPADCALL (QREFELT $ 16) (QREFELT $ 28))
                                      (QREFELT $ 34))
                            . #2#)
                      (EXIT (LETT |qpot| 0 . #2#)))))
                   (SEQ (LETT |k| 1 . #2#)
                        (LETT #1# (INTEGER-LENGTH |e|) . #2#) G190
                        (COND ((QSGREATERP |k| #1#) (GO G191)))
                        (SEQ
                         (LETT |y|
                               (SPADCALL |y| (SPADCALL |y| |k2| (QREFELT $ 24))
                                         (QREFELT $ 25))
                               . #2#)
                         (LETT |k2| (QSADDMOD |k2| |k2| |deg|) . #2#)
                         (EXIT
                          (COND
                           ((SPADCALL |e| |k| (QREFELT $ 62))
                            (SEQ
                             (LETT |erg|
                                   (SPADCALL |erg|
                                             (SPADCALL |y| |qpot|
                                                       (QREFELT $ 24))
                                             (QREFELT $ 25))
                                   . #2#)
                             (EXIT
                              (LETT |qpot| (QSADDMOD |qpot| |k2| |deg|)
                                    . #2#)))))))
                        (LETT |k| (QSADD1 |k|) . #2#) (GO G190) G191
                        (EXIT NIL))
                   (EXIT |erg|))))))))) 

(DEFUN |INBFF;qPot;VIV;9| (|e| |n| $)
  (PROG (|i| |e1| |m| |ei|)
    (RETURN
     (SEQ
      (LETT |ei| (SPADCALL (QVSIZE |e|) (QREFELT $ 19))
            . #1=(|INBFF;qPot;VIV;9|))
      (LETT |m| (SPADCALL (SPADCALL |n| (QREFELT $ 19)) |ei| (QREFELT $ 63))
            . #1#)
      (EXIT
       (COND ((QSZEROP |m|) |e|)
             ('T
              (SEQ (LETT |e1| (SPADCALL (QVSIZE |e|) (QREFELT $ 51)) . #1#)
                   (SEQ (LETT |i| (QSPLUS |m| 1) . #1#) G190
                        (COND ((QSGREATERP |i| |ei|) #2=(GO G191)))
                        (SEQ
                         (EXIT
                          (SPADCALL |e1| |i|
                                    (SPADCALL |e| (QSDIFFERENCE |i| |m|)
                                              (QREFELT $ 26))
                                    (QREFELT $ 54))))
                        (LETT |i| (QSADD1 |i|) . #1#) #3=(GO G190) G191
                        (EXIT NIL))
                   (SEQ (LETT |i| 1 . #1#) G190
                        (COND ((QSGREATERP |i| |m|) #2#))
                        (SEQ
                         (EXIT
                          (SPADCALL |e1| |i|
                                    (SPADCALL |e| (- (+ |ei| |i|) |m|)
                                              (QREFELT $ 26))
                                    (QREFELT $ 54))))
                        (LETT |i| (QSADD1 |i|) . #1#) #3# G191 (EXIT NIL))
                   (EXIT |e1|))))))))) 

(DEFUN |INBFF;trace;VPiV;10| (|a| |d| $)
  (PROG (#1=#:G758 |j| |i| |sSI| |v| |r| |dSI|)
    (RETURN
     (SEQ
      (LETT |dSI| (SPADCALL |d| (QREFELT $ 19)) . #2=(|INBFF;trace;VPiV;10|))
      (LETT |r|
            (SPADCALL (SPADCALL (QVSIZE |a|) (QREFELT $ 19)) |dSI|
                      (QREFELT $ 58))
            . #2#)
      (COND
       ((NULL (EQL (QCDR |r|) 0))
        (EXIT (|error| "trace: 2.arg must divide extdeg"))))
      (LETT |v|
            (SPADCALL
             (SPADCALL |a| (SPADCALL 1 |dSI| (QREFELT $ 65)) (QREFELT $ 66))
             (QREFELT $ 35))
            . #2#)
      (LETT |sSI| (QCAR |r|) . #2#)
      (SEQ (LETT |i| 1 . #2#) G190 (COND ((QSGREATERP |i| |dSI|) #3=(GO G191)))
           (SEQ
            (EXIT
             (SEQ (LETT |j| 1 . #2#) (LETT #1# (QSDIFFERENCE |sSI| 1) . #2#)
                  G190 (COND ((QSGREATERP |j| #1#) #3#))
                  (SEQ
                   (EXIT
                    (SPADCALL |v| |i|
                              (SPADCALL (SPADCALL |v| |i| (QREFELT $ 26))
                                        (SPADCALL |a|
                                                  (+ |i|
                                                     (QSTIMES
                                                      (SPADCALL |j|
                                                                (QREFELT $ 19))
                                                      |dSI|))
                                                  (QREFELT $ 26))
                                        (QREFELT $ 53))
                              (QREFELT $ 54))))
                  (LETT |j| (QSADD1 |j|) . #2#) #4=(GO G190) G191 (EXIT NIL))))
           (LETT |i| (QSADD1 |i|) . #2#) #4# G191 (EXIT NIL))
      (EXIT |v|))))) 

(DEFUN |INBFF;random;PiV;11| (|n| $)
  (PROG (|i| |v|)
    (RETURN
     (SEQ (LETT |v| (SPADCALL |n| (QREFELT $ 51)) . #1=(|INBFF;random;PiV;11|))
          (SEQ (LETT |i| 1 . #1#) G190 (COND ((QSGREATERP |i| |n|) (GO G191)))
               (SEQ
                (EXIT
                 (SPADCALL |v| |i| (SPADCALL (QREFELT $ 68)) (QREFELT $ 54))))
               (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191 (EXIT NIL))
          (EXIT |v|))))) 

(DEFUN |INBFF;xn;NniSup;12| (|m| $)
  (SPADCALL (SPADCALL (|spadConstant| $ 10) |m| (QREFELT $ 71))
            (|spadConstant| $ 72) (QREFELT $ 73))) 

(DEFUN |INBFF;normal?;VB;13| (|x| $)
  (COND
   ((SPADCALL
     (SPADCALL (SPADCALL (QVSIZE |x|) (QREFELT $ 74))
               (SPADCALL |x| (QREFELT $ 75)) (QREFELT $ 76))
     (|spadConstant| $ 72) (QREFELT $ 77))
    'T)
   ('T 'NIL))) 

(DEFUN |INBFF;/;3V;14| (|x| |y| $)
  (SPADCALL |x| (SPADCALL |y| (QREFELT $ 30)) (QREFELT $ 25))) 

(DEFUN |INBFF;setFieldInfo;VGFV;15| (|m| |n| $)
  (SEQ (SETELT $ 15 |m|) (SETELT $ 16 |n|) (EXIT (SPADCALL (QREFELT $ 81))))) 

(DEFUN |INBFF;minimalPolynomial;VSup;16| (|x| $)
  (PROG (|v| |y| #1=#:G775 |k| |j| |dy| #2=#:G774 |i| |m| |dx|)
    (RETURN
     (SEQ (LETT |dx| (QVSIZE |x|) . #3=(|INBFF;minimalPolynomial;VSup;16|))
          (LETT |y|
                (SPADCALL (QVSIZE |x|) (SPADCALL (QREFELT $ 16) (QREFELT $ 28))
                          (QREFELT $ 34))
                . #3#)
          (LETT |m| (SPADCALL |dx| (+ |dx| 1) (QREFELT $ 84)) . #3#)
          (SEQ (LETT |i| 1 . #3#) (LETT #2# (+ |dx| 1) . #3#) G190
               (COND ((QSGREATERP |i| #2#) #4=(GO G191)))
               (SEQ (LETT |dy| (QVSIZE |y|) . #3#)
                    (SEQ (LETT |j| 1 . #3#) G190
                         (COND ((QSGREATERP |j| |dy|) #4#))
                         (SEQ
                          (EXIT
                           (SEQ (LETT |k| 0 . #3#)
                                (LETT #1# (- (QUOTIENT2 |dx| |dy|) 1) . #3#)
                                G190 (COND ((QSGREATERP |k| #1#) #4#))
                                (SEQ
                                 (EXIT
                                  (SPADCALL |m| (+ |j| (* |k| |dy|)) |i|
                                            (SPADCALL |y| |j| (QREFELT $ 26))
                                            (QREFELT $ 85))))
                                (LETT |k| (QSADD1 |k|) . #3#) #5=(GO G190) G191
                                (EXIT NIL))))
                         (LETT |j| (QSADD1 |j|) . #3#) #5# G191 (EXIT NIL))
                    (EXIT (LETT |y| (SPADCALL |y| |x| (QREFELT $ 25)) . #3#)))
               (LETT |i| (QSADD1 |i|) . #3#) #5# G191 (EXIT NIL))
          (LETT |v| (|SPADfirst| (SPADCALL |m| (QREFELT $ 86))) . #3#)
          (EXIT (SPADCALL |v| (QREFELT $ 75))))))) 

(DEFUN |INBFF;basis;PiV;17| (|n| $)
  (PROG (|uniti| |i| |bas|)
    (RETURN
     (SEQ
      (LETT |bas| (SPADCALL |n| (SPADCALL |n| (QREFELT $ 51)) (QREFELT $ 89))
            . #1=(|INBFF;basis;PiV;17|))
      (SEQ (LETT |i| 1 . #1#) G190 (COND ((QSGREATERP |i| |n|) (GO G191)))
           (SEQ (LETT |uniti| (SPADCALL |n| (QREFELT $ 51)) . #1#)
                (SPADCALL |uniti| |i| (|spadConstant| $ 10) (QREFELT $ 90))
                (EXIT (SPADCALL |bas| |i| |uniti| (QREFELT $ 91))))
           (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191 (EXIT NIL))
      (EXIT |bas|))))) 

(DEFUN |INBFF;normalElement;PiV;18| (|n| $)
  (PROG (|v|)
    (RETURN
     (SEQ (LETT |v| (SPADCALL |n| (QREFELT $ 51)) |INBFF;normalElement;PiV;18|)
          (SPADCALL |v| 1 (|spadConstant| $ 10) (QREFELT $ 90)) (EXIT |v|))))) 

(DEFUN |INBFF;index;2PiV;19| (|degm| |n| $)
  (PROG (|m| |j| |erg|)
    (RETURN
     (SEQ
      (LETT |m| (REMAINDER2 |n| (SPADCALL (QREFELT $ 9) |degm| (QREFELT $ 32)))
            . #1=(|INBFF;index;2PiV;19|))
      (LETT |erg| (SPADCALL |degm| (QREFELT $ 51)) . #1#)
      (SEQ (LETT |j| 1 . #1#) G190 (COND ((QSGREATERP |j| |degm|) (GO G191)))
           (SEQ
            (SPADCALL |erg| |j|
                      (SPADCALL
                       (+ (QREFELT $ 9) (REMAINDER2 |m| (QREFELT $ 9)))
                       (QREFELT $ 94))
                      (QREFELT $ 54))
            (EXIT (LETT |m| (QUOTIENT2 |m| (QREFELT $ 9)) . #1#)))
           (LETT |j| (QSADD1 |j|) . #1#) (GO G190) G191 (EXIT NIL))
      (EXIT |erg|))))) 

(DEFUN |INBFF;pol;VSup;20| (|x| $)
  (PROG (#1=#:G787 #2=#:G786 #3=#:G788 #4=#:G789 #5=#:G791 |i|)
    (RETURN
     (SEQ
      (PROGN
       (LETT #1# NIL . #6=(|INBFF;pol;VSup;20|))
       (SEQ (LETT |i| 1 . #6#) (LETT #5# (QVSIZE |x|) . #6#) G190
            (COND ((QSGREATERP |i| #5#) (GO G191)))
            (SEQ
             (EXIT
              (PROGN
               (LETT #3#
                     (SPADCALL (SPADCALL |x| |i| (QREFELT $ 26))
                               (PROG1 (LETT #4# (- |i| 1) . #6#)
                                 (|check-subtype| (>= #4# 0)
                                                  '(|NonNegativeInteger|) #4#))
                               (QREFELT $ 71))
                     . #6#)
               (COND (#1# (LETT #2# (SPADCALL #2# #3# (QREFELT $ 96)) . #6#))
                     ('T (PROGN (LETT #2# #3# . #6#) (LETT #1# 'T . #6#)))))))
            (LETT |i| (QSADD1 |i|) . #6#) (GO G190) G191 (EXIT NIL))
       (COND (#1# #2#) ('T (|spadConstant| $ 97)))))))) 

(DEFUN |InnerNormalBasisFieldFunctions| (#1=#:G792)
  (PROG ()
    (RETURN
     (PROG (#2=#:G793)
       (RETURN
        (COND
         ((LETT #2#
                (|lassocShiftWithFunction| (LIST (|devaluate| #1#))
                                           (HGET |$ConstructorCache|
                                                 '|InnerNormalBasisFieldFunctions|)
                                           '|domainEqualList|)
                . #3=(|InnerNormalBasisFieldFunctions|))
          (|CDRwithIncrement| #2#))
         ('T
          (UNWIND-PROTECT
              (PROG1 (|InnerNormalBasisFieldFunctions;| #1#)
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#)
              (HREM |$ConstructorCache|
                    '|InnerNormalBasisFieldFunctions|))))))))))) 

(DEFUN |InnerNormalBasisFieldFunctions;| (|#1|)
  (PROG (|pv$| $ |dv$| DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|InnerNormalBasisFieldFunctions|))
      (LETT |dv$| (LIST '|InnerNormalBasisFieldFunctions| DV$1) . #1#)
      (LETT $ (GETREFV 98) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|InnerNormalBasisFieldFunctions|
                  (LIST DV$1) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 9 (SPADCALL (QREFELT $ 8)))
      (QSETREFV $ 15 (SPADCALL 1 NIL (QREFELT $ 14)))
      (QSETREFV $ 16 (|spadConstant| $ 10))
      (QSETREFV $ 20
                (LIST 0 (SPADCALL 10 (QREFELT $ 19))
                      (SPADCALL 16 (QREFELT $ 19)) (SPADCALL 20 (QREFELT $ 19))
                      (SPADCALL 23 (QREFELT $ 19)) 0
                      (SPADCALL 28 (QREFELT $ 19)) (SPADCALL 30 (QREFELT $ 19))
                      (SPADCALL 32 (QREFELT $ 19)) 0
                      (SPADCALL 35 (QREFELT $ 19))))
      (QSETREFV $ 21
                (LIST NIL
                      (LIST (SPADCALL 4 (QREFELT $ 19))
                            (SPADCALL 12 (QREFELT $ 19))
                            (SPADCALL 48 (QREFELT $ 19))
                            (SPADCALL 160 (QREFELT $ 19))
                            (SPADCALL 480 (QREFELT $ 19)) 0)
                      (LIST (SPADCALL 8 (QREFELT $ 19))
                            (SPADCALL 72 (QREFELT $ 19))
                            (SPADCALL 432 (QREFELT $ 19)) 0)
                      (LIST (SPADCALL 18 (QREFELT $ 19))
                            (SPADCALL 216 (QREFELT $ 19)) 0)
                      (LIST (SPADCALL 32 (QREFELT $ 19))
                            (SPADCALL 480 (QREFELT $ 19)) 0)
                      NIL (LIST (SPADCALL 72 (QREFELT $ 19)) 0)
                      (LIST (SPADCALL 98 (QREFELT $ 19)) 0)
                      (LIST (SPADCALL 128 (QREFELT $ 19)) 0) NIL
                      (LIST (SPADCALL 200 (QREFELT $ 19)) 0)))
      $)))) 

(MAKEPROP '|InnerNormalBasisFieldFunctions| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|NonNegativeInteger|)
              (0 . |size|) '|sizeGF| (4 . |One|)
              (|Record| (|:| |value| 6) (|:| |index| 18)) (|List| 11)
              (|Vector| 12) (8 . |new|) '|multTable| '|trGen| (|Integer|)
              (|SingleInteger|) (14 . |coerce|) '|logq| '|expTable|
              (|Vector| 6) |INBFF;expPot;V2SiV;8| |INBFF;qPot;VIV;9|
              |INBFF;*;3V;5| (19 . |elt|) (25 . *) (31 . |inv|) (36 . *)
              |INBFF;inv;2V;1| (|PositiveInteger|) (42 . ^)
              (48 . |positiveRemainder|) (54 . |new|) (60 . |copy|)
              |INBFF;repSq;VNniV;3| |INBFF;dAndcExp;VNniSiV;4| (|List| 18)
              (65 . |elt|) (|List| 38) (71 . |elt|) (77 . *) |INBFF;^;VIV;2|
              (|List| 22) (83 . |elt|) (89 . |last|) (94 . |concat|)
              (100 . |Zero|) (|List| 7) (104 . |concat|) (110 . |zero|)
              (115 . |elt|) (121 . +) (127 . |setelt|) (134 . |lookup|)
              |INBFF;lookup;VPi;6|
              (|Record| (|:| |quotient| $) (|:| |remainder| $))
              (139 . |divide|) |INBFF;norm;VPiV;7| (|Boolean|) (145 . |bit?|)
              (151 . |bit?|) (157 . |positiveRemainder|)
              (|UniversalSegment| 17) (163 . SEGMENT) (169 . |elt|)
              |INBFF;trace;VPiV;10| (175 . |random|) |INBFF;random;PiV;11|
              (|SparseUnivariatePolynomial| 6) (179 . |monomial|) (185 . |One|)
              (189 . -) |INBFF;xn;NniSup;12| |INBFF;pol;VSup;20| (195 . |gcd|)
              (201 . =) |INBFF;normal?;VB;13| |INBFF;/;3V;14| (|Void|)
              (207 . |void|) |INBFF;setFieldInfo;VGFV;15| (|Matrix| 6)
              (211 . |zero|) (217 . |qsetelt!|) (225 . |nullSpace|)
              |INBFF;minimalPolynomial;VSup;16| (|Vector| 22) (230 . |new|)
              (236 . |qsetelt!|) (243 . |qsetelt!|) |INBFF;basis;PiV;17|
              |INBFF;normalElement;PiV;18| (250 . |index|)
              |INBFF;index;2PiV;19| (255 . +) (261 . |Zero|))
           '#(|xn| 265 |trace| 270 |setFieldInfo| 276 |repSq| 282 |random| 288
              |qPot| 293 |pol| 299 |normalElement| 304 |normal?| 309 |norm| 314
              |minimalPolynomial| 320 |lookup| 325 |inv| 330 |index| 335
              |expPot| 341 |dAndcExp| 348 |basis| 355 ^ 360 / 366 * 372)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 97
                                                 '(0 6 7 8 0 6 0 10 2 13 0 7 12
                                                   14 1 18 0 17 19 2 22 6 0 17
                                                   26 2 6 0 0 0 27 1 6 0 0 28 2
                                                   22 0 6 0 29 2 7 0 0 31 32 2
                                                   17 0 0 0 33 2 22 0 7 6 34 1
                                                   22 0 0 35 2 38 18 0 17 39 2
                                                   40 38 0 17 41 2 17 0 31 0 42
                                                   2 44 22 0 17 45 1 44 22 0 46
                                                   2 44 0 0 22 47 0 6 0 48 2 49
                                                   0 0 7 50 1 22 0 7 51 2 13 12
                                                   0 17 52 2 6 0 0 0 53 3 22 6
                                                   0 17 6 54 1 6 31 0 55 2 18
                                                   57 0 0 58 2 18 60 0 0 61 2
                                                   17 60 0 0 62 2 18 0 0 0 63 2
                                                   64 0 17 17 65 2 22 0 0 64 66
                                                   0 6 0 68 2 70 0 6 7 71 0 70
                                                   0 72 2 70 0 0 0 73 2 70 0 0
                                                   0 76 2 70 60 0 0 77 0 80 0
                                                   81 2 83 0 7 7 84 4 83 6 0 17
                                                   17 6 85 1 83 44 0 86 2 88 0
                                                   7 22 89 3 22 6 0 17 6 90 3
                                                   88 22 0 17 22 91 1 6 0 31 94
                                                   2 70 0 0 0 96 0 70 0 97 1 0
                                                   70 7 74 2 0 22 22 31 67 2 0
                                                   80 13 6 82 2 0 22 22 7 36 1
                                                   0 22 31 69 2 0 22 22 17 24 1
                                                   0 70 22 75 1 0 22 31 93 1 0
                                                   60 22 78 2 0 22 22 31 59 1 0
                                                   70 22 87 1 0 31 22 56 1 0 22
                                                   22 30 2 0 22 31 31 95 3 0 22
                                                   22 18 18 23 3 0 22 22 7 18
                                                   37 1 0 88 31 92 2 0 22 22 17
                                                   43 2 0 22 22 22 79 2 0 22 22
                                                   22 25)))))
           '|lookupComplete|)) 
