summaryrefslogtreecommitdiff
path: root/tests/fstar/misc/Loops.Clauses.fst
blob: e09eda9a5690b1c53030bbb558b41fb50defe2d0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
(** [loops]: templates for the decreases clauses *)
module Loops.Clauses
open Primitives
open Loops.Types

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

(** [loops::list_nth_mut_loop]: decreases clause *)
unfold
let list_nth_mut_loop_decreases (t : Type0) (ls : list_t t) (i : u32) : nat =
  i