From e2efa0ba532b94ac2267b8d2c3339bfe51e07f25 Mon Sep 17 00:00:00 2001 From: Emilio Jesus Gallego Arias Date: Sat, 3 Mar 2018 01:52:11 +0100 Subject: [compat] Remove "Injection L2R Pattern Order" Following up on #6791, we remove the option "Injection L2R Pattern Order". --- tactics/equality.ml | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) (limited to 'tactics/equality.ml') diff --git a/tactics/equality.ml b/tactics/equality.ml index 9a1ac768c..020fbaf86 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 -- cgit v1.2.3