Fixed another test
This commit is contained in:
parent
9d812c08b7
commit
dea93ab603
|
@ -388,9 +388,8 @@
|
|||
(check-type (inst Cons (→/test X X))
|
||||
: (→ (→/test X X) (List (→/test X X)) (List (→/test X X))))
|
||||
(check-type map : (→/test (→ X Y) (List X) (List Y)))
|
||||
|
||||
(check-type (Cons (λ ([x : X]) x) Nil)
|
||||
: (List (→/test {X} X X)))
|
||||
: (?∀ {X} (List (→ X X))))
|
||||
|
||||
(define (nn [x : X] -> (→ (× X (→ Y Y))))
|
||||
(λ () (tup x (λ ([x : Y]) x))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user