(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|2 2 (DEFPARAMETER FiniteAbelianMonoidRing;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|::|FiniteAbelianMonoidRing;CAT|)
    |BOOT|::|FiniteAbelianMonoidRing;CAT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4 4 (DECLAIM (NOTINLINE FiniteAbelianMonoidRing;))-2|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 19 01)
   ((|COMMON-LISP|::|NOTINLINE| |BOOT|::|FiniteAbelianMonoidRing;|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6 6 (DEFPARAMETER FiniteAbelianMonoidRing;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|::|FiniteAbelianMonoidRing;AL|)
    |BOOT|::|FiniteAbelianMonoidRing;AL|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|8 17 (DEFUN FiniteAbelianMonoidRing (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|::|FiniteAbelianMonoidRing| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|FiniteAbelianMonoidRing|
       #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|::|FiniteAbelianMonoidRing;AL|
        |BOOT|::|assoc| |BOOT|::|FiniteAbelianMonoidRing;| |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(#:|19 62 (DEFUN FiniteAbelianMonoidRing; (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|::|FiniteAbelianMonoidRing;| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|FiniteAbelianMonoidRing;|
       #62Y(00 00 00 00 02 00 00 00 26 03 63 DA B0 B0 7B 02 70 01 0E 02 1C 13
            DD DE 70 05 DD 6F 06 E1 E2 01 02 6E 04 09 2D 03 0A 0F 02 14 30 0B
            F8 14 E6 B1 B1 7B 03 AC AF E7 2D 03 0E 16 01 15 19 04)
       ((|BOOT|::|t#1| |BOOT|::|t#2|) |BOOT|::|PAIR|
        |BOOT|::|FiniteAbelianMonoidRing;CAT| |BOOT|::|t#1| |BOOT|::|t#2|
        |BOOT|::|AbelianMonoidRing| |BOOT|::|FullyRetractableTo|
        (((|BOOT|::|ground?| ((|BOOT|::|Boolean|) |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|ground| (|BOOT|::|t#1| |BOOT|::|$|)) |COMMON-LISP|::|T|)
         ((|BOOT|::|coefficients| ((|BOOT|::|List| |BOOT|::|t#1|) |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|numberOfMonomials|
           ((|BOOT|::|NonNegativeInteger|) |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|minimumDegree| (|BOOT|::|t#2| |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|mapExponents|
           (|BOOT|::|$| (|BOOT|::|Mapping| |BOOT|::|t#2| |BOOT|::|t#2|)
            |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|pomopo!|
           (|BOOT|::|$| |BOOT|::|$| |BOOT|::|t#1| |BOOT|::|t#2| |BOOT|::|$|))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|fmecg|
           (|BOOT|::|$| |BOOT|::|$| |BOOT|::|t#2| |BOOT|::|t#1| |BOOT|::|$|))
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|Ring|)))
         ((|BOOT|::|binomThmExpt|
           (|BOOT|::|$| |BOOT|::|$| |BOOT|::|$|
            (|BOOT|::|NonNegativeInteger|)))
          (|BOOT|::|has| |BOOT|::|$| (|BOOT|::|CommutativeRing|)))
         ((|BOOT|::|exquo|
           ((|BOOT|::|Union| |BOOT|::|$| "failed") |BOOT|::|$| |BOOT|::|t#1|))
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|EntireRing|)))
         ((|BOOT|::|content| (|BOOT|::|t#1| |BOOT|::|$|))
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|GcdDomain|)))
         ((|BOOT|::|primitivePart| (|BOOT|::|$| |BOOT|::|$|))
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|GcdDomain|))))
        (((|BOOT|::|EntireRing|)
          (|BOOT|::|has| |BOOT|::|t#1| (|BOOT|::|EntireRing|))))
        |BOOT|::|mkCategory| |BOOT|::|Join| |BOOT|::|sublisV|
        |BOOT|::|FiniteAbelianMonoidRing| 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|))
