diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-06 12:25:26 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-06 12:25:26 +0100 |
| commit | bf07a9fe3ee4ff06fe186e33221f7f91871b9217 (patch) | |
| tree | ac9597b4ad38a354aec3d6edc8b712179bd23b9c /src/Thinning.idr | |
| parent | d5f8497dbb6de72d9664f48d6acbc9772de77be3 (diff) | |
Write an encoding for data types.
Diffstat (limited to 'src/Thinning.idr')
| -rw-r--r-- | src/Thinning.idr | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Thinning.idr b/src/Thinning.idr index a79f0f5..a9b724d 100644 --- a/src/Thinning.idr +++ b/src/Thinning.idr @@ -31,6 +31,11 @@ keep Id = Id keep (Drop thin) = Keep (Drop thin) keep (Keep thin) = Keep (Keep thin) +public export +empty : (sx : SnocList a) -> [<] `Thins` sx +empty [<] = Id +empty (sx :< x) = Drop (empty sx) + -- Operations ------------------------------------------------------------------ public export |