1818 **************************************************/
1919MLD_INTERNAL_API
2020void mld_pack_sk_s1 (uint8_t sk [MLDSA_CRYPTO_SECRETKEYBYTES ],
21- const mld_polyvecl * s1 )
22- __contract__ (
23- requires (memory_no_alias (sk , MLDSA_CRYPTO_SECRETKEYBYTES ))
24- requires (memory_no_alias (s1 , sizeof (mld_polyvecl )))
25- requires (forall (k1 , 0 , MLDSA_L ,
26- array_abs_bound (s1 - > vec [k1 ].coeffs , 0 , MLDSA_N , MLDSA_ETA + 1 )))
27- assigns (memory_slice (sk , MLDSA_CRYPTO_SECRETKEYBYTES ))
28- );
21+ const mld_polyvecl * s1 );
2922
3023#define mld_pack_sig_c MLD_NAMESPACE_KL(pack_sig_c)
3124/*************************************************
@@ -38,12 +31,7 @@ __contract__(
3831 **************************************************/
3932MLD_INTERNAL_API
4033void mld_pack_sig_c (uint8_t sig [MLDSA_CRYPTO_BYTES ],
41- const uint8_t c [MLDSA_CTILDEBYTES ])
42- __contract__ (
43- requires (memory_no_alias (sig , MLDSA_CRYPTO_BYTES ))
44- requires (memory_no_alias (c , MLDSA_CTILDEBYTES ))
45- assigns (memory_slice (sig , MLDSA_CRYPTO_BYTES ))
46- );
34+ const uint8_t c [MLDSA_CTILDEBYTES ]);
4735
4836#define mld_pack_sig_h_init MLD_NAMESPACE_KL(pack_sig_h_init)
4937/*************************************************
@@ -55,11 +43,7 @@ __contract__(
5543 * Arguments: - uint8_t sig[]: byte array containing signature
5644 **************************************************/
5745MLD_INTERNAL_API
58- void mld_pack_sig_h_init (uint8_t sig [MLDSA_CRYPTO_BYTES ])
59- __contract__ (
60- requires (memory_no_alias (sig , MLDSA_CRYPTO_BYTES ))
61- assigns (memory_slice (sig , MLDSA_CRYPTO_BYTES ))
62- );
46+ void mld_pack_sig_h_init (uint8_t sig [MLDSA_CRYPTO_BYTES ]);
6347
6448#define mld_pack_sig_h_poly MLD_NAMESPACE_KL(pack_sig_h_poly)
6549/*************************************************
@@ -78,18 +62,7 @@ __contract__(
7862 **************************************************/
7963MLD_INTERNAL_API
8064void mld_pack_sig_h_poly (uint8_t sig [MLDSA_CRYPTO_BYTES ], const mld_poly * h ,
81- unsigned int k , unsigned int * hints_written )
82- __contract__ (
83- requires (memory_no_alias (sig , MLDSA_CRYPTO_BYTES ))
84- requires (memory_no_alias (h , sizeof (mld_poly )))
85- requires (memory_no_alias (hints_written , sizeof (unsigned int )))
86- requires (k < MLDSA_K )
87- requires (* hints_written <= MLDSA_OMEGA )
88- requires (array_bound (h - > coeffs , 0 , MLDSA_N , 0 , 2 ))
89- assigns (memory_slice (sig , MLDSA_CRYPTO_BYTES ))
90- assigns (object_whole (hints_written ))
91- ensures (* hints_written <= MLDSA_OMEGA + MLDSA_N )
92- );
65+ unsigned int k , unsigned int * hints_written );
9366
9467#define mld_pack_sig_z MLD_NAMESPACE_KL(pack_sig_z)
9568/*************************************************
0 commit comments