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 1388 for branches/f4grobner


Ignore:
Timestamp:
2015-06-11T23:10:05-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/ideal.lisp

    r1387 r1388  
    148148
    149149;; Do two Grobner bases yield the same ideal?
    150 (defun grobner-equal (ring g1 g2)
     150(defun grobner-equal (ring-and-order g1 g2)
    151151  "Returns T if two lists of polynomials G1 and G2, assumed to be Grobner bases,
    152152generate  the same ideal, and NIL otherwise."
    153   (and (grobner-subsetp ring g1 g2) (grobner-subsetp ring g2 g1)))
     153  (declare (type ring-and-order ring-and-order))
     154  (and (grobner-subsetp ring-and-order g1 g2) (grobner-subsetp ring-and-order g2 g1)))
    154155
    155156(defun grobner-subsetp (ring g1 g2)
Note: See TracChangeset for help on using the changeset viewer.