diff options
Diffstat (limited to '')
-rw-r--r-- | compiler/Extract.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/compiler/Extract.ml b/compiler/Extract.ml index b56d8c51..ac81d6f3 100644 --- a/compiler/Extract.ml +++ b/compiler/Extract.ml @@ -929,9 +929,12 @@ let mk_formatter (ctx : trans_ctx) (crate_name : string) ("(" ^ Z.to_string sv.PV.value ^ if !backend = Lean then ":Int" else "" ^ ")"); (match !backend with - | Coq | Lean -> - let iname = String.lowercase_ascii (int_name sv.PV.int_ty) in + | Coq -> + let iname = int_name sv.PV.int_ty in F.pp_print_string fmt ("%" ^ iname) + | Lean -> + let iname = String.lowercase_ascii (int_name sv.PV.int_ty) in + F.pp_print_string fmt ("#" ^ iname) | HOL4 -> () | _ -> raise (Failure "Unreachable")); if print_brackets then F.pp_print_string fmt ")") |