summaryrefslogtreecommitdiff
path: root/tests/fstar/traits/Traits.fst
blob: 7d504cb54d1d546aadd0761838ca1f21c26d8bf1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)
(** [traits] *)
module Traits
open Primitives

#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"

(** Trait declaration: [traits::BoolTrait]
    Source: 'src/traits.rs', lines 1:0-1:19 *)
noeq type boolTrait_t (self : Type0) = { get_bool : self -> result bool; }

(** [traits::{bool}::get_bool]: forward function
    Source: 'src/traits.rs', lines 12:4-12:30 *)
let bool_get_bool (self : bool) : result bool =
  Return self

(** Trait implementation: [traits::{bool}]
    Source: 'src/traits.rs', lines 11:0-11:23 *)
let traits_BoolTraitBoolInst : boolTrait_t bool = { get_bool = bool_get_bool; }

(** [traits::BoolTrait::ret_true]: forward function
    Source: 'src/traits.rs', lines 6:4-6:30 *)
let boolTrait_ret_true
  (#self : Type0) (self_clause : boolTrait_t self) (self0 : self) :
  result bool
  =
  Return true

(** [traits::test_bool_trait_bool]: forward function
    Source: 'src/traits.rs', lines 17:0-17:44 *)
let test_bool_trait_bool (x : bool) : result bool =
  let* b = bool_get_bool x in
  if b then boolTrait_ret_true traits_BoolTraitBoolInst x else Return false

(** [traits::{core::option::Option<T>#1}::get_bool]: forward function
    Source: 'src/traits.rs', lines 23:4-23:30 *)
let option_get_bool (t : Type0) (self : option t) : result bool =
  begin match self with | None -> Return false | Some x -> Return true end

(** Trait implementation: [traits::{core::option::Option<T>#1}]
    Source: 'src/traits.rs', lines 22:0-22:31 *)
let traits_BoolTraitcoreoptionOptionTInst (t : Type0) : boolTrait_t (option t)
  = {
  get_bool = option_get_bool t;
}

(** [traits::test_bool_trait_option]: forward function
    Source: 'src/traits.rs', lines 31:0-31:54 *)
let test_bool_trait_option (t : Type0) (x : option t) : result bool =
  let* b = option_get_bool t x in
  if b
  then boolTrait_ret_true (traits_BoolTraitcoreoptionOptionTInst t) x
  else Return false

(** [traits::test_bool_trait]: forward function
    Source: 'src/traits.rs', lines 35:0-35:50 *)
let test_bool_trait
  (t : Type0) (boolTraitTInst : boolTrait_t t) (x : t) : result bool =
  boolTraitTInst.get_bool x

(** Trait declaration: [traits::ToU64]
    Source: 'src/traits.rs', lines 39:0-39:15 *)
noeq type toU64_t (self : Type0) = { to_u64 : self -> result u64; }

(** [traits::{u64#2}::to_u64]: forward function
    Source: 'src/traits.rs', lines 44:4-44:26 *)
let u64_to_u64 (self : u64) : result u64 =
  Return self

(** Trait implementation: [traits::{u64#2}]
    Source: 'src/traits.rs', lines 43:0-43:18 *)
let traits_ToU64U64Inst : toU64_t u64 = { to_u64 = u64_to_u64; }

(** [traits::{(A, A)#3}::to_u64]: forward function
    Source: 'src/traits.rs', lines 50:4-50:26 *)
let pair_to_u64
  (a : Type0) (toU64AInst : toU64_t a) (self : (a & a)) : result u64 =
  let (x, x0) = self in
  let* i = toU64AInst.to_u64 x in
  let* i0 = toU64AInst.to_u64 x0 in
  u64_add i i0

(** Trait implementation: [traits::{(A, A)#3}]
    Source: 'src/traits.rs', lines 49:0-49:31 *)
let traits_ToU64TupleAAInst (a : Type0) (toU64AInst : toU64_t a) : toU64_t (a &
  a) = {
  to_u64 = pair_to_u64 a toU64AInst;
}

(** [traits::f]: forward function
    Source: 'src/traits.rs', lines 55:0-55:36 *)
let f (t : Type0) (toU64TInst : toU64_t t) (x : (t & t)) : result u64 =
  pair_to_u64 t toU64TInst x

(** [traits::g]: forward function
    Source: 'src/traits.rs', lines 59:0-61:18 *)
let g
  (t : Type0) (toU64TupleTTInst : toU64_t (t & t)) (x : (t & t)) : result u64 =
  toU64TupleTTInst.to_u64 x

(** [traits::h0]: forward function
    Source: 'src/traits.rs', lines 66:0-66:24 *)
let h0 (x : u64) : result u64 =
  u64_to_u64 x

(** [traits::Wrapper]
    Source: 'src/traits.rs', lines 70:0-70:21 *)
type wrapper_t (t : Type0) = { x : t; }

(** [traits::{traits::Wrapper<T>#4}::to_u64]: forward function
    Source: 'src/traits.rs', lines 75:4-75:26 *)
let wrapper_to_u64
  (t : Type0) (toU64TInst : toU64_t t) (self : wrapper_t t) : result u64 =
  toU64TInst.to_u64 self.x

(** Trait implementation: [traits::{traits::Wrapper<T>#4}]
    Source: 'src/traits.rs', lines 74:0-74:35 *)
let traits_ToU64traitsWrapperTInst (t : Type0) (toU64TInst : toU64_t t) :
  toU64_t (wrapper_t t) = {
  to_u64 = wrapper_to_u64 t toU64TInst;
}

(** [traits::h1]: forward function
    Source: 'src/traits.rs', lines 80:0-80:33 *)
let h1 (x : wrapper_t u64) : result u64 =
  wrapper_to_u64 u64 traits_ToU64U64Inst x

(** [traits::h2]: forward function
    Source: 'src/traits.rs', lines 84:0-84:41 *)
let h2 (t : Type0) (toU64TInst : toU64_t t) (x : wrapper_t t) : result u64 =
  wrapper_to_u64 t toU64TInst x

(** Trait declaration: [traits::ToType]
    Source: 'src/traits.rs', lines 88:0-88:19 *)
noeq type toType_t (self t : Type0) = { to_type : self -> result t; }

(** [traits::{u64#5}::to_type]: forward function
    Source: 'src/traits.rs', lines 93:4-93:28 *)
let u64_to_type (self : u64) : result bool =
  Return (self > 0)

(** Trait implementation: [traits::{u64#5}]
    Source: 'src/traits.rs', lines 92:0-92:25 *)
let traits_ToTypeU64BoolInst : toType_t u64 bool = { to_type = u64_to_type; }

(** Trait declaration: [traits::OfType]
    Source: 'src/traits.rs', lines 98:0-98:16 *)
noeq type ofType_t (self : Type0) = {
  of_type : (t : Type0) -> (toTypeTSelfInst : toType_t t self) -> t -> result
    self;
}

(** [traits::h3]: forward function
    Source: 'src/traits.rs', lines 104:0-104:50 *)
let h3
  (t1 t2 : Type0) (ofTypeT1Inst : ofType_t t1) (toTypeT2T1Inst : toType_t t2
  t1) (y : t2) :
  result t1
  =
  ofTypeT1Inst.of_type t2 toTypeT2T1Inst y

(** Trait declaration: [traits::OfTypeBis]
    Source: 'src/traits.rs', lines 109:0-109:36 *)
noeq type ofTypeBis_t (self t : Type0) = {
  toTypeTSelfInst : toType_t t self;
  of_type : t -> result self;
}

(** [traits::h4]: forward function
    Source: 'src/traits.rs', lines 118:0-118:57 *)
let h4
  (t1 t2 : Type0) (ofTypeBisT1T2Inst : ofTypeBis_t t1 t2) (toTypeT2T1Inst :
  toType_t t2 t1) (y : t2) :
  result t1
  =
  ofTypeBisT1T2Inst.of_type y

(** [traits::TestType]
    Source: 'src/traits.rs', lines 122:0-122:22 *)
type testType_t (t : Type0) = t

(** [traits::{traits::TestType<T>#6}::test::TestType1]
    Source: 'src/traits.rs', lines 127:8-127:24 *)
type testType_test_TestType1_t = u64

(** Trait declaration: [traits::{traits::TestType<T>#6}::test::TestTrait]
    Source: 'src/traits.rs', lines 128:8-128:23 *)
noeq type testType_test_TestTrait_t (self : Type0) = {
  test : self -> result bool;
}

(** [traits::{traits::TestType<T>#6}::test::{traits::{traits::TestType<T>#6}::test::TestType1}::test]: forward function
    Source: 'src/traits.rs', lines 139:12-139:34 *)
let testType_test_TestType1_test
  (self : testType_test_TestType1_t) : result bool =
  Return (self > 1)

(** Trait implementation: [traits::{traits::TestType<T>#6}::test::{traits::{traits::TestType<T>#6}::test::TestType1}]
    Source: 'src/traits.rs', lines 138:8-138:36 *)
let traits_TestType_test_TestTraittraitstraitsTestTypeTtestTestType1Inst :
  testType_test_TestTrait_t testType_test_TestType1_t = {
  test = testType_test_TestType1_test;
}

(** [traits::{traits::TestType<T>#6}::test]: forward function
    Source: 'src/traits.rs', lines 126:4-126:36 *)
let testType_test
  (t : Type0) (toU64TInst : toU64_t t) (self : testType_t t) (x : t) :
  result bool
  =
  let* x0 = toU64TInst.to_u64 x in
  if x0 > 0 then testType_test_TestType1_test 0 else Return false

(** [traits::BoolWrapper]
    Source: 'src/traits.rs', lines 150:0-150:22 *)
type boolWrapper_t = bool

(** [traits::{traits::BoolWrapper#7}::to_type]: forward function
    Source: 'src/traits.rs', lines 156:4-156:25 *)
let boolWrapper_to_type
  (t : Type0) (toTypeBoolTInst : toType_t bool t) (self : boolWrapper_t) :
  result t
  =
  toTypeBoolTInst.to_type self

(** Trait implementation: [traits::{traits::BoolWrapper#7}]
    Source: 'src/traits.rs', lines 152:0-152:33 *)
let traits_ToTypetraitsBoolWrapperTInst (t : Type0) (toTypeBoolTInst : toType_t
  bool t) : toType_t boolWrapper_t t = {
  to_type = boolWrapper_to_type t toTypeBoolTInst;
}

(** [traits::WithConstTy::LEN2]
    Source: 'src/traits.rs', lines 164:4-164:21 *)
let with_const_ty_len2_body : result usize = Return 32
let with_const_ty_len2_c : usize = eval_global with_const_ty_len2_body

(** Trait declaration: [traits::WithConstTy]
    Source: 'src/traits.rs', lines 161:0-161:39 *)
noeq type withConstTy_t (self : Type0) (len : usize) = {
  cLEN1 : usize;
  cLEN2 : usize;
  tV : Type0;
  tW : Type0;
  tW_clause_0 : toU64_t tW;
  f : tW -> array u8 len -> result tW;
}

(** [traits::{bool#8}::LEN1]
    Source: 'src/traits.rs', lines 175:4-175:21 *)
let bool_len1_body : result usize = Return 12
let bool_len1_c : usize = eval_global bool_len1_body

(** [traits::{bool#8}::f]: merged forward/backward function
    (there is a single backward function, and the forward function returns ())
    Source: 'src/traits.rs', lines 180:4-180:39 *)
let bool_f (i : u64) (a : array u8 32) : result u64 =
  Return i

(** Trait implementation: [traits::{bool#8}]
    Source: 'src/traits.rs', lines 174:0-174:29 *)
let traits_WithConstTyBool32Inst : withConstTy_t bool 32 = {
  cLEN1 = bool_len1_c;
  cLEN2 = with_const_ty_len2_c;
  tV = u8;
  tW = u64;
  tW_clause_0 = traits_ToU64U64Inst;
  f = bool_f;
}

(** [traits::use_with_const_ty1]: forward function
    Source: 'src/traits.rs', lines 183:0-183:75 *)
let use_with_const_ty1
  (h : Type0) (len : usize) (withConstTyHLENInst : withConstTy_t h len) :
  result usize
  =
  let i = withConstTyHLENInst.cLEN1 in Return i

(** [traits::use_with_const_ty2]: forward function
    Source: 'src/traits.rs', lines 187:0-187:73 *)
let use_with_const_ty2
  (h : Type0) (len : usize) (withConstTyHLENInst : withConstTy_t h len)
  (w : withConstTyHLENInst.tW) :
  result unit
  =
  Return ()

(** [traits::use_with_const_ty3]: forward function
    Source: 'src/traits.rs', lines 189:0-189:80 *)
let use_with_const_ty3
  (h : Type0) (len : usize) (withConstTyHLENInst : withConstTy_t h len)
  (x : withConstTyHLENInst.tW) :
  result u64
  =
  withConstTyHLENInst.tW_clause_0.to_u64 x

(** [traits::test_where1]: forward function
    Source: 'src/traits.rs', lines 193:0-193:40 *)
let test_where1 (t : Type0) (_x : t) : result unit =
  Return ()

(** [traits::test_where2]: forward function
    Source: 'src/traits.rs', lines 194:0-194:57 *)
let test_where2
  (t : Type0) (withConstTyT32Inst : withConstTy_t t 32) (_x : u32) :
  result unit
  =
  Return ()

(** Trait declaration: [traits::ParentTrait0]
    Source: 'src/traits.rs', lines 200:0-200:22 *)
noeq type parentTrait0_t (self : Type0) = {
  tW : Type0;
  get_name : self -> result string;
  get_w : self -> result tW;
}

(** Trait declaration: [traits::ParentTrait1]
    Source: 'src/traits.rs', lines 205:0-205:22 *)
type parentTrait1_t (self : Type0) = unit

(** Trait declaration: [traits::ChildTrait]
    Source: 'src/traits.rs', lines 206:0-206:49 *)
noeq type childTrait_t (self : Type0) = {
  parentTrait0SelfInst : parentTrait0_t self;
  parentTrait1SelfInst : parentTrait1_t self;
}

(** [traits::test_child_trait1]: forward function
    Source: 'src/traits.rs', lines 209:0-209:56 *)
let test_child_trait1
  (t : Type0) (childTraitTInst : childTrait_t t) (x : t) : result string =
  childTraitTInst.parentTrait0SelfInst.get_name x

(** [traits::test_child_trait2]: forward function
    Source: 'src/traits.rs', lines 213:0-213:54 *)
let test_child_trait2
  (t : Type0) (childTraitTInst : childTrait_t t) (x : t) :
  result childTraitTInst.parentTrait0SelfInst.tW
  =
  childTraitTInst.parentTrait0SelfInst.get_w x

(** [traits::order1]: forward function
    Source: 'src/traits.rs', lines 219:0-219:59 *)
let order1
  (t u : Type0) (parentTrait0TInst : parentTrait0_t t) (parentTrait0UInst :
  parentTrait0_t u) :
  result unit
  =
  Return ()

(** Trait declaration: [traits::ChildTrait1]
    Source: 'src/traits.rs', lines 222:0-222:35 *)
noeq type childTrait1_t (self : Type0) = {
  parentTrait1SelfInst : parentTrait1_t self;
}

(** Trait implementation: [traits::{usize#9}]
    Source: 'src/traits.rs', lines 224:0-224:27 *)
let traits_ParentTrait1UsizeInst : parentTrait1_t usize = ()

(** Trait implementation: [traits::{usize#10}]
    Source: 'src/traits.rs', lines 225:0-225:26 *)
let traits_ChildTrait1UsizeInst : childTrait1_t usize = {
  parentTrait1SelfInst = traits_ParentTrait1UsizeInst;
}

(** Trait declaration: [traits::Iterator]
    Source: 'src/traits.rs', lines 229:0-229:18 *)
noeq type iterator_t (self : Type0) = { tItem : Type0; }

(** Trait declaration: [traits::IntoIterator]
    Source: 'src/traits.rs', lines 233:0-233:22 *)
noeq type intoIterator_t (self : Type0) = {
  tItem : Type0;
  tIntoIter : Type0;
  tIntoIter_clause_0 : iterator_t tIntoIter;
  into_iter : self -> result tIntoIter;
}

(** Trait declaration: [traits::FromResidual]
    Source: 'src/traits.rs', lines 250:0-250:21 *)
type fromResidual_t (self t : Type0) = unit

(** Trait declaration: [traits::Try]
    Source: 'src/traits.rs', lines 246:0-246:48 *)
noeq type try_t (self : Type0) = {
  tResidual : Type0;
  fromResidualSelftraitsTrySelfResidualInst : fromResidual_t self tResidual;
}

(** Trait declaration: [traits::WithTarget]
    Source: 'src/traits.rs', lines 252:0-252:20 *)
noeq type withTarget_t (self : Type0) = { tTarget : Type0; }

(** Trait declaration: [traits::ParentTrait2]
    Source: 'src/traits.rs', lines 256:0-256:22 *)
noeq type parentTrait2_t (self : Type0) = {
  tU : Type0;
  tU_clause_0 : withTarget_t tU;
}

(** Trait declaration: [traits::ChildTrait2]
    Source: 'src/traits.rs', lines 260:0-260:35 *)
noeq type childTrait2_t (self : Type0) = {
  parentTrait2SelfInst : parentTrait2_t self;
  convert : parentTrait2SelfInst.tU -> result
    parentTrait2SelfInst.tU_clause_0.tTarget;
}

(** Trait implementation: [traits::{u32#11}]
    Source: 'src/traits.rs', lines 264:0-264:23 *)
let traits_WithTargetU32Inst : withTarget_t u32 = { tTarget = u32; }

(** Trait implementation: [traits::{u32#12}]
    Source: 'src/traits.rs', lines 268:0-268:25 *)
let traits_ParentTrait2U32Inst : parentTrait2_t u32 = {
  tU = u32;
  tU_clause_0 = traits_WithTargetU32Inst;
}

(** [traits::{u32#13}::convert]: forward function
    Source: 'src/traits.rs', lines 273:4-273:29 *)
let u32_convert (x : u32) : result u32 =
  Return x

(** Trait implementation: [traits::{u32#13}]
    Source: 'src/traits.rs', lines 272:0-272:24 *)
let traits_ChildTrait2U32Inst : childTrait2_t u32 = {
  parentTrait2SelfInst = traits_ParentTrait2U32Inst;
  convert = u32_convert;
}

(** Trait declaration: [traits::CFnOnce]
    Source: 'src/traits.rs', lines 286:0-286:23 *)
noeq type cFnOnce_t (self args : Type0) = {
  tOutput : Type0;
  call_once : self -> args -> result tOutput;
}

(** Trait declaration: [traits::CFnMut]
    Source: 'src/traits.rs', lines 292:0-292:37 *)
noeq type cFnMut_t (self args : Type0) = {
  cFnOnceSelfArgsInst : cFnOnce_t self args;
  call_mut : self -> args -> result cFnOnceSelfArgsInst.tOutput;
  call_mut_back : self -> args -> cFnOnceSelfArgsInst.tOutput -> result self;
}

(** Trait declaration: [traits::CFn]
    Source: 'src/traits.rs', lines 296:0-296:33 *)
noeq type cFn_t (self args : Type0) = {
  cFnMutSelfArgsInst : cFnMut_t self args;
  call_mut : self -> args -> result
    cFnMutSelfArgsInst.cFnOnceSelfArgsInst.tOutput;
}