15 lines
289 B
Racket
15 lines
289 B
Racket
#lang type-expander
|
||
|
||
(require (lib "phc-graph/flexible-with2.hl.rkt")
|
||
phc-toolkit/typed-rackunit-extensions)
|
||
|
||
(with-ρ (Row)
|
||
(define-type test
|
||
(∀ρ (A #:ρ Row)
|
||
(→ Any Any))))
|
||
|
||
(with-ρ (Row)
|
||
(define-type test2
|
||
(∀ρ (A #:ρ Row)
|
||
(→ Any Any))))
|