diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-07-04 12:29:30 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-07-04 12:29:30 +0100 |
| commit | 8791efda0cf7392144117cf780bfb6d687d2da5e (patch) | |
| tree | 28a656a13f17dac80b5a06a7cdf01450162c66eb /src/Encoded/Fin.idr | |
| parent | 5fdeacb6f61d4c7db0187a5cf85be90aae1dfa75 (diff) | |
Add more built-in functions.
Diffstat (limited to 'src/Encoded/Fin.idr')
| -rw-r--r-- | src/Encoded/Fin.idr | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Encoded/Fin.idr b/src/Encoded/Fin.idr index 0029760..3f369cf 100644 --- a/src/Encoded/Fin.idr +++ b/src/Encoded/Fin.idr @@ -40,4 +40,4 @@ forget = Id export divmod' : (k : Nat) -> {auto 0 ok : NonZero k} -> Term (N ~> N * Fin k) ctx -divmod' k = Abs' (\n => App divmod [<n, Lit k]) +divmod' k = Abs' (\n => App pair [<n `div` Op (Lit k), n `mod` Op (Lit k)]) |