diff options
| author | Son Ho | 2023-10-16 11:20:57 +0200 |
|---|---|---|
| committer | Son Ho | 2023-10-16 11:20:57 +0200 |
| commit | 2ec2e374302c772ff2c6a26e39451b4e49e13a16 (patch) | |
| tree | da523de2f105f28c995ef8da01b320074b63f366 /compiler | |
| parent | cbb2d05e0db6bedf9d6844f29ee25b95429b994c (diff) | |
| parent | 40ed38216499ea1bf58b8acbcd05b2cd97329830 (diff) | |
Merge branch 'main' into son_traits and fix some issues
Diffstat (limited to 'compiler')
| -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 ")") |