From 46381652adbece2d7ccfd57fae8b5ee2365fb374 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Fri, 6 Jan 2023 16:51:27 +0100
Subject: Fix some issues with the values given back by loop backward
 translations

---
 tests/fstar/misc/Loops.Clauses.fst | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'tests/fstar/misc/Loops.Clauses.fst')

diff --git a/tests/fstar/misc/Loops.Clauses.fst b/tests/fstar/misc/Loops.Clauses.fst
index e673d4ff..57849896 100644
--- a/tests/fstar/misc/Loops.Clauses.fst
+++ b/tests/fstar/misc/Loops.Clauses.fst
@@ -37,6 +37,16 @@ unfold
 let list_nth_shared_loop_decreases (t : Type0) (ls : list_t t) (i : u32) : list_t t =
   ls
 
+(** [loops::get_elem_mut]: decreases clause *)
+unfold
+let get_elem_mut_decreases (x : usize) (ls : list_t usize) : list_t usize = ls
+
+(** [loops::get_elem_shared]: decreases clause *)
+unfold
+let get_elem_shared_decreases (x : usize) (v : vec (list_t usize))
+  (l : list_t usize) (ls : list_t usize) : list_t usize =
+  ls
+
 (** [loops::list_nth_mut_loop_with_id]: decreases clause *)
 unfold
 let list_nth_mut_loop_with_id_decreases (t : Type0) (i : u32) (ls : list_t t) :
-- 
cgit v1.2.3