Changeset 3707 for branches/f4grobner
- Timestamp:
- 2015-09-06T07:17:17-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3706 r3707 172 172 (sat-ext (list (alist->poly '( ((0 1 0 0) . 2) ((0 1 0 1) . 3))) 173 173 (alist->poly '( ((0 1 0 0) . 5) ((0 0 1 2) . 7))) 174 (alist->poly '( (( 1 1 1 1) . 11) ((1 2 3 4) . 13) ((0 0 0 0) . -1))))))174 (alist->poly '( ((0 0 0 0) . -1) ((1 1 1 1) . 11) ((1 2 3 4) . 13) ))))) 175 175 (is (universal-equalp (saturation-extension f (list p)) sat-ext)))) 176 176
Note:
See TracChangeset
for help on using the changeset viewer.