stlc 2
This commit is contained in:
parent
7fc57ba1ad
commit
f9946f4b95
|
@ -4,3 +4,8 @@
|
|||
> (define the-error "the ((cons number) v) value has been omitted")
|
||||
33d32
|
||||
< ((cons v) v)
|
||||
270a270,273
|
||||
>
|
||||
> (define small-counter-example
|
||||
> (term ((cons 0) nil)))
|
||||
> (test-equal (check small-counter-example) #f)
|
||||
|
|
|
@ -267,3 +267,7 @@
|
|||
(begin0
|
||||
(generate-term stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define small-counter-example
|
||||
(term ((cons 0) nil)))
|
||||
(test-equal (check small-counter-example) #f)
|
||||
|
|
Loading…
Reference in New Issue
Block a user