test-flexible-with2b.rkt (289B)
1 #lang type-expander 2 3 (require (lib "phc-graph/flexible-with2.hl.rkt") 4 phc-toolkit/typed-rackunit-extensions) 5 6 (with-ρ (Row) 7 (define-type test 8 (∀ρ (A #:ρ Row) 9 (→ Any Any)))) 10 11 (with-ρ (Row) 12 (define-type test2 13 (∀ρ (A #:ρ Row) 14 (→ Any Any))))