33 lines
724 B
Racket
33 lines
724 B
Racket
#lang turnstile/lang
|
|
(extends "stlc+lit.rkt")
|
|
(reuse #:from "stlc+rec-iso.rkt") ; want this type=?
|
|
|
|
;; System F
|
|
;; Type relation:
|
|
;; - extend type=? with ∀
|
|
;; Types:
|
|
;; - types from stlc+lit.rkt
|
|
;; - ∀
|
|
;; Terms:
|
|
;; - terms from stlc+lit.rkt
|
|
;; - Λ and inst
|
|
|
|
(define-type-constructor ∀ #:bvs >= 0)
|
|
|
|
(define-typed-syntax Λ
|
|
[(Λ (tv:id ...) e) ≫
|
|
[([tv ≫ tv- : #%type] ...) () ⊢ [e ≫ e- ⇒ : τ]]
|
|
--------
|
|
[⊢ [_ ≫ e- ⇒ : (∀ (tv- ...) τ)]]])
|
|
|
|
(define-typed-syntax inst
|
|
[(inst e τ:type ...) ≫
|
|
[⊢ [e ≫ e- ⇒ : (~∀ tvs τ_body)]]
|
|
#:with τ_inst (substs #'(τ.norm ...) #'tvs #'τ_body)
|
|
--------
|
|
[⊢ [_ ≫ e- ⇒ : τ_inst]]]
|
|
[(inst e) ≫
|
|
--------
|
|
[_ ≻ e]])
|
|
|