diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-15 14:03:11 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-15 14:07:13 +0200 |
commit | aae3c3b42a9bad20ebde4a139e6de660fbb8e042 (patch) | |
tree | 188895bdaa3835f6175406fb0d22e282441448a5 /proofs | |
parent | c69404402212ed9d541899ae78ac889e62cf238a (diff) |
Removing unused Refiner.tclWITHHOLES.
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/refiner.ml | 8 | ||||
-rw-r--r-- | proofs/refiner.mli | 6 |
2 files changed, 0 insertions, 14 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 6e398b61e..ba319fdc0 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -369,11 +369,3 @@ let check_evars env sigma extsigma origsigma = let gl_check_evars env sigma extsigma gl = let origsigma = gl.sigma in check_evars env sigma extsigma origsigma - -let tclWITHHOLES accept_unresolved_holes tac sigma c gl = - if sigma == project gl then tac c gl - else - let res = tclTHEN (tclEVARS sigma) (tac c) gl in - if not accept_unresolved_holes then - gl_check_evars (pf_env gl) (res).sigma sigma gl; - res diff --git a/proofs/refiner.mli b/proofs/refiner.mli index 171b008d1..58f9b9617 100644 --- a/proofs/refiner.mli +++ b/proofs/refiner.mli @@ -138,9 +138,3 @@ val tclIFTHENTRYELSEMUST : tactic -> tactic -> tactic (* Check that holes in arguments have been resolved *) (* spiwack: used in [tclWITHHOLES] both newer and older copy. *) val check_evars : Environ.env -> evar_map -> evar_map -> evar_map -> unit - -(** [tclWITHHOLES solve_holes tac (sigma,c)] applies [tac] to [c] which - may have unresolved holes; if [solve_holes] these holes must be - resolved after application of the tactic; [sigma] must be an - extension of the sigma of the goal *) -val tclWITHHOLES : bool -> ('a -> tactic) -> evar_map -> 'a -> tactic |