Removing fixed
This commit is contained in:
parent
e8da597de9
commit
0d8ecdf816
|
@ -9,7 +9,7 @@
|
|||
< [#f #f]))
|
||||
---
|
||||
> M]))
|
||||
294a293,295
|
||||
293a292,294
|
||||
>
|
||||
> (define small-counter-example (term (([cons @ int] 1) [nil @ int])))
|
||||
> (test-equal (check small-counter-example) #f)
|
||||
>
|
||||
|
|
|
@ -292,20 +292,3 @@
|
|||
(generate-term poly-stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
|
@ -293,20 +293,3 @@
|
|||
(define small-counter-example (term (([cons @ int] 1) [nil @ int])))
|
||||
(test-equal (check small-counter-example) #f)
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
|
@ -292,20 +292,3 @@
|
|||
(generate-term poly-stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
|
@ -292,20 +292,3 @@
|
|||
(generate-term poly-stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
|
@ -292,20 +292,3 @@
|
|||
(generate-term poly-stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
|
@ -292,20 +292,3 @@
|
|||
(generate-term poly-stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
|
@ -291,20 +291,3 @@
|
|||
(generate-term poly-stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
|
@ -292,20 +292,3 @@
|
|||
(generate-term poly-stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
|
@ -292,20 +292,3 @@
|
|||
(generate-term poly-stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
|
@ -292,20 +292,3 @@
|
|||
(generate-term poly-stlc M #:i-th index)
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed
|
||||
(term
|
||||
(;; 2
|
||||
(([cons @ int] 1) nil)
|
||||
|
||||
;; 3 & 10 [designed for 3]
|
||||
((λ (x int) [nil @ int]) 1)
|
||||
|
||||
;; 5, 6, 7, 8 & 9 [designed for 4]
|
||||
((λ (x int) x)
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
;; 4
|
||||
([tl @ int]
|
||||
(([cons @ int] 1) [nil @ int]))
|
||||
|
||||
)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user