#lang macrotypes/tapl/typed-lang-builder
(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 : #%type ≫ tv-] ...) () ⊢ [[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]])