diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-03-31 17:52:34 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-03-31 17:52:34 +0100 |
| commit | a3a7020df35df764e01802089bba21079dcb0ddd (patch) | |
| tree | ce0506a4a316e48419879ce72fe8c76aef1ec1f4 /src | |
| parent | 571471ad7ba091bee9e98cc12a97a4d185d07a3d (diff) | |
Add default names for the View types.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Core/Thinning.idr | 2 | ||||
| -rw-r--r-- | src/Core/Var.idr | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/src/Core/Thinning.idr b/src/Core/Thinning.idr index 5781eaa..de0d5dc 100644 --- a/src/Core/Thinning.idr +++ b/src/Core/Thinning.idr @@ -49,6 +49,8 @@ data View : sx `Thins` sy -> Type where (0 prf : IsNotId thin) -> -- For uniqueness View (keep thin n) +%name View view + export view : (thin : sx `Thins` sy) -> View thin view IsId = Id sx diff --git a/src/Core/Var.idr b/src/Core/Var.idr index 502a416..25648e5 100644 --- a/src/Core/Var.idr +++ b/src/Core/Var.idr @@ -35,6 +35,8 @@ namespace View Here : View Core.Var.here There : (i : Var sx) -> View (there i) + %name View.View view + export view : (i : Var sx) -> View i view (MakeVar 0 Here) = Here |