- Timestamp:
- 2016-06-01T10:25:47-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r4047 r4094 74 74 (is (= (sugar m) 6)) 75 75 (is (equalp (->list (make-instance 'monom :dimension 3)) '(0 0 0)) "Trivial monomial is a vector of 0's") 76 (is (universal-equalp (multiply -2m n) m*n))76 (is (universal-equalp (multiply m n) m*n)) 77 77 (is (universal-equalp (divide-by n m) n/m)) 78 78 (is (universal-equalp (right-tensor-product-by m n) m-tensor-n))
Note:
See TracChangeset
for help on using the changeset viewer.