blob: 68cbf216c31937e92d8d3705b628b3f972293db3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(** [array]: decreases clauses *)
module Array.Clauses
open Primitives
open Array.Types
open FStar.List.Tot
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [array::sum]: decreases clause *)
unfold
let sum_loop_decreases (s : slice u32) (sum : u32) (i : usize) : nat =
if i < length s then length s - i else 0
(** [array::sum2]: decreases clause *)
unfold
let sum2_loop_decreases (s : slice u32) (s2 : slice u32) (sum : u32)
(i : usize) : nat =
if i < length s then length s - i else 0
|
