yiyunliu/nbe-kripke-racket
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tighten up the signature

Browse source
This commit is contained in:
Yiyun Liu 2025-05-30 16:41:50 -04:00
parent c6528de647
commit 9dc599396a
2 changed files with 26 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
type-checker.rkt
View file

@ -23,7 +23,11 @@
(: synth (-> context Term Term))
(define (synth Γ a)
(error "unimplmented"))
(match a
[`(var ,i) (context-get Γ i)]
[`(app ,a ,b)
(let ([A (synth Γ a)]
[D (interp-with-scope (context-len Γ) A)]))]))
(: check (-> context Term D Boolean))
(define (check Γ a A)