Fix an issue when extracting assumed values

1 files changed, 1 insertions, 1 deletions

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 ();