polystlc 7
This commit is contained in:
parent
f7efcd1057
commit
11e5bda76f
|
@ -7,3 +7,7 @@
|
||||||
< (v E)))
|
< (v E)))
|
||||||
---
|
---
|
||||||
> (E M)))
|
> (E M)))
|
||||||
|
294a294,296
|
||||||
|
> (define small-counter-example
|
||||||
|
> (term ((+ 1) ((+ 2) 3))))
|
||||||
|
> (test-equal (check small-counter-example) #f)
|
||||||
|
|
|
@ -291,3 +291,6 @@
|
||||||
(generate-term poly-stlc M #:i-th index)
|
(generate-term poly-stlc M #:i-th index)
|
||||||
(set! index (add1 index))))))
|
(set! index (add1 index))))))
|
||||||
|
|
||||||
|
(define small-counter-example
|
||||||
|
(term ((+ 1) ((+ 2) 3))))
|
||||||
|
(test-equal (check small-counter-example) #f)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user