Fixed another test

This commit is contained in:
Georges Dupéron 2017-09-29 17:59:46 +02:00
parent 9d812c08b7
commit dea93ab603

View File

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