stlc 1 counter
This commit is contained in:
parent
33ca8d05db
commit
7fc57ba1ad
|
@ -8,3 +8,8 @@
|
||||||
> (typeof Γ M_2 σ_2)
|
> (typeof Γ M_2 σ_2)
|
||||||
238d237
|
238d237
|
||||||
<
|
<
|
||||||
|
270a270,273
|
||||||
|
>
|
||||||
|
> (define small-counter-example
|
||||||
|
> (term (hd 0)))
|
||||||
|
> (test-equal (check small-counter-example) #f)
|
||||||
|
|
|
@ -267,3 +267,7 @@
|
||||||
(begin0
|
(begin0
|
||||||
(generate-term stlc M #:i-th index)
|
(generate-term stlc M #:i-th index)
|
||||||
(set! index (add1 index))))))
|
(set! index (add1 index))))))
|
||||||
|
|
||||||
|
(define small-counter-example
|
||||||
|
(term (hd 0)))
|
||||||
|
(test-equal (check small-counter-example) #f)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user