@@ -241,10 +241,10 @@ pub fn to_standard_domain<T: Operations>(v: T) -> T {
241
241
}
242
242
243
243
#[ hax_lib:: fstar:: verification_status( lax) ]
244
- #[ hax_lib:: requires( fstar!( r#"Spec.Utils.is_i16b_array 3328 (i1._super_12682756204189288427 .f_repr a)"# ) ) ]
244
+ #[ hax_lib:: requires( fstar!( r#"Spec.Utils.is_i16b_array 3328 (i1._super_15138760880757129450 .f_repr a)"# ) ) ]
245
245
#[ hax_lib:: ensures( |result| fstar!( r#"forall i.
246
- (let x = Seq.index (i1._super_12682756204189288427 .f_repr ${a}) i in
247
- let y = Seq.index (i1._super_12682756204189288427 .f_repr ${result}) i in
246
+ (let x = Seq.index (i1._super_15138760880757129450 .f_repr ${a}) i in
247
+ let y = Seq.index (i1._super_15138760880757129450 .f_repr ${result}) i in
248
248
(v y >= 0 /\ v y <= 3328 /\ (v y % 3329 == v x % 3329)))"# ) ) ]
249
249
#[ inline( always) ]
250
250
pub fn to_unsigned_representative < T : Operations > ( a : T ) -> T {
@@ -254,28 +254,28 @@ pub fn to_unsigned_representative<T: Operations>(a: T) -> T {
254
254
}
255
255
256
256
#[ hax_lib:: fstar:: options( "--z3rlimit 200 --split_queries always" ) ]
257
- #[ hax_lib:: requires( fstar!( r#"forall i. let x = Seq.index (i1._super_12682756204189288427 .f_repr ${vec}) i in
257
+ #[ hax_lib:: requires( fstar!( r#"forall i. let x = Seq.index (i1._super_15138760880757129450 .f_repr ${vec}) i in
258
258
(x == mk_i16 0 \/ x == mk_i16 1)"# ) ) ]
259
259
#[ inline( always) ]
260
260
pub fn decompress_1 < T : Operations > ( vec : T ) -> T {
261
261
let z = T :: ZERO ( ) ;
262
262
hax_lib:: fstar!(
263
- "assert(forall i. Seq.index (i1._super_12682756204189288427 .f_repr ${z}) i == mk_i16 0)"
263
+ "assert(forall i. Seq.index (i1._super_15138760880757129450 .f_repr ${z}) i == mk_i16 0)"
264
264
) ;
265
265
hax_lib:: fstar!(
266
- r#"assert(forall i. let x = Seq.index (i1._super_12682756204189288427 .f_repr ${vec}) i in
266
+ r#"assert(forall i. let x = Seq.index (i1._super_15138760880757129450 .f_repr ${vec}) i in
267
267
((0 - v x) == 0 \/ (0 - v x) == -1))"#
268
268
) ;
269
269
hax_lib:: fstar!(
270
270
r#"assert(forall i. i < 16 ==>
271
271
Spec.Utils.is_intb (pow2 15 - 1)
272
- (0 - v (Seq.index (i1._super_12682756204189288427 .f_repr ${vec}) i)))"#
272
+ (0 - v (Seq.index (i1._super_15138760880757129450 .f_repr ${vec}) i)))"#
273
273
) ;
274
274
275
275
let s = T :: sub ( z, & vec) ;
276
276
hax_lib:: fstar!(
277
- r#"assert(forall i. Seq.index (i1._super_12682756204189288427 .f_repr ${s}) i == mk_i16 0 \/
278
- Seq.index (i1._super_12682756204189288427 .f_repr ${s}) i == mk_i16 (-1))"#
277
+ r#"assert(forall i. Seq.index (i1._super_15138760880757129450 .f_repr ${s}) i == mk_i16 0 \/
278
+ Seq.index (i1._super_15138760880757129450 .f_repr ${s}) i == mk_i16 (-1))"#
279
279
) ;
280
280
hax_lib:: fstar!( r#"assert (i1.f_bitwise_and_with_constant_pre ${s} (mk_i16 1665))"# ) ;
281
281
let res = T :: bitwise_and_with_constant ( s, 1665 ) ;
0 commit comments