[options] New helper for creation of boolean options plus reference.

This makes setting the option outside of the synchronized summary impossible.

1 files changed, 0 insertions, 9 deletions

diff --git a/interp/constrexpr_ops.ml b/interp/constrexpr_ops.ml
index 07ed7825ff..3a4969a3ee 100644
--- a/interp/constrexpr_ops.ml
+++ b/interp/constrexpr_ops.ml
@@ -604,15 +604,6 @@ let rec coerce_to_cases_pattern_expr c = CAst.map_with_loc (fun ?loc -> function
      CErrors.user_err ?loc ~hdr:"coerce_to_cases_pattern_expr"
                       (str "This expression should be coercible to a pattern.")) c
 
-let asymmetric_patterns = ref (false)
-let () = Goptions.(declare_bool_option {
-  optdepr = false;
-  optname = "no parameters in constructors";
-  optkey = ["Asymmetric";"Patterns"];
-  optread = (fun () -> !asymmetric_patterns);
-  optwrite = (fun a -> asymmetric_patterns:=a);
-})
-
 (** Local universe and constraint declarations. *)
 
 let interp_univ_constraints env evd cstrs =