From aae3c3b42a9bad20ebde4a139e6de660fbb8e042 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Fri, 15 Aug 2014 14:03:11 +0200 Subject: Removing unused Refiner.tclWITHHOLES. --- proofs/refiner.ml | 8 -------- proofs/refiner.mli | 6 ------ 2 files changed, 14 deletions(-) (limited to 'proofs') 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 -- cgit v1.2.3