Unify into a single implementation file

2025-09-04 18:30:47 -07:00
parent 51dbdbf415
commit be65d0dd4e
7 changed files with 162 additions and 118 deletions
--- a/TestAsconCXOF128.cry
+++ b/TestAsconCXOF128.cry
@@ -1,9 +1,9 @@
 module TestAsconCXOF128 where

-import AsconHash
+import Ascon

 testcase : {r, z, n} (fin n, fin r, 61 >= width z) => [8*n] -> [8*z] -> [8*r] -> Bool
-testcase M Z D = Ascon_CXOF128_bytes (split Z) (split M) == split D
+testcase M Z D = CXOF128_bytes (split Z) (split M) == split D

 property
  test1 = testcase [] [] 0x4F50159EF70BB3DAD8807E034EAEBD44C4FA2CBBC8CF1F05511AB66CDCC529905CA12083FC186AD899B270B1473DC5F7EC88D1052082DCDFE69FB75D269E7B74