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 1502


Ignore:
Timestamp:
2015-06-12T12:54:32-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-tests.lisp

    r1501 r1502  
    379379         (P (cdr (string->poly "[x^2,x*y]" '(x y))))
    380380         (ring *ring-of-integers*)
    381          (F-sat (append (cdr (string->poly F-str '(u1 x y)))
    382                         (cdr (string->poly "[u1*x^2-1,u2*(x*y)-1]" '(u1 x y))))))
     381         (F-sat (append (cdr (string->poly F-str '(u1 u2 x y)))
     382                        (cdr (string->poly "[u1*x^2-1,u2*x*y-1]" '(u1 u2 x y))))))
    383383    (is (every #'poly-equal-no-sugar-p
    384384               (print (polysaturation-extension ring F P))
Note: See TracChangeset for help on using the changeset viewer.