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 1385


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/ideal.lisp

    r1384 r1385  
    107107          (ideal-intersection ring-and-order f (list g) top-reduction-only)))
    108108
    109 (defun ideal-intersection (ring-and-order f g &optional (top-reduction-only $poly_top_reduction_only))
     109(defun ideal-intersection (ring-and-order f g
     110                           &optional
     111                             (top-reduction-only $poly_top_reduction_only)
     112                           &aux
     113                             (ring (ro-ring ring-and-order)))
    110114  (mapcar #'poly-contract
    111115          (ring-intersection
Note: See TracChangeset for help on using the changeset viewer.