
(SDEFUN |RESRING;Zero;%;1| ((% (%))) (|spadConstant| % 20)) 

(SDEFUN |RESRING;One;%;2| ((% (%))) (|spadConstant| % 22)) 

(SDEFUN |RESRING;reduce;FPol%;3| ((|f| (|FPol|)) (% (%)))
        (SPADCALL |f| (QREFELT % 15) (QREFELT % 24))) 

(SDEFUN |RESRING;coerce;FPol%;4| ((|f| (|FPol|)) (% (%)))
        (SPADCALL |f| (QREFELT % 15) (QREFELT % 24))) 

(PUT '|RESRING;lift;%FPol;5| '|SPADreplace| '(XLAM (|x|) |x|)) 

(SDEFUN |RESRING;lift;%FPol;5| ((|x| (%)) (% (|FPol|))) |x|) 

(SDEFUN |RESRING;+;3%;6| ((|x| (%)) (|y| (%)) (% (%)))
        (SPADCALL |x| |y| (QREFELT % 28))) 

(SDEFUN |RESRING;-;2%;7| ((|x| (%)) (% (%))) (SPADCALL |x| (QREFELT % 30))) 

(SDEFUN |RESRING;*;3%;8| ((|x| (%)) (|y| (%)) (% (%)))
        (SPADCALL (SPADCALL (SPADCALL |x| |y| (QREFELT % 32)) (QREFELT % 27))
                  (QREFELT % 15) (QREFELT % 24))) 

(SDEFUN |RESRING;*;I2%;9| ((|n| (|Integer|)) (|x| (%)) (% (%)))
        (SPADCALL |n| |x| (QREFELT % 35))) 

(SDEFUN |RESRING;*;F2%;10| ((|a| (F)) (|x| (%)) (% (%)))
        (SPADCALL |a| |x| (QREFELT % 37))) 

(SDEFUN |RESRING;=;2%B;11| ((|x| (%)) (|y| (%)) (% (|Boolean|)))
        (SPADCALL |x| |y| (QREFELT % 39))) 

(SDEFUN |RESRING;characteristic;Nni;12| ((% (|NonNegativeInteger|)))
        (SPADCALL (QREFELT % 42))) 

(SDEFUN |RESRING;coerce;%Of;13| ((|x| (%)) (% (|OutputForm|)))
        (SPADCALL |x| (QREFELT % 45))) 

(DECLAIM (NOTINLINE |ResidueRing;|)) 

(DEFUN |ResidueRing| (&REST #1=#:G27)
  (SPROG NIL
         (PROG (#2=#:G28)
           (RETURN
            (COND
             ((LETT #2#
                    (|lassocShiftWithFunction|
                     (|devaluate_sig| #1# '(T T T T NIL))
                     (HGET |$ConstructorCache| '|ResidueRing|)
                     '|domainEqualList|))
              (|CDRwithIncrement| #2#))
             ('T
              (UNWIND-PROTECT
                  (PROG1 (APPLY (|function| |ResidueRing;|) #1#) (LETT #2# T))
                (COND
                 ((NOT #2#) (HREM |$ConstructorCache| '|ResidueRing|)))))))))) 

(DEFUN |ResidueRing;| (|#1| |#2| |#3| |#4| |#5|)
  (SPROG
   ((|pv$| NIL) (% NIL) (|dv$| NIL) (DV$5 NIL) (DV$4 NIL) (DV$3 NIL) (DV$2 NIL)
    (DV$1 NIL))
   (PROGN
    (LETT DV$1 (|devaluate| |#1|))
    (LETT DV$2 (|devaluate| |#2|))
    (LETT DV$3 (|devaluate| |#3|))
    (LETT DV$4 (|devaluate| |#4|))
    (LETT DV$5 |#5|)
    (LETT |dv$| (LIST '|ResidueRing| DV$1 DV$2 DV$3 DV$4 DV$5))
    (LETT % (GETREFV 50))
    (QSETREFV % 0 |dv$|)
    (QSETREFV % 3 (LETT |pv$| (|buildPredVector| 0 0 NIL)))
    (|haddProp| |$ConstructorCache| '|ResidueRing|
                (LIST DV$1 DV$2 DV$3 DV$4 DV$5) (CONS 1 %))
    (|stuffDomainSlots| %)
    (QSETREFV % 6 |#1|)
    (QSETREFV % 7 |#2|)
    (QSETREFV % 8 |#3|)
    (QSETREFV % 9 |#4|)
    (QSETREFV % 10 |#5|)
    (SETF |pv$| (QREFELT % 3))
    (QSETREFV % 11 |#4|)
    (QSETREFV % 15 (SPADCALL |#5| (QREFELT % 14)))
    (QSETREFV % 19
              (SPADCALL (QREFELT % 15) (LIST (|spadConstant| % 16))
                        (QREFELT % 18)))
    (COND ((QREFELT % 19) (|error| "the residue ring is the zero ring")))
    %))) 

(MAKEPROP '|ResidueRing| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
              (|local| |#3|) (|local| |#4|) (|local| |#5|) '|Rep| (|List| 9)
              (|GroebnerPackage| 6 7 9) (0 . |groebner|) '|relations|
              (5 . |One|) (|Boolean|) (9 . =) '#:G1 (15 . |Zero|)
              (CONS IDENTITY
                    (FUNCALL (|dispatchFunction| |RESRING;Zero;%;1|) %))
              (19 . |One|)
              (CONS IDENTITY
                    (FUNCALL (|dispatchFunction| |RESRING;One;%;2|) %))
              (23 . |normalForm|) |RESRING;reduce;FPol%;3|
              |RESRING;coerce;FPol%;4| |RESRING;lift;%FPol;5| (29 . +)
              |RESRING;+;3%;6| (35 . -) |RESRING;-;2%;7| (40 . *)
              |RESRING;*;3%;8| (|Integer|) (46 . *) |RESRING;*;I2%;9| (52 . *)
              |RESRING;*;F2%;10| (58 . =) |RESRING;=;2%B;11|
              (|NonNegativeInteger|) (64 . |characteristic|)
              |RESRING;characteristic;Nni;12| (|OutputForm|) (68 . |coerce|)
              |RESRING;coerce;%Of;13| (|String|) (|PositiveInteger|)
              (|Union| % '"failed"))
           '#(~= 73 |zero?| 79 |subtractIfCan| 84 |sample| 90 |rightRecip| 94
              |rightPower| 99 |reduce| 111 |recip| 116 |plenaryPower| 121
              |opposite?| 127 |one?| 133 |lift| 138 |leftRecip| 143 |leftPower|
              148 |latex| 160 |commutator| 165 |coerce| 171 |characteristic|
              196 |associator| 200 |antiCommutator| 207 |annihilate?| 213 ^ 219
              |Zero| 231 |One| 235 = 239 - 245 + 256 * 262)
           'NIL
           (CONS
            (|makeByteWordVec2| 1
                                '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
                                  0 0 0 0 0 0 0 0 0 0 0 0))
            (CONS
             '#(NIL |Algebra&| |Algebra&| NIL NIL |Rng&|
                |NonAssociativeAlgebra&| |NonAssociativeAlgebra&| NIL |Module&|
                |Module&| |NonAssociativeRing&| NIL NIL NIL
                |NonAssociativeRng&| NIL NIL NIL |AbelianGroup&| NIL NIL NIL
                |AbelianMonoid&| |NonAssociativeSemiRng&| |MagmaWithUnit&| NIL
                |AbelianSemiGroup&| |Magma&| |SetCategory&| NIL NIL
                |BasicType&| NIL NIL)
             (CONS
              '#((|CommutativeRing|) (|Algebra| $$) (|Algebra| 6) (|Ring|)
                 (|SemiRing|) (|Rng|) (|NonAssociativeAlgebra| $$)
                 (|NonAssociativeAlgebra| 6) (|SemiRng|) (|Module| $$)
                 (|Module| 6) (|NonAssociativeRing|) (|BiModule| $$ $$)
                 (|BiModule| 6 6) (|RightModule| $$) (|NonAssociativeRng|)
                 (|LeftModule| $$) (|LeftModule| 6) (|RightModule| 6)
                 (|AbelianGroup|) (|CancellationAbelianMonoid|)
                 (|NonAssociativeSemiRing|) (|Monoid|) (|AbelianMonoid|)
                 (|NonAssociativeSemiRng|) (|MagmaWithUnit|) (|SemiGroup|)
                 (|AbelianSemiGroup|) (|Magma|) (|SetCategory|)
                 (|CommutativeStar|) (|CoercibleTo| 44) (|BasicType|)
                 (|unitsKnown|) (|TwoSidedRecip|))
              (|makeByteWordVec2| 49
                                  '(1 13 12 12 14 0 9 0 16 2 12 17 0 0 18 0 11
                                    0 20 0 11 0 22 2 13 9 9 12 24 2 11 0 0 0 28
                                    1 11 0 0 30 2 11 0 0 0 32 2 11 0 34 0 35 2
                                    11 0 6 0 37 2 11 17 0 0 39 0 6 41 42 1 11
                                    44 0 45 2 0 17 0 0 1 1 0 17 0 1 2 0 49 0 0
                                    1 0 0 0 1 1 0 49 0 1 2 0 0 0 48 1 2 0 0 0
                                    41 1 1 0 0 9 25 1 0 49 0 1 2 0 0 0 48 1 2 0
                                    17 0 0 1 1 0 17 0 1 1 0 9 0 27 1 0 49 0 1 2
                                    0 0 0 48 1 2 0 0 0 41 1 1 0 47 0 1 2 0 0 0
                                    0 1 1 0 44 0 46 1 0 0 34 1 1 0 0 0 1 1 0 0
                                    6 1 1 0 0 9 26 0 0 41 43 3 0 0 0 0 0 1 2 0
                                    0 0 0 1 2 0 17 0 0 1 2 0 0 0 48 1 2 0 0 0
                                    41 1 0 0 0 21 0 0 0 23 2 0 17 0 0 40 2 0 0
                                    0 0 1 1 0 0 0 31 2 0 0 0 0 29 2 0 0 48 0 1
                                    2 0 0 0 0 33 2 0 0 34 0 36 2 0 0 41 0 1 2 0
                                    0 6 0 38 2 0 0 0 6 1)))))
           '|lookupComplete|)) 
