diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2024-09-02 17:46:04 +0100 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2024-09-02 17:46:04 +0100 |
| commit | 9fa9055007f28f3e90a3a44024dbf2ba9ff6ea8b (patch) | |
| tree | d58d865c30cdbb23f9a5fb7b4a951cfd3921d372 /src/Inky | |
| parent | aa6e4f2bd3ced574cea7334dd4fc584c852f1ce0 (diff) | |
Define a type of well-kinded types.
Diffstat (limited to 'src/Inky')
| -rw-r--r-- | src/Inky/Type.idr | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Inky/Type.idr b/src/Inky/Type.idr index 8c4285e..096518a 100644 --- a/src/Inky/Type.idr +++ b/src/Inky/Type.idr @@ -1,7 +1,7 @@ module Inky.Type import Data.Bool.Decidable -import Data.DPair +import public Data.DPair import Inky.Binding import Inky.Env import Inky.Kind @@ -108,3 +108,7 @@ checkKindPrf env k (TEmbed a) with (synthKindPrf env a) | (synthKind env a) _ | RTrue eq | _ = RTrue (TEmbed aKind eq) _ | RFalse neq | _ = RFalse (\case TEmbed aKind' eq => neq $ trans eq $ synthKindUniq aKind' aKind) _ | No aUnkind | _ = RFalse (\case TEmbed aKind Refl => aUnkind _ aKind) + +public export +ATy : {w : World} -> Env Kind w -> Type +ATy env = Subset (RawCTy w) (CheckKind env KStar) |