diff options
Diffstat (limited to 'proofs/logic.ml')
| -rw-r--r-- | proofs/logic.ml | 15 |
1 files changed, 1 insertions, 14 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 |