diff options
| author | Jonathan Protzenko | 2023-02-07 15:00:06 -0800 |
|---|---|---|
| committer | Son HO | 2023-06-04 21:44:33 +0200 |
| commit | c5fe6cc2cada878ea3e70262e0c9b9f607db7974 (patch) | |
| tree | 3a60ef0bdcac273ab2bd75f72346f666c95075f5 /compiler | |
| parent | fe03f52f95742b8c85682665656f36ebb216e55a (diff) | |
More comments
Diffstat (limited to '')
| -rw-r--r-- | compiler/Translate.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/compiler/Translate.ml b/compiler/Translate.ml index 1c0bcf73..3a75c885 100644 --- a/compiler/Translate.ml +++ b/compiler/Translate.ml @@ -661,6 +661,13 @@ let extract_definitions (fmt : Format.formatter) (config : gen_config) *) if config.extract_state_type && config.extract_fun_decls then export_state_type (); + + (* For Lean, we parameterize the entire development by a section variable + called opaque_defs, of type OpaqueDefs. The code below emits the type + definition for OpaqueDefs, which is a structure, in which each field is one + of the functions marked as Opaque. We emit the `structure ...` bit here, + then rely on `extract_fun_decl` to be aware of this, and skip the keyword + (e.g. "axiom" or "val") so as to generate valid syntax for records. *) if config.extract_opaque && config.extract_fun_decls && !Config.backend = Lean then ( Format.pp_print_break fmt 0 0; @@ -670,6 +677,7 @@ let extract_definitions (fmt : Format.formatter) (config : gen_config) List.iter export_decl_group ctx.crate.declarations; if config.extract_opaque && !Config.backend = Lean then Format.pp_close_box fmt (); + if config.extract_state_type && not config.extract_fun_decls then export_state_type () |