close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 1565


Ignore:
Timestamp:
2015-06-12T15:57:17-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/5am-tests.lisp

    r1564 r1565  
    373373         (F-sat (append (cdr (string->poly F-str '(u x y)))
    374374                        (cdr (string->poly "[u*x^2-1]" '(u x y))))))
    375     (is (every #'poly-equal-no-sugar-p
    376                (saturation-extension-1 ring F p)
    377                F-sat))))
     375    (is (poly-set-equal-no-sugar-p   (saturation-extension-1 ring F p) F-sat))))
    378376
    379377;; Calculate [F, U1*P1+U2*P2+...+UK*PK-1], where PLIST=[P1,P2,...,PK]. It destructively modifies F.
     
    386384         (F-sat (append (cdr (string->poly F-str '(u1 u2 x y)))
    387385                        (cdr (string->poly "[u1*(x^2) + u2*(x*y)-1]" '(u1 u2 x y))))))
    388     (is (every #'poly-equal-no-sugar-p
    389                (polysaturation-extension ring F P)
    390                F-sat))))
     386    (is (poly-set-equal-no-sugar-p (polysaturation-extension ring F P) F-sat))))
    391387
    392388;; Calculate F : p^inf
Note: See TracChangeset for help on using the changeset viewer.