diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2024-11-20 15:31:25 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2024-11-20 15:31:25 +0000 |
| commit | 0ecd9e608ced18f70f465c986d6519e8e95b0b6b (patch) | |
| tree | 32214f9e93eecbb6b1cc4aea12af1eba93f19ab7 /src/Inky/Term/Checks.idr | |
| parent | 3f72d28b7b348d441dde0e66e848ed4d7c16f5ba (diff) | |
Improve syntactic sugar.
Sugar makes programs nicer to write.
Diffstat (limited to 'src/Inky/Term/Checks.idr')
| -rw-r--r-- | src/Inky/Term/Checks.idr | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Inky/Term/Checks.idr b/src/Inky/Term/Checks.idr index 402f623..829561a 100644 --- a/src/Inky/Term/Checks.idr +++ b/src/Inky/Term/Checks.idr @@ -204,6 +204,7 @@ fallbackCheck prf p a = (either (EmbedNC1 prf) (\xPrf => uncurry (EmbedNC2 prf) $ snd xPrf)) $ (b := p) >=> alpha b a +export synths : (tyEnv : All (Assoc0 $ Ty [<]) tyCtx) -> (tmEnv : All (Assoc0 $ Ty [<]) tmCtx) -> |