Changeset 2400
- Timestamp:
- 2015-06-18T22:22:50-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2399 r2400 74 74 (is (r-equalp (r-tensor-product m n) m-tensor-n)) 75 75 (signals 76 (error " INITIAL-EXPONENTS must have length DIMENSION")76 (error "EXPONENTS must have length DIMENSION") 77 77 (make-instance 'monom :dimension 3 :exponents '(1 2 3 4 5 6))) 78 78 (is-true (r-divides-p m n)) … … 106 106 (is (r-equalp (r-tensor-product m n) m-tensor-n)) 107 107 (signals 108 (error " INITIAL-EXPONENTS must have length DIMENSION")108 (error "EXPONENTS must have length DIMENSION") 109 109 (make-instance 'monom :dimension 3 :exponents '(1 2 3 4 5 6))) 110 110 (is-true (r-divides-p m n))
Note:
See TracChangeset
for help on using the changeset viewer.