From 773568911d0a81aacc15b1ff8d311948cf54ebe7 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Mon, 16 May 2022 10:14:26 +0200
Subject: Fix an issue when extracting assumed values

---
 src/ExtractToFStar.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ExtractToFStar.ml b/src/ExtractToFStar.ml
index 8b37b96a..0bbe591e 100644
--- a/src/ExtractToFStar.ml
+++ b/src/ExtractToFStar.ml
@@ -1361,7 +1361,7 @@ let extract_fun_decl (ctx : extraction_ctx) (fmt : F.formatter)
     | LetRec -> "let rec"
     | And -> "and"
     | Val -> "val"
-    | AssumeVal -> "AssumeVal"
+    | AssumeVal -> "assume val"
   in
   F.pp_print_string fmt (qualif ^ " " ^ def_name);
   F.pp_print_space fmt ();
-- 
cgit v1.2.3