parent
b29c7a2a40
commit
b5587cf557
@ -95,7 +95,7 @@
|
|||||||
(is (cat:cmbn-zero-p (cat:? c (cat:? c (+ 4 abar-degr)
|
(is (cat:cmbn-zero-p (cat:? c (cat:? c (+ 4 abar-degr)
|
||||||
gnrt)))))))))
|
gnrt)))))))))
|
||||||
|
|
||||||
|
#|
|
||||||
(test cs-left-hmeq-hat
|
(test cs-left-hmeq-hat
|
||||||
(cat:cat-init)
|
(cat:cat-init)
|
||||||
(let ((c (cat:cs-left-hmeq-hat (cat:k-z-1)))
|
(let ((c (cat:cs-left-hmeq-hat (cat:k-z-1)))
|
||||||
@ -141,7 +141,7 @@
|
|||||||
(print (cat:? c (+ 4 abar-degr) gnrt))
|
(print (cat:? c (+ 4 abar-degr) gnrt))
|
||||||
(is (cat:cmbn-zero-p (cat:? c (cat:? c (+ 4 abar-degr)
|
(is (cat:cmbn-zero-p (cat:? c (cat:? c (+ 4 abar-degr)
|
||||||
gnrt)))))))))
|
gnrt)))))))))
|
||||||
|
|#
|
||||||
|
|
||||||
(test cs-pre-left-hmeq-left-reduction
|
(test cs-pre-left-hmeq-left-reduction
|
||||||
(cat:cat-init)
|
(cat:cat-init)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user