diff options
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/logic.ml | 15 | ||||
-rw-r--r-- | proofs/logic.mli | 1 |
2 files changed, 1 insertions, 15 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 8aa732fe3..ab5b42633 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -60,21 +60,8 @@ let catchable_exception = function (* Tells if the refiner should check that the submitted rules do not produce invalid subgoals *) let check = ref false +let with_check = Options.with_option check -let without_check tac gl = - let c = !check in - check := false; - let r = tac gl in - check := c; - r - -let with_check tac gl = - let c = !check in - check := true; - let r = tac gl in - check := c; - r - (************************************************************************) (************************************************************************) (* Implementation of the structural rules (moving and deleting diff --git a/proofs/logic.mli b/proofs/logic.mli index 561c26a7f..906fef017 100644 --- a/proofs/logic.mli +++ b/proofs/logic.mli @@ -20,7 +20,6 @@ open Proof_type (* This suppresses check done in [prim_refiner] for the tactic given in argument; works by side-effect *) -val without_check : tactic -> tactic val with_check : tactic -> tactic (* [without_check] respectively means:\\ |