dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Playground highlights and shows info/errors from build

Browse Source
This commit is contained in:
Steve Dunham
2024-11-05 13:44:16 -08:00
parent f92d287909
commit 182876d16b
15 changed files with 305 additions and 145 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
newt/Combinatory.newt
View File

@@ -77,11 +77,11 @@ sapp : {Γ : Ctx} {σ τ ρ : Type} {f : _} {x : _} →
Comb Γ (σ ~> τ ~> ρ) f →
Comb Γ (σ ~> τ) x →
Comb Γ (σ ~> ρ) (\ env y => (f env y) (x env y))
-- sapp (CApp K t) I = t
-- sapp (CApp K t) (CApp K u) = CApp K (CApp t u)
-- sapp (CApp K t) u = CApp (CApp B t) u
-- sapp t (CApp K u) = CApp (CApp C t) u
-- sapp t u = CApp (CApp S t) u
sapp (CApp K t) I = t
sapp (CApp K t) (CApp K u) = CApp K (CApp t u)
sapp (CApp K t) u = CApp (CApp B t) u
sapp t (CApp K u) = CApp (CApp C t) u
sapp t u = CApp (CApp S t) u
abs : {Γ : Ctx} {σ τ : Type} {f : _} → Comb (σ :: Γ) τ f → Comb Γ (σ ~> τ) (\ env x => f (x ::: env))
abs S = CApp K S