diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-03-07 18:16:27 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-04-24 17:59:20 +0200 |
commit | 21ee9a82807176acecf917e2a1e6074bed1c88ff (patch) | |
tree | fee4830c1adcb78fcb92d54382a922635028c91e /proofs/refiner.ml | |
parent | 552544a3d385a3a59def038bdb0a22a69fe4b0a9 (diff) |
Removing the tclWEAK_PROGRESS tactical.
The only remaining use was applied on the unfold tactic, and the behaviours
of tclPROGRESS and tclWEAK_PROGRESS coincide whenever only one goal is produced
by their argument tactic.
Diffstat (limited to 'proofs/refiner.ml')
-rw-r--r-- | proofs/refiner.ml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index d086f0bbc..bc12b3ba7 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -162,13 +162,6 @@ let tclMAP tacfun l = (* PROGRESS tac ptree applies tac to the goal ptree and fails if tac leaves the goal unchanged *) -let tclWEAK_PROGRESS tac ptree = - let rslt = tac ptree in - if Goal.V82.weak_progress rslt ptree then rslt - else user_err ~hdr:"Refiner.WEAK_PROGRESS" (str"Failed to progress.") - -(* PROGRESS tac ptree applies tac to the goal ptree and fails if tac leaves -the goal unchanged *) let tclPROGRESS tac ptree = let rslt = tac ptree in if Goal.V82.progress rslt ptree then rslt |