diff options
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)]) |