diff options
| author | Emilio Jesus Gallego Arias | 2018-03-03 01:52:11 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-03-03 01:52:11 +0100 |
| commit | e2efa0ba532b94ac2267b8d2c3339bfe51e07f25 (patch) | |
| tree | 182cfeb43434d93a92a2d833d51bc96aa353577a | |
| parent | df9d3a36e71d6d224286811fdc529ad5a955deb7 (diff) | |
[compat] Remove "Injection L2R Pattern Order"
Following up on #6791, we remove the option "Injection L2R Pattern Order".
| -rw-r--r-- | tactics/equality.ml | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 9a1ac768c7..020fbaf86f 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -67,20 +67,10 @@ let _ = optread = (fun () -> !discriminate_introduction); optwrite = (:=) discriminate_introduction } -let injection_pattern_l2r_order = ref true - let use_injection_pattern_l2r_order = function - | None -> !injection_pattern_l2r_order + | None -> true | Some flags -> flags.injection_pattern_l2r_order -let _ = - declare_bool_option - { optdepr = true; (* remove in 8.8 *) - optname = "injection left-to-right pattern order and clear by default when with introduction pattern"; - optkey = ["Injection";"L2R";"Pattern";"Order"]; - optread = (fun () -> !injection_pattern_l2r_order) ; - optwrite = (fun b -> injection_pattern_l2r_order := b) } - let injection_in_context = ref false let use_injection_in_context = function |
