diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/classops.ml | 1 | ||||
| -rw-r--r-- | pretyping/detyping.ml | 3 | ||||
| -rw-r--r-- | pretyping/unification.ml | 2 |
3 files changed, 6 insertions, 0 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index 03ae6e763a..fe4d0f300a 100644 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -349,6 +349,7 @@ open Goptions let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "automatic import of coercions"; optkey = ["Automatic";"Coercions";"Import"]; optread = (fun () -> !automatically_import_coercions); diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 35aedd2c68..c194a0f236 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -116,6 +116,7 @@ let force_wildcard () = !wildcard_value let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "forced wildcard"; optkey = ["Printing";"Wildcard"]; optread = force_wildcard; @@ -126,6 +127,7 @@ let synthetize_type () = !synth_type_value let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "pattern matching return type synthesizability"; optkey = ["Printing";"Synth"]; optread = synthetize_type; @@ -136,6 +138,7 @@ let reverse_matching () = !reverse_matching_value let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "pattern-matching reversibility"; optkey = ["Printing";"Matching"]; optread = reverse_matching; diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 9f7b6d748b..187533ad33 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -175,6 +175,7 @@ open Goptions let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "pattern-unification for existential variables in tactics"; optkey = ["Tactic";"Evars";"Pattern";"Unification"]; optread = (fun () -> !global_evars_pattern_unification_flag); @@ -183,6 +184,7 @@ let _ = let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "pattern-unification for existential variables in tactics"; optkey = ["Tactic";"Pattern";"Unification"]; optread = (fun () -> !global_evars_pattern_unification_flag); |