
(PUT '|DIRRING;per| '|SPADreplace| '(XLAM (|f|) |f|)) 

(SDEFUN |DIRRING;per| ((|f| |Rep|) ($ $)) |f|) 

(PUT '|DIRRING;rep| '|SPADreplace| '(XLAM (|a|) |a|)) 

(SDEFUN |DIRRING;rep| ((|a| $) ($ |Rep|)) |a|) 

(SDEFUN |DIRRING;elt;$PiCoef;3| ((|a| $) (|n| |PositiveInteger|) ($ |Coef|))
        (SPROG ((|f| (|Mapping| |Coef| (|PositiveInteger|))))
               (SEQ
                (LETT |f| (QCAR (|DIRRING;rep| |a| $)) |DIRRING;elt;$PiCoef;3|)
                (EXIT (SPADCALL |n| |f|))))) 

(SDEFUN |DIRRING;coerce;$M;4|
        ((|a| $) ($ |Mapping| |Coef| (|PositiveInteger|)))
        (QCAR (|DIRRING;rep| |a| $))) 

(SDEFUN |DIRRING;coerce;M$;5|
        ((|f| |Mapping| |Coef| (|PositiveInteger|)) ($ $))
        (|DIRRING;per| (LIST |f|) $)) 

(SDEFUN |DIRRING;coerce;$S;6| ((|a| $) ($ |Stream| |Coef|))
        (SPROG ((|f| (|Mapping| |Coef| (|PositiveInteger|))))
               (SEQ
                (LETT |f| (QCAR (|DIRRING;rep| |a| $)) |DIRRING;coerce;$S;6|)
                (EXIT
                 (SPADCALL (CONS #'|DIRRING;coerce;$S;6!0| |f|) (QREFELT $ 19)
                           (QREFELT $ 23)))))) 

(SDEFUN |DIRRING;coerce;$S;6!0| ((|n| NIL) (|f| NIL))
        (SPROG ((#1=#:G716 NIL))
               (SPADCALL
                (PROG1 (LETT #1# |n| NIL)
                  (|check_subtype2| (> #1# 0) '(|PositiveInteger|) '(|Integer|)
                                    #1#))
                |f|))) 

(SDEFUN |DIRRING;coerce;S$;7| ((|f| |Stream| |Coef|) ($ $))
        (SPROG NIL
               (SPADCALL (CONS #'|DIRRING;coerce;S$;7!0| (VECTOR $ |f|))
                         (QREFELT $ 12)))) 

(SDEFUN |DIRRING;coerce;S$;7!0| ((|n| NIL) ($$ NIL))
        (PROG (|f| $)
          (LETT |f| (QREFELT $$ 1) . #1=(|DIRRING;coerce;S$;7|))
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN (PROGN (SPADCALL |f| |n| (QREFELT $ 25)))))) 

(SDEFUN |DIRRING;coerce;$Of;8| ((|f| $) ($ |OutputForm|))
        (SPADCALL (SPADCALL |f| (QREFELT $ 24)) (QREFELT $ 28))) 

(SDEFUN |DIRRING;One;$;9| (($ $))
        (SPADCALL (CONS #'|DIRRING;One;$;9!0| $) (QREFELT $ 12))) 

(SDEFUN |DIRRING;One;$;9!0| ((|n| NIL) ($ NIL))
        (COND ((SPADCALL |n| (QREFELT $ 31)) (|spadConstant| $ 14))
              ('T (|spadConstant| $ 32)))) 

(SDEFUN |DIRRING;Zero;$;10| (($ $))
        (SPADCALL (CONS #'|DIRRING;Zero;$;10!0| $) (QREFELT $ 12))) 

(SDEFUN |DIRRING;Zero;$;10!0| ((|n| NIL) ($ NIL)) (|spadConstant| $ 32)) 

(SDEFUN |DIRRING;zeta;$;11| (($ $))
        (SPADCALL (CONS #'|DIRRING;zeta;$;11!0| $) (QREFELT $ 12))) 

(SDEFUN |DIRRING;zeta;$;11!0| ((|n| NIL) ($ NIL)) (|spadConstant| $ 14)) 

(SDEFUN |DIRRING;+;3$;12| ((|f| $) (|g| $) ($ $))
        (SPROG NIL
               (SPADCALL (CONS #'|DIRRING;+;3$;12!0| (VECTOR |g| $ |f|))
                         (QREFELT $ 12)))) 

(SDEFUN |DIRRING;+;3$;12!0| ((|n| NIL) ($$ NIL))
        (PROG (|f| $ |g|)
          (LETT |f| (QREFELT $$ 2) . #1=(|DIRRING;+;3$;12|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |g| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |f| |n| (QREFELT $ 9))
                      (SPADCALL |g| |n| (QREFELT $ 9)) (QREFELT $ 35)))))) 

(SDEFUN |DIRRING;-;2$;13| ((|f| $) ($ $))
        (SPROG NIL
               (SPADCALL (CONS #'|DIRRING;-;2$;13!0| (VECTOR $ |f|))
                         (QREFELT $ 12)))) 

(SDEFUN |DIRRING;-;2$;13!0| ((|n| NIL) ($$ NIL))
        (PROG (|f| $)
          (LETT |f| (QREFELT $$ 1) . #1=(|DIRRING;-;2$;13|))
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN (SPADCALL (SPADCALL |f| |n| (QREFELT $ 9)) (QREFELT $ 37)))))) 

(SDEFUN |DIRRING;*;I2$;14| ((|a| |Integer|) (|f| $) ($ $))
        (SPROG NIL
               (SPADCALL (CONS #'|DIRRING;*;I2$;14!0| (VECTOR $ |f| |a|))
                         (QREFELT $ 12)))) 

(SDEFUN |DIRRING;*;I2$;14!0| ((|n| NIL) ($$ NIL))
        (PROG (|a| |f| $)
          (LETT |a| (QREFELT $$ 2) . #1=(|DIRRING;*;I2$;14|))
          (LETT |f| (QREFELT $$ 1) . #1#)
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL |a| (SPADCALL |f| |n| (QREFELT $ 9)) (QREFELT $ 39)))))) 

(SDEFUN |DIRRING;*;Coef2$;15| ((|a| |Coef|) (|f| $) ($ $))
        (SPROG NIL
               (SPADCALL (CONS #'|DIRRING;*;Coef2$;15!0| (VECTOR $ |f| |a|))
                         (QREFELT $ 12)))) 

(SDEFUN |DIRRING;*;Coef2$;15!0| ((|n| NIL) ($$ NIL))
        (PROG (|a| |f| $)
          (LETT |a| (QREFELT $$ 2) . #1=(|DIRRING;*;Coef2$;15|))
          (LETT |f| (QREFELT $$ 1) . #1#)
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL |a| (SPADCALL |f| |n| (QREFELT $ 9)) (QREFELT $ 41)))))) 

(SDEFUN |DIRRING;*;3$;16| ((|f| $) (|g| $) ($ $))
        (SPROG ((|conv| (|Mapping| |Coef| (|PositiveInteger|))))
               (SEQ
                (LETT |conv| (CONS #'|DIRRING;*;3$;16!0| (VECTOR |g| |f| $))
                      |DIRRING;*;3$;16|)
                (EXIT (SPADCALL |conv| (QREFELT $ 12)))))) 

(SDEFUN |DIRRING;*;3$;16!0| ((|n| NIL) ($$ NIL))
        (PROG ($ |f| |g|)
          (LETT $ (QREFELT $$ 2) . #1=(|DIRRING;*;3$;16|))
          (LETT |f| (QREFELT $$ 1) . #1#)
          (LETT |g| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPROG
             ((#2=#:G777 NIL) (#3=#:G776 NIL) (#4=#:G781 NIL) (|d| NIL)
              (#5=#:G780 NIL))
             (SEQ
              (SPADCALL (ELT $ 35)
                        (PROGN
                         (LETT #5# NIL NIL)
                         (SEQ (LETT |d| NIL NIL)
                              (LETT #4# (SPADCALL |n| (QREFELT $ 45)) NIL) G190
                              (COND
                               ((OR (ATOM #4#)
                                    (PROGN (LETT |d| (CAR #4#) NIL) NIL))
                                (GO G191)))
                              (SEQ
                               (EXIT
                                (LETT #5#
                                      (CONS
                                       (SPADCALL
                                        (SPADCALL |f|
                                                  (PROG1 (LETT #3# |d| NIL)
                                                    (|check_subtype2| (> #3# 0)
                                                                      '(|PositiveInteger|)
                                                                      '(|Integer|)
                                                                      #3#))
                                                  (QREFELT $ 9))
                                        (SPADCALL |g|
                                                  (PROG1
                                                      (LETT #2#
                                                            (SPADCALL |n| |d|
                                                                      (QREFELT
                                                                       $ 46))
                                                            NIL)
                                                    (|check_subtype2| (> #2# 0)
                                                                      '(|PositiveInteger|)
                                                                      '(|Integer|)
                                                                      #2#))
                                                  (QREFELT $ 9))
                                        (QREFELT $ 41))
                                       #5#)
                                      NIL)))
                              (LETT #4# (CDR #4#) NIL) (GO G190) G191
                              (EXIT (NREVERSE #5#))))
                        (|spadConstant| $ 32) (QREFELT $ 50)))))))) 

(SDEFUN |DIRRING;unit?;$B;17| ((|a| $) ($ |Boolean|))
        (NULL
         (QEQCAR (SPADCALL (SPADCALL |a| 1 (QREFELT $ 9)) (QREFELT $ 53)) 1))) 

(SDEFUN |DIRRING;qrecip|
        ((|f| $) (|f1inv| |Coef|) (|n| |PositiveInteger|) ($ |Coef|))
        (SPROG
         ((#1=#:G805 NIL) (#2=#:G804 NIL) (#3=#:G810 NIL) (|d| NIL)
          (#4=#:G809 NIL))
         (SEQ
          (COND ((EQL |n| 1) |f1inv|)
                ('T
                 (SPADCALL
                  (SPADCALL |f1inv|
                            (SPADCALL (ELT $ 35)
                                      (PROGN
                                       (LETT #4# NIL . #5=(|DIRRING;qrecip|))
                                       (SEQ (LETT |d| NIL . #5#)
                                            (LETT #3#
                                                  (CDR
                                                   (SPADCALL |n|
                                                             (QREFELT $ 45)))
                                                  . #5#)
                                            G190
                                            (COND
                                             ((OR (ATOM #3#)
                                                  (PROGN
                                                   (LETT |d| (CAR #3#) . #5#)
                                                   NIL))
                                              (GO G191)))
                                            (SEQ
                                             (EXIT
                                              (LETT #4#
                                                    (CONS
                                                     (SPADCALL
                                                      (SPADCALL |f|
                                                                (PROG1
                                                                    (LETT #2#
                                                                          |d|
                                                                          . #5#)
                                                                  (|check_subtype2|
                                                                   (> #2# 0)
                                                                   '(|PositiveInteger|)
                                                                   '(|Integer|)
                                                                   #2#))
                                                                (QREFELT $ 9))
                                                      (|DIRRING;qrecip| |f|
                                                       |f1inv|
                                                       (PROG1
                                                           (LETT #1#
                                                                 (QUOTIENT2 |n|
                                                                            |d|)
                                                                 . #5#)
                                                         (|check_subtype2|
                                                          (> #1# 0)
                                                          '(|PositiveInteger|)
                                                          '(|Integer|) #1#))
                                                       $)
                                                      (QREFELT $ 41))
                                                     #4#)
                                                    . #5#)))
                                            (LETT #3# (CDR #3#) . #5#)
                                            (GO G190) G191
                                            (EXIT (NREVERSE #4#))))
                                      (|spadConstant| $ 32) (QREFELT $ 50))
                            (QREFELT $ 41))
                  (QREFELT $ 37))))))) 

(SDEFUN |DIRRING;recip;$U;19| ((|f| $) ($ |Union| $ #1="failed"))
        (SPROG
         ((|mp| (|Mapping| |Coef| (|PositiveInteger|)))
          (|f1inv| (|Union| |Coef| #1#)))
         (SEQ
          (LETT |f1inv|
                (SPADCALL (SPADCALL |f| 1 (QREFELT $ 9)) (QREFELT $ 53))
                . #2=(|DIRRING;recip;$U;19|))
          (EXIT
           (COND ((QEQCAR |f1inv| 1) (CONS 1 "failed"))
                 ('T
                  (SEQ
                   (LETT |mp|
                         (CONS #'|DIRRING;recip;$U;19!0|
                               (VECTOR $ |f1inv| |f|))
                         . #2#)
                   (EXIT (CONS 0 (SPADCALL |mp| (QREFELT $ 12))))))))))) 

(SDEFUN |DIRRING;recip;$U;19!0| ((|n| NIL) ($$ NIL))
        (PROG (|f| |f1inv| $)
          (LETT |f| (QREFELT $$ 2) . #1=(|DIRRING;recip;$U;19|))
          (LETT |f1inv| (QREFELT $$ 1) . #1#)
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN (PROGN (|DIRRING;qrecip| |f| (QCDR |f1inv|) |n| $))))) 

(SDEFUN |DIRRING;multiplicative?;$PiB;20|
        ((|a| $) (|n| |PositiveInteger|) ($ |Boolean|))
        (SPROG
         ((#1=#:G865 NIL) (#2=#:G859 NIL) (|rl| (|List| |Coef|))
          (#3=#:G835 NIL) (#4=#:G834 NIL) (#5=#:G868 NIL) (|f| NIL)
          (#6=#:G867 NIL)
          (|fl|
           (|List|
            (|Record| (|:| |factor| (|Integer|))
                      (|:| |exponent| (|Integer|)))))
          (#7=#:G866 NIL) (|i| NIL))
         (SEQ
          (EXIT
           (SEQ
            (SEQ (LETT |i| 2 . #8=(|DIRRING;multiplicative?;$PiB;20|))
                 (LETT #7# |n| . #8#) G190
                 (COND ((|greater_SI| |i| #7#) (GO G191)))
                 (SEQ
                  (LETT |fl|
                        (SPADCALL (SPADCALL |i| (QREFELT $ 57)) (QREFELT $ 61))
                        . #8#)
                  (LETT |rl|
                        (PROGN
                         (LETT #6# NIL . #8#)
                         (SEQ (LETT |f| NIL . #8#) (LETT #5# |fl| . #8#) G190
                              (COND
                               ((OR (ATOM #5#)
                                    (PROGN (LETT |f| (CAR #5#) . #8#) NIL))
                                (GO G191)))
                              (SEQ
                               (EXIT
                                (LETT #6#
                                      (CONS
                                       (SPADCALL |a|
                                                 (SPADCALL
                                                  (PROG1
                                                      (LETT #4# (QCAR |f|)
                                                            . #8#)
                                                    (|check_subtype2| (> #4# 0)
                                                                      '(|PositiveInteger|)
                                                                      '(|Integer|)
                                                                      #4#))
                                                  (PROG1
                                                      (LETT #3# (QCDR |f|)
                                                            . #8#)
                                                    (|check_subtype2| (> #3# 0)
                                                                      '(|PositiveInteger|)
                                                                      '(|Integer|)
                                                                      #3#))
                                                  (QREFELT $ 62))
                                                 (QREFELT $ 9))
                                       #6#)
                                      . #8#)))
                              (LETT #5# (CDR #5#) . #8#) (GO G190) G191
                              (EXIT (NREVERSE #6#))))
                        . #8#)
                  (EXIT
                   (COND
                    ((SPADCALL
                      (SPADCALL |a|
                                (PROG1 (LETT #2# |i| . #8#)
                                  (|check_subtype2| (> #2# 0)
                                                    '(|PositiveInteger|)
                                                    '(|NonNegativeInteger|)
                                                    #2#))
                                (QREFELT $ 9))
                      (SPADCALL (ELT $ 41) |rl| (QREFELT $ 63)) (QREFELT $ 64))
                     (SEQ
                      (SPADCALL (SPADCALL |i| (QREFELT $ 66)) (QREFELT $ 69))
                      (SPADCALL (SPADCALL |rl| (QREFELT $ 70)) (QREFELT $ 69))
                      (EXIT (PROGN (LETT #1# NIL . #8#) (GO #9=#:G864))))))))
                 (LETT |i| (|inc_SI| |i|) . #8#) (GO G190) G191 (EXIT NIL))
            (EXIT 'T)))
          #9# (EXIT #1#)))) 

(SDEFUN |DIRRING;additive?;$PiB;21|
        ((|a| $) (|n| |PositiveInteger|) ($ |Boolean|))
        (SPROG
         ((#1=#:G901 NIL) (#2=#:G895 NIL) (|rl| (|List| |Coef|))
          (#3=#:G871 NIL) (#4=#:G870 NIL) (#5=#:G904 NIL) (|f| NIL)
          (#6=#:G903 NIL)
          (|fl|
           (|List|
            (|Record| (|:| |factor| (|Integer|))
                      (|:| |exponent| (|Integer|)))))
          (#7=#:G902 NIL) (|i| NIL))
         (SEQ
          (EXIT
           (SEQ
            (SEQ (LETT |i| 2 . #8=(|DIRRING;additive?;$PiB;21|))
                 (LETT #7# |n| . #8#) G190
                 (COND ((|greater_SI| |i| #7#) (GO G191)))
                 (SEQ
                  (LETT |fl|
                        (SPADCALL (SPADCALL |i| (QREFELT $ 57)) (QREFELT $ 61))
                        . #8#)
                  (LETT |rl|
                        (PROGN
                         (LETT #6# NIL . #8#)
                         (SEQ (LETT |f| NIL . #8#) (LETT #5# |fl| . #8#) G190
                              (COND
                               ((OR (ATOM #5#)
                                    (PROGN (LETT |f| (CAR #5#) . #8#) NIL))
                                (GO G191)))
                              (SEQ
                               (EXIT
                                (LETT #6#
                                      (CONS
                                       (SPADCALL |a|
                                                 (SPADCALL
                                                  (PROG1
                                                      (LETT #4# (QCAR |f|)
                                                            . #8#)
                                                    (|check_subtype2| (> #4# 0)
                                                                      '(|PositiveInteger|)
                                                                      '(|Integer|)
                                                                      #4#))
                                                  (PROG1
                                                      (LETT #3# (QCDR |f|)
                                                            . #8#)
                                                    (|check_subtype2| (> #3# 0)
                                                                      '(|PositiveInteger|)
                                                                      '(|Integer|)
                                                                      #3#))
                                                  (QREFELT $ 62))
                                                 (QREFELT $ 9))
                                       #6#)
                                      . #8#)))
                              (LETT #5# (CDR #5#) . #8#) (GO G190) G191
                              (EXIT (NREVERSE #6#))))
                        . #8#)
                  (EXIT
                   (COND
                    ((SPADCALL
                      (SPADCALL |a|
                                (PROG1 (LETT #2# |i| . #8#)
                                  (|check_subtype2| (> #2# 0)
                                                    '(|PositiveInteger|)
                                                    '(|NonNegativeInteger|)
                                                    #2#))
                                (QREFELT $ 9))
                      (SPADCALL (ELT $ 35) |rl| (QREFELT $ 63)) (QREFELT $ 64))
                     (SEQ
                      (SPADCALL (SPADCALL |i| (QREFELT $ 66)) (QREFELT $ 69))
                      (SPADCALL (SPADCALL |rl| (QREFELT $ 70)) (QREFELT $ 69))
                      (EXIT (PROGN (LETT #1# NIL . #8#) (GO #9=#:G900))))))))
                 (LETT |i| (|inc_SI| |i|) . #8#) (GO G190) G191 (EXIT NIL))
            (EXIT 'T)))
          #9# (EXIT #1#)))) 

(DECLAIM (NOTINLINE |DirichletRing;|)) 

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

(DEFUN |DirichletRing;| (|#1|)
  (SPROG ((|pv$| NIL) ($ NIL) (|dv$| NIL) (DV$1 NIL))
         (PROGN
          (LETT DV$1 (|devaluate| |#1|) . #1=(|DirichletRing|))
          (LETT |dv$| (LIST '|DirichletRing| DV$1) . #1#)
          (LETT $ (GETREFV 77) . #1#)
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3
                    (LETT |pv$|
                          (|buildPredVector| 0 0
                                             (LIST
                                              (|HasCategory| |#1|
                                                             '(|CommutativeRing|))))
                          . #1#))
          (|haddProp| |$ConstructorCache| '|DirichletRing| (LIST DV$1)
                      (CONS 1 $))
          (|stuffDomainSlots| $)
          (QSETREFV $ 6 |#1|)
          (SETF |pv$| (QREFELT $ 3))
          (QSETREFV $ 7
                    (|Record|
                     (|:| |function| (|Mapping| |#1| (|PositiveInteger|)))))
          (QSETREFV $ 19 (SPADCALL 1 (QREFELT $ 18)))
          $))) 

(MAKEPROP '|DirichletRing| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) '|Rep| (|PositiveInteger|)
              |DIRRING;elt;$PiCoef;3| (|Mapping| 6 8) |DIRRING;coerce;$M;4|
              |DIRRING;coerce;M$;5|
              (CONS IDENTITY
                    (FUNCALL (|dispatchFunction| |DIRRING;One;$;9|) $))
              (0 . |One|) (|Stream| 16) (|Integer|)
              (|StreamTaylorSeriesOperations| 16) (4 . |integers|) '|indices|
              (|Stream| 6) (|Mapping| 6 16) (|StreamFunctions2| 16 6)
              (9 . |map|) |DIRRING;coerce;$S;6| (15 . |elt|)
              |DIRRING;coerce;S$;7| (|OutputForm|) (21 . |coerce|)
              |DIRRING;coerce;$Of;8| (|Boolean|) (26 . |one?|) (31 . |Zero|)
              (CONS IDENTITY
                    (FUNCALL (|dispatchFunction| |DIRRING;Zero;$;10|) $))
              (CONS IDENTITY
                    (FUNCALL (|dispatchFunction| |DIRRING;zeta;$;11|) $))
              (35 . +) |DIRRING;+;3$;12| (41 . -) |DIRRING;-;2$;13| (46 . *)
              |DIRRING;*;I2$;14| (52 . *) |DIRRING;*;Coef2$;15| (|List| 16)
              (|IntegerNumberTheoryFunctions|) (58 . |divisors|) (63 . |quo|)
              (|Mapping| 6 6 6) (|List| 6) (|ListFunctions2| 6 6)
              (69 . |reduce|) |DIRRING;*;3$;16| (|Union| $ '"failed")
              (76 . |recip|) |DIRRING;unit?;$B;17| |DIRRING;recip;$U;19|
              (|Factored| $) (81 . |factor|)
              (|Record| (|:| |factor| 16) (|:| |exponent| 16)) (|List| 58)
              (|Factored| 16) (86 . |factors|) (91 . ^) (97 . |reduce|)
              (103 . ~=) (|NonNegativeInteger|) (109 . |coerce|) (|Void|)
              (|OutputPackage|) (114 . |output|) (119 . |coerce|)
              |DIRRING;multiplicative?;$PiB;20| |DIRRING;additive?;$PiB;21|
              (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $))
              (|HashState|) (|String|) (|SingleInteger|))
           '#(~= 124 |zeta| 130 |zero?| 134 |unitNormal| 139 |unitCanonical|
              144 |unit?| 149 |subtractIfCan| 154 |sample| 160 |rightRecip| 164
              |rightPower| 169 |recip| 181 |opposite?| 186 |one?| 192
              |multiplicative?| 197 |leftRecip| 203 |leftPower| 208 |latex| 220
              |hashUpdate!| 225 |hash| 231 |exquo| 236 |elt| 242 |commutator|
              248 |coerce| 254 |characteristic| 294 |associator| 298
              |associates?| 305 |antiCommutator| 311 |annihilate?| 317
              |additive?| 323 ^ 329 |Zero| 341 |One| 345 = 349 - 355 + 366 *
              372)
           'NIL
           (CONS
            (|makeByteWordVec2| 1
                                '(1 1 1 1 1 0 0 0 0 1 1 0 0 1 0 0 0 1 1 0 0 0 0
                                  0 0 0 0 0 0 0 0 0 0 0 1 1))
            (CONS
             '#(NIL |Algebra&| NIL |Algebra&| |EntireRing&| NIL |Rng&| NIL NIL
                |Module&| |Module&| |NonAssociativeRing&| NIL NIL
                |NonAssociativeRng&| NIL NIL NIL NIL |AbelianGroup&| NIL NIL
                NIL NIL |MagmaWithUnit&| |NonAssociativeSemiRng&|
                |AbelianMonoid&| |Magma&| |AbelianSemiGroup&| |SetCategory&|
                NIL NIL |BasicType&| NIL NIL NIL)
             (CONS
              '#((|IntegralDomain|) (|Algebra| 6) (|CommutativeRing|)
                 (|Algebra| $$) (|EntireRing|) (|Ring|) (|Rng|) (|SemiRing|)
                 (|SemiRng|) (|Module| 6) (|Module| $$) (|NonAssociativeRing|)
                 (|BiModule| $$ $$) (|BiModule| 6 6) (|NonAssociativeRng|)
                 (|RightModule| $$) (|LeftModule| $$) (|LeftModule| 6)
                 (|RightModule| 6) (|AbelianGroup|) (|Monoid|)
                 (|NonAssociativeSemiRing|) (|CancellationAbelianMonoid|)
                 (|SemiGroup|) (|MagmaWithUnit|) (|NonAssociativeSemiRng|)
                 (|AbelianMonoid|) (|Magma|) (|AbelianSemiGroup|)
                 (|SetCategory|) (|Eltable| 8 6) (|unitsKnown|) (|BasicType|)
                 (|CoercibleTo| 27) (|CommutativeStar|) (|noZeroDivisors|))
              (|makeByteWordVec2| 76
                                  '(0 6 0 14 1 17 15 16 18 2 22 20 21 15 23 2
                                    20 6 0 16 25 1 20 27 0 28 1 8 30 0 31 0 6 0
                                    32 2 6 0 0 0 35 1 6 0 0 37 2 6 0 16 0 39 2
                                    6 0 0 0 41 1 44 43 16 45 2 16 0 0 0 46 3 49
                                    6 47 48 6 50 1 6 52 0 53 1 16 56 0 57 1 60
                                    59 0 61 2 8 0 0 8 62 2 48 6 47 0 63 2 6 30
                                    0 0 64 1 65 27 0 66 1 68 67 27 69 1 48 27 0
                                    70 2 0 30 0 0 1 0 0 0 34 1 0 30 0 1 1 1 73
                                    0 1 1 1 0 0 1 1 1 30 0 54 2 0 52 0 0 1 0 0
                                    0 1 1 0 52 0 1 2 0 0 0 65 1 2 0 0 0 8 1 1 0
                                    52 0 55 2 0 30 0 0 1 1 0 30 0 1 2 0 30 0 8
                                    71 1 0 52 0 1 2 0 0 0 65 1 2 0 0 0 8 1 1 0
                                    75 0 1 2 0 74 74 0 1 1 0 76 0 1 2 1 52 0 0
                                    1 2 0 6 0 8 9 2 0 0 0 0 1 1 1 0 6 1 1 1 0 0
                                    1 1 0 20 0 24 1 0 10 0 11 1 0 0 20 26 1 0 0
                                    10 12 1 0 0 16 1 1 0 27 0 29 0 0 65 1 3 0 0
                                    0 0 0 1 2 1 30 0 0 1 2 0 0 0 0 1 2 0 30 0 0
                                    1 2 0 30 0 8 72 2 0 0 0 65 1 2 0 0 0 8 1 0
                                    0 0 33 0 0 0 13 2 0 30 0 0 1 1 0 0 0 38 2 0
                                    0 0 0 1 2 0 0 0 0 36 2 1 0 6 0 42 2 1 0 0 6
                                    1 2 0 0 65 0 1 2 0 0 16 0 40 2 0 0 0 0 51 2
                                    0 0 8 0 1)))))
           '|lookupComplete|)) 
