diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-21 20:32:56 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-21 20:32:56 +0000 |
| commit | a8a4ef9933a1a07b6fbf2d257df2a5fb40b1e87d (patch) | |
| tree | 5eeaa04614d2a1ad5d3e98bc9e9bd5af2f9bdbd5 /src/Obs/Sort.idr | |
| parent | 4bad0e68e4b984db004d75ab87ca5a181d223190 (diff) | |
Add sum types.
Diffstat (limited to 'src/Obs/Sort.idr')
| -rw-r--r-- | src/Obs/Sort.idr | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Obs/Sort.idr b/src/Obs/Sort.idr index 70d5ed2..bbd6975 100644 --- a/src/Obs/Sort.idr +++ b/src/Obs/Sort.idr @@ -43,6 +43,11 @@ suc Prop = Set 0 suc (Set i) = Set (S i) public export +ensureSet : Sort -> Sort +ensureSet Prop = Set 0 +ensureSet (Set i) = Set i + +public export lub : Sort -> Sort -> Sort lub Prop s' = s' lub (Set i) Prop = Set i |