diff options
author | Son Ho | 2024-06-12 18:20:52 +0200 |
---|---|---|
committer | Son Ho | 2024-06-12 18:20:52 +0200 |
commit | d36736fa4e7eb9f42f35303b8080d17ddbee92d2 (patch) | |
tree | aa14af61056233f309cdedf138604f7ac0ba443f /compiler | |
parent | d85d160ae9736f50d9c043b411c5a831f1fbb964 (diff) |
Revert "Update the scalar notation for the Lean backend"
This reverts commit c8272aeea205ca9cb36e22757473ca2a931a4933.
Diffstat (limited to '')
-rw-r--r-- | compiler/ExtractTypes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ExtractTypes.ml b/compiler/ExtractTypes.ml index 5446f912..15e75da2 100644 --- a/compiler/ExtractTypes.ml +++ b/compiler/ExtractTypes.ml @@ -40,7 +40,7 @@ let extract_literal (span : Meta.span) (fmt : F.formatter) (inside : bool) F.pp_print_string fmt ("%" ^ iname) | Lean -> let iname = String.lowercase_ascii (int_name sv.int_ty) in - F.pp_print_string fmt iname + F.pp_print_string fmt ("#" ^ iname) | HOL4 -> () | _ -> craise __FILE__ __LINE__ span "Unreachable"); if print_brackets then F.pp_print_string fmt ")") |