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 922


Ignore:
Timestamp:
2015-06-09T18:46:30-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/order.lisp

    r921 r922  
    113113;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    114114
     115;; This returns a closure with the same signature
     116;; as all orders such as #'LEX>.
    115117(defun make-elimination-order-1 (secondary-elimination-order)
    116118  "It constructs an elimination order used for the 1-st elimination ideal,
     
    126128         (funcall secondary-elimination-order p q (1+ start) end)))))
    127129
     130;; This returns a closure which is called with an integer argument.
     131;; The result is a closure with the same signature as all orders such as #'LEX>.
    128132(defun make-elimination-order-maker (primary-elimination-order secondary-elimination-order)
    129133  "Return a function with a single integer argument K. This should be
Note: See TracChangeset for help on using the changeset viewer.