
(/VERSIONCHECK 2) 

(DEFUN |AN;zero?;$B;1| (|a| $)
  (SPADCALL |a| (|spadConstant| $ 7) (QREFELT $ 10))) 

(DEFUN |AN;one?;$B;2| (|a| $)
  (SPADCALL |a| (|spadConstant| $ 12) (QREFELT $ 10))) 

(DEFUN |AN;=;2$B;3| (|a| |b| $)
  (SPADCALL (SPADCALL |a| |b| (QREFELT $ 15)) (|spadConstant| $ 7)
            (QREFELT $ 10))) 

(DEFUN |AN;convert;$If;4| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 18)) (QREFELT $ 20))) 

(DEFUN |AlgebraicNumber| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G1842)
       (RETURN
        (COND
         ((LETT #2# (HGET |$ConstructorCache| '|AlgebraicNumber|)
                . #3=(|AlgebraicNumber|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache| '|AlgebraicNumber|
                         (LIST (CONS NIL (CONS 1 (|AlgebraicNumber;|))))))
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#) (HREM |$ConstructorCache| '|AlgebraicNumber|))))))))))) 

(DEFUN |AlgebraicNumber;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
     (PROGN
      (LETT |dv$| '(|AlgebraicNumber|) . #1=(|AlgebraicNumber|))
      (LETT $ (GETREFV 66) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|AlgebraicNumber| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (AND (|HasCategory| $ '(|Ring|)) (|augmentPredVector| $ 1))
      (AND (|HasCategory| $ '(|RetractableTo| (|Integer|)))
           (|augmentPredVector| $ 2))
      (SETF |pv$| (QREFELT $ 3))
      (QSETREFV $ 6 (|InnerAlgebraicNumber|))
      $)))) 

(MAKEPROP '|AlgebraicNumber| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL (|InnerAlgebraicNumber|) '|Rep| (0 . |Zero|)
              (4 . |Zero|) (|Boolean|) (8 . |trueEqual|) |AN;zero?;$B;1|
              (14 . |One|) (18 . |One|) |AN;one?;$B;2| (22 . -) |AN;=;2$B;3|
              (|InputForm|) (28 . |convert|) (|InputFormFunctions1| $$)
              (33 . |coerceToType|) |AN;convert;$If;4|
              (|SparseUnivariatePolynomial| $) (|Kernel| $) (|List| 23)
              (|SparseMultivariatePolynomial| 39 23) (|NonNegativeInteger|)
              (|Matrix| 37) (|Matrix| $) (|Complex| 32)
              (|Record| (|:| |mat| 27) (|:| |vec| (|Vector| 37))) (|Vector| $)
              (|Float|) (|DoubleFloat|)
              (|Record| (|:| |mat| 35) (|:| |vec| (|Vector| 39))) (|Matrix| 39)
              (|Union| 37 '#1="failed") (|Fraction| 39) (|Union| 39 '#1#)
              (|Integer|) (|PositiveInteger|) (|Union| $ '"failed")
              (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $))
              (|List| $) (|Union| 43 '"failed")
              (|Record| (|:| |coef| 43) (|:| |generator| $))
              (|Record| (|:| |quotient| $) (|:| |remainder| $))
              (|Record| (|:| |coef1| $) (|:| |coef2| $) (|:| |generator| $))
              (|Record| (|:| |coef1| $) (|:| |coef2| $)) (|Union| 48 '"failed")
              (|Factored| $) (|Polynomial| $) (|Symbol|) (|BasicOperator|)
              (|Mapping| $ 43) (|Mapping| $ $) (|List| 53) (|List| 55)
              (|List| 54) (|List| 52) (|Union| 23 '"failed") (|List| 62)
              (|Equation| $) (|SingleInteger|) (|String|) (|OutputForm|))
           '#(~= 38 |zerosOf| 44 |zeroOf| 60 |zero?| 76 |unitNormal| 81
              |unitCanonical| 86 |unit?| 91 |tower| 96 |subtractIfCan| 101
              |subst| 107 |squareFreePart| 126 |squareFree| 131 |sqrt| 136
              |smaller?| 141 |sizeLess?| 147 |sample| 153 |rootsOf| 157
              |rootOf| 173 |retractIfCan| 189 |retract| 204 |rem| 219
              |reducedSystem| 225 |reduce| 247 |recip| 252 |quo| 257
              |principalIdeal| 263 |prime?| 268 |paren| 273 |operators| 283
              |operator| 288 |one?| 293 |odd?| 298 |numer| 303 |nthRoot| 308
              |norm| 314 |multiEuclidean| 338 |minPoly| 344 |map| 349
              |mainKernel| 355 |lcm| 360 |latex| 371 |kernels| 376 |kernel| 381
              |is?| 393 |inv| 405 |height| 410 |hash| 415 |gcdPolynomial| 420
              |gcd| 426 |freeOf?| 437 |factor| 449 |extendedEuclidean| 454
              |exquo| 467 |expressIdealMember| 473 |even?| 479 |eval| 484
              |euclideanSize| 580 |elt| 585 |divide| 681 |distribute| 687
              |differentiate| 698 |denom| 709 |definingPolynomial| 714
              |convert| 719 |coerce| 739 |characteristic| 769 |box| 773
              |belong?| 783 |associates?| 788 ^ 794 |Zero| 818 |One| 822 D 826
              = 837 / 843 - 849 + 860 * 866)
           '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 0 0 0 0 0 0 0 0 0 0 0
                                  0 0 0 0 0 0 0 0 0 0))
            (CONS
             '#(|AlgebraicallyClosedField&| |Field&| |EuclideanDomain&|
                |UniqueFactorizationDomain&| NIL |GcdDomain&| |DivisionRing&|
                |IntegralDomain&| |Algebra&| |Algebra&| |DifferentialRing&| NIL
                NIL NIL |Module&| NIL |Module&| NIL NIL NIL |Ring&| NIL NIL NIL
                NIL NIL |AbelianGroup&| NIL NIL |ExpressionSpace&| NIL
                |Monoid&| |AbelianMonoid&| NIL |SemiGroup&| |AbelianSemiGroup&|
                NIL |SetCategory&| |Evalable&| NIL NIL NIL NIL |RetractableTo&|
                |RetractableTo&| |RadicalCategory&| NIL NIL NIL NIL NIL
                |BasicType&| |InnerEvalable&| |InnerEvalable&| |RetractableTo&|
                NIL)
             (CONS
              '#((|AlgebraicallyClosedField|) (|Field|) (|EuclideanDomain|)
                 (|UniqueFactorizationDomain|) (|PrincipalIdealDomain|)
                 (|GcdDomain|) (|DivisionRing|) (|IntegralDomain|)
                 (|Algebra| 37) (|Algebra| $$) (|DifferentialRing|)
                 (|CharacteristicZero|) (|LinearlyExplicitRingOver| 37)
                 (|LinearlyExplicitRingOver| 39) (|Module| 37) (|EntireRing|)
                 (|Module| $$) (|CommutativeRing|) (|BiModule| 37 37)
                 (|BiModule| $$ $$) (|Ring|) (|RightModule| 37)
                 (|LeftModule| 37) (|RightModule| $$) (|LeftModule| $$) (|Rng|)
                 (|AbelianGroup|) (|SemiRing|) (|CancellationAbelianMonoid|)
                 (|ExpressionSpace|) (|SemiRng|) (|Monoid|) (|AbelianMonoid|)
                 (|Comparable|) (|SemiGroup|) (|AbelianSemiGroup|)
                 (|RealConstant|) (|SetCategory|) (|Evalable| $$)
                 (|ConvertibleTo| 17) (|ConvertibleTo| 29) (|ConvertibleTo| 32)
                 (|ConvertibleTo| 33) (|RetractableTo| 37) (|RetractableTo| 39)
                 (|RadicalCategory|) (|canonicalsClosed|)
                 (|canonicalUnitNormal|) (|unitsKnown|) (|noZeroDivisors|)
                 (|CommutativeStar|) (|BasicType|) (|InnerEvalable| $$ $$)
                 (|InnerEvalable| (|Kernel| $$) $$)
                 (|RetractableTo| (|Kernel| $$)) (|CoercibleTo| 65))
              (|makeByteWordVec2| 65
                                  '(0 0 0 7 0 6 0 8 2 6 9 0 0 10 0 0 0 12 0 6 0
                                    13 2 0 0 0 0 15 1 6 17 0 18 1 19 17 17 20 2
                                    0 9 0 0 1 1 0 43 22 1 1 0 43 51 1 2 0 43 22
                                    52 1 1 0 0 51 1 2 0 0 22 52 1 1 0 0 22 1 1
                                    0 9 0 11 1 0 42 0 1 1 0 0 0 1 1 0 9 0 1 1 0
                                    24 0 1 2 0 41 0 0 1 2 0 0 0 61 1 3 0 0 0 24
                                    43 1 2 0 0 0 62 1 1 0 0 0 1 1 0 50 0 1 1 0
                                    0 0 1 2 0 9 0 0 1 2 0 9 0 0 1 0 0 0 1 1 0
                                    43 51 1 1 0 43 22 1 2 0 43 22 52 1 1 0 0 22
                                    1 1 0 0 51 1 2 0 0 22 52 1 1 0 36 0 1 1 0
                                    38 0 1 1 0 60 0 1 1 0 37 0 1 1 0 39 0 1 1 0
                                    23 0 1 2 0 0 0 0 1 1 0 27 28 1 2 0 30 28 31
                                    1 2 0 34 28 31 1 1 0 35 28 1 1 0 0 0 1 1 0
                                    41 0 1 2 0 0 0 0 1 1 0 45 43 1 1 0 9 0 1 1
                                    0 0 43 1 1 0 0 0 1 1 0 56 0 1 1 0 53 53 1 1
                                    0 9 0 14 1 2 9 0 1 1 0 25 0 1 2 0 0 0 39 1
                                    2 0 0 0 23 1 2 0 0 0 24 1 2 0 22 22 23 1 2
                                    0 22 22 24 1 2 0 44 43 0 1 1 1 22 23 1 2 0
                                    0 55 23 1 1 0 60 0 1 1 0 0 43 1 2 0 0 0 0 1
                                    1 0 64 0 1 1 0 24 0 1 2 0 0 53 43 1 2 0 0
                                    53 0 1 2 0 9 0 52 1 2 0 9 0 53 1 1 0 0 0 1
                                    1 0 26 0 1 1 0 63 0 1 2 0 22 22 22 1 1 0 0
                                    43 1 2 0 0 0 0 1 2 0 9 0 52 1 2 0 9 0 0 1 1
                                    0 50 0 1 2 0 47 0 0 1 3 0 49 0 0 0 1 2 0 41
                                    0 0 1 2 0 44 43 0 1 1 2 9 0 1 3 0 0 0 53 54
                                    1 3 0 0 0 53 55 1 3 0 0 0 56 57 1 3 0 0 0
                                    56 58 1 3 0 0 0 52 54 1 3 0 0 0 52 55 1 3 0
                                    0 0 59 58 1 3 0 0 0 59 57 1 3 0 0 0 0 0 1 3
                                    0 0 0 43 43 1 2 0 0 0 62 1 3 0 0 0 24 43 1
                                    2 0 0 0 61 1 3 0 0 0 23 0 1 1 0 26 0 1 2 0
                                    0 53 43 1 9 0 0 53 0 0 0 0 0 0 0 0 1 10 0 0
                                    53 0 0 0 0 0 0 0 0 0 1 8 0 0 53 0 0 0 0 0 0
                                    0 1 6 0 0 53 0 0 0 0 0 1 7 0 0 53 0 0 0 0 0
                                    0 1 4 0 0 53 0 0 0 1 5 0 0 53 0 0 0 0 1 2 0
                                    0 53 0 1 3 0 0 53 0 0 1 2 0 46 0 0 1 2 0 0
                                    0 0 1 1 0 0 0 1 1 0 0 0 1 2 0 0 0 26 1 1 0
                                    25 0 1 1 1 0 0 1 1 0 17 0 21 1 0 29 0 1 1 0
                                    32 0 1 1 0 33 0 1 1 0 0 25 1 1 0 0 0 1 1 0
                                    0 39 1 1 0 0 37 1 1 0 0 23 1 1 0 65 0 1 0 0
                                    26 1 1 0 0 0 1 1 0 0 43 1 1 0 9 53 1 2 0 9
                                    0 0 1 2 0 0 0 40 1 2 0 0 0 26 1 2 0 0 0 39
                                    1 2 0 0 0 37 1 0 0 0 7 0 0 0 12 1 0 0 0 1 2
                                    0 0 0 26 1 2 0 9 0 0 16 2 0 0 0 0 1 1 0 0 0
                                    1 2 0 0 0 0 15 2 0 0 0 0 1 2 0 0 40 0 1 2 0
                                    0 26 0 1 2 0 0 39 0 1 2 0 0 0 0 1 2 0 0 37
                                    0 1 2 0 0 0 37 1)))))
           '|lookupComplete|)) 

(MAKEPROP '|AlgebraicNumber| 'NILADIC T) 
