diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-22 17:57:48 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-22 17:57:48 +0100 |
| commit | 6385ecf96cd60885c221e3144b5a5ec63eb5c831 (patch) | |
| tree | 541d06feb1517e91f62ab60854b80bb29343784c /src/Encoded/Fin.idr | |
| parent | 0ddaf1b2c9ca66cf0ae03d2f6ad792c7885dfc32 (diff) | |
Add encodings for containers.
Remove useless junk.
Diffstat (limited to 'src/Encoded/Fin.idr')
| -rw-r--r-- | src/Encoded/Fin.idr | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/Encoded/Fin.idr b/src/Encoded/Fin.idr index 901c612..0029760 100644 --- a/src/Encoded/Fin.idr +++ b/src/Encoded/Fin.idr @@ -5,7 +5,6 @@ import public Data.Nat import Data.Stream import Encoded.Arith import Encoded.Pair -import Term.Semantics import Term.Syntax export @@ -40,9 +39,5 @@ forget : Term (Fin k ~> N) ctx forget = Id export -allSem : (k : Nat) -> List (TypeOf (Fin k)) -allSem k = take k nats - -export divmod' : (k : Nat) -> {auto 0 ok : NonZero k} -> Term (N ~> N * Fin k) ctx divmod' k = Abs' (\n => App divmod [<n, Lit k]) |