(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|2 2 (DEFPARAMETER AbelianMonoidRing;CAT 'NIL)-1|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 63 31 5A C6 19 01)
   ((|COMMON-LISP|::|SPECIAL| |BOOT|::|AbelianMonoidRing;CAT|)
    |BOOT|::|AbelianMonoidRing;CAT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4 4 (DECLAIM (NOTINLINE AbelianMonoidRing;))-2|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 19 01)
   ((|COMMON-LISP|::|NOTINLINE| |BOOT|::|AbelianMonoidRing;|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6 6 (DEFPARAMETER AbelianMonoidRing;AL 'NIL)-3|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 63 31 5A C6 19 01)
   ((|COMMON-LISP|::|SPECIAL| |BOOT|::|AbelianMonoidRing;AL|)
    |BOOT|::|AbelianMonoidRing;AL|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|8 16 (DEFUN AbelianMonoidRing (t#1 t#2) ...)-4|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|AbelianMonoidRing| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|AbelianMonoidRing|
       #47Y(00 00 00 00 02 00 00 00 26 03 63 AF 6F 00 AF 6F 00 7B 02 AC 6B 01
            30 02 F9 1C 11 AC 99 03 9F 37 00 FA 7A 6B 01 30 04 0F 01 9E 19 05
            5C 19 05)
       (|BOOT|::|devaluate| |BOOT|::|AbelianMonoidRing;AL| |BOOT|::|assoc|
        |BOOT|::|AbelianMonoidRing;| |BOOT|::|cons5|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|BOOT|::|t#1| |BOOT|::|t#2|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|18 95 (DEFUN AbelianMonoidRing; (t#1 t#2) ...)-5|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|AbelianMonoidRing;| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|AbelianMonoidRing;|
       #62Y(00 00 00 00 02 00 00 00 26 03 63 DA B0 B0 7B 02 70 01 0E 02 1C 13
            2E 03 14 DE DE 70 05 E0 E1 01 02 6E 04 08 2D 03 09 0F 02 14 30 0A
            F8 14 E5 B1 B1 7B 03 AC AF E6 2D 03 0D 16 01 15 19 04)
       ((|BOOT|::|t#1| |BOOT|::|t#2|) |BOOT|::|PAIR|
        |BOOT|::|AbelianMonoidRing;CAT| |BOOT|::|SemiRng| |BOOT|::|t#1|
        |BOOT|::|BiModule|
        (((|BOOT|::|leadingCoefficient| (|BOOT|::|t#1| |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|leadingMonomial| (|BOOT|::|$| |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|degree| (|BOOT|::|t#2| |BOOT|::|$|)) |COMMON-LISP|::|T|)
         ((|BOOT|::|map|
           (|BOOT|::|$| (|BOOT|::|Mapping| |BOOT|::|t#1| |BOOT|::|t#1|)
            |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|monomial?| ((|BOOT|::|Boolean|) |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|monomial| (|BOOT|::|$| |BOOT|::|t#1| |BOOT|::|t#2|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|reductum| (|BOOT|::|$| |BOOT|::|$|)) |COMMON-LISP|::|T|)
         ((|BOOT|::|coefficient| (|BOOT|::|t#1| |BOOT|::|$| |BOOT|::|t#2|))
          |COMMON-LISP|::|T|)
         ((|COMMON-LISP|::|/| (|BOOT|::|$| |BOOT|::|$| |BOOT|::|t#1|))
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|Field|))))
        (((|BOOT|::|CancellationAbelianMonoid|)
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|CancellationAbelianMonoid|)))
         ((|BOOT|::|SemiRing|)
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|SemiRing|)))
         ((|BOOT|::|Ring|) (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|Ring|)))
         ((|BOOT|::|CommutativeRing|)
          (|COMMON-LISP|::|AND|
           (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|CommutativeRing|))
           (|BOOT|::|has| |BOOT|::|$|
            (|BOOT|::|VariablesCommuteWithCoefficients|))))
         ((|BOOT|::|Algebra| |BOOT|::|t#1|)
          (|COMMON-LISP|::|AND|
           (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|CommutativeRing|))
           (|BOOT|::|has| |BOOT|::|$|
            (|BOOT|::|VariablesCommuteWithCoefficients|))))
         ((|BOOT|::|CharacteristicZero|)
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|CharacteristicZero|)))
         ((|BOOT|::|CharacteristicNonZero|)
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|CharacteristicNonZero|)))
         ((|BOOT|::|IntegralDomain|)
          (|COMMON-LISP|::|AND|
           (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|IntegralDomain|))
           (|BOOT|::|has| |BOOT|::|$|
            (|BOOT|::|VariablesCommuteWithCoefficients|))))
         ((|BOOT|::|Algebra| (|BOOT|::|Fraction| (|BOOT|::|Integer|)))
          (|BOOT|::|has| |BOOT|::|t#1|
           (|BOOT|::|Algebra| (|BOOT|::|Fraction| (|BOOT|::|Integer|))))))
        |BOOT|::|mkCategory| |BOOT|::|Join| |BOOT|::|sublisV|
        |BOOT|::|AbelianMonoidRing| 0.
        #.(|SYSTEM|::|GET-SETF-SYMBOL| '|COMMON-LISP|::|ELT|))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|BOOT|::|t#1| |BOOT|::|t#2|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
