diff options
| author | Enrico Tassi | 2018-12-18 13:24:32 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2018-12-18 13:24:32 +0100 |
| commit | 58c588575b8eae1cf5d74b49b60b248816d6a3e9 (patch) | |
| tree | 46729c6ff7f69d4ce8df7653c6e395ca8889a361 /proofs | |
| parent | 5dffdc66a47acd919c148e2e774252b4b4b51859 (diff) | |
| parent | b9f78d6b3da817de84e42eca90e3807004452046 (diff) | |
Merge PR #9222: Fix classification of Set Default Proof Mode.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof_global.ml | 3 | ||||
| -rw-r--r-- | proofs/proof_global.mli | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 8077da8807..3214735ddf 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -53,11 +53,12 @@ let default_proof_mode = ref (find_proof_mode "No") let get_default_proof_mode_name () = (CEphemeron.default !default_proof_mode standard).name +let proof_mode_opt_name = ["Default";"Proof";"Mode"] let () = Goptions.(declare_string_option { optdepr = false; optname = "default proof mode" ; - optkey = ["Default";"Proof";"Mode"] ; + optkey = proof_mode_opt_name ; optread = begin fun () -> (CEphemeron.default !default_proof_mode standard).name end; diff --git a/proofs/proof_global.mli b/proofs/proof_global.mli index 9e904c57aa..e762f3b7dc 100644 --- a/proofs/proof_global.mli +++ b/proofs/proof_global.mli @@ -168,6 +168,8 @@ val register_proof_mode : proof_mode -> unit (* Can't make this deprecated due to limitations of camlp5 *) (* [@@ocaml.deprecated "the current proof mode API is deprecated, use with care, see PR #459 and #566 "] *) +val proof_mode_opt_name : string list + val get_default_proof_mode_name : unit -> proof_mode_name [@@ocaml.deprecated "the current proof mode API is deprecated, use with care, see PR #459 and #566 "] @@ -181,4 +183,3 @@ val activate_proof_mode : proof_mode_name -> unit val disactivate_current_proof_mode : unit -> unit [@@ocaml.deprecated "the current proof mode API is deprecated, use with care, see PR #459 and #566 "] - |