9 lines
191 B
Racket
9 lines
191 B
Racket
#lang typed/racket
|
|
(define-type Pos Integer)
|
|
(define-new-subtype Pos* (p Pos))
|
|
(define lst : (Listof Pos*)
|
|
'())
|
|
(define lst*
|
|
(reverse lst))
|
|
(ann lst* (Listof Nothing)) ; this should fail
|