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/TestAsconHash256.cry
+++ b/TestAsconHash256.cry
@@ -3,7 +3,7 @@ module TestAsconHash256 where
 import AsconHash

 testcase : {n} (fin n) => [8*n] -> [256] -> Bool
-testcase M D = join (Ascon_Hash256_bytes (split M)) == D
+testcase M D = Ascon_Hash256_bytes (split M) == split D

 property
  test1 = testcase [] 0x0B3BE5850F2F6B98CAF29F8FDEA89B64A1FA70AA249B8F839BD53BAA304D92B2