Removing fixed

This commit is contained in:
Jay McCarthy 2014-03-19 15:37:24 -06:00
parent e8da597de9
commit 0d8ecdf816
11 changed files with 2 additions and 172 deletions

View File

@ -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)
>

View File

@ -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]))
)))

View File

@ -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]))
)))

View File

@ -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]))
)))

View File

@ -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]))
)))

View File

@ -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]))
)))

View File

@ -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]))
)))

View File

@ -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]))
)))

View File

@ -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]))
)))

View File

@ -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]))
)))

View File

@ -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]))
)))