From e69382acbcc4bdd27612c9cf8ec282db71f8408d Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Fri, 13 Jan 2023 16:18:43 +0100
Subject: Improve the pretty names generation for loops

---
 tests/coq/hashmap/Hashmap_Funs.v | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'tests/coq/hashmap')

diff --git a/tests/coq/hashmap/Hashmap_Funs.v b/tests/coq/hashmap/Hashmap_Funs.v
index 9c65fb46..0d55b171 100644
--- a/tests/coq/hashmap/Hashmap_Funs.v
+++ b/tests/coq/hashmap/Hashmap_Funs.v
@@ -131,8 +131,8 @@ Fixpoint hash_map_insert_in_list_loop_back
       if ckey s= key
       then Return (ListCons ckey value tl)
       else (
-        l <- hash_map_insert_in_list_loop_back T n0 key value tl;
-        Return (ListCons ckey cvalue l))
+        tl0 <- hash_map_insert_in_list_loop_back T n0 key value tl;
+        Return (ListCons ckey cvalue tl0))
     | ListNil => let l := ListNil in Return (ListCons key value l)
     end
   end
@@ -365,8 +365,8 @@ Fixpoint hash_map_get_mut_in_list_loop_back
       if ckey s= key
       then Return (ListCons ckey ret tl)
       else (
-        l <- hash_map_get_mut_in_list_loop_back T n0 tl key ret;
-        Return (ListCons ckey cvalue l))
+        tl0 <- hash_map_get_mut_in_list_loop_back T n0 tl key ret;
+        Return (ListCons ckey cvalue tl0))
     | ListNil => Fail_ Failure
     end
   end
@@ -448,8 +448,8 @@ Fixpoint hash_map_remove_from_list_loop_back
         | ListNil => Fail_ Failure
         end
       else (
-        l <- hash_map_remove_from_list_loop_back T n0 key tl;
-        Return (ListCons ckey t l))
+        tl0 <- hash_map_remove_from_list_loop_back T n0 key tl;
+        Return (ListCons ckey t tl0))
     | ListNil => Return ListNil
     end
   end
-- 
cgit v1.2.3