Documentation and improved bit-order treatment

2025-09-04 14:55:46 -07:00
parent 676629dfe5
commit 51dbdbf415
8 changed files with 105 additions and 32 deletions
--- a/TestAsconCXOF128.cry
+++ b/TestAsconCXOF128.cry
@@ -3,7 +3,7 @@ module TestAsconCXOF128 where
 import AsconHash

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

 property
  test1 = testcase [] [] 0x4F50159EF70BB3DAD8807E034EAEBD44C4FA2CBBC8CF1F05511AB66CDCC529905CA12083FC186AD899B270B1473DC5F7EC88D1052082DCDFE69FB75D269E7B74