aboutsummaryrefslogtreecommitdiff
path: root/proofs/pfedit.ml
diff options
context:
space:
mode:
authorMaxime Dénès2019-02-13 08:20:28 +0100
committerMaxime Dénès2019-02-13 08:20:28 +0100
commitf53eb3339322d3a9851a42ebab4347e556b7770f (patch)
tree6044781b17ad38a2ae5dace3e6a14275ea03ec3c /proofs/pfedit.ml
parentddc17851aa2f73eda9ddc2f8f0f2749f58b51520 (diff)
parentfd3bde66bc32ba70435aaad3f83d0b58c846af55 (diff)
Merge PR #9173: [tactics] Remove dependency of abstract on global proof state.
Ack-by: SkySkimmer Ack-by: ejgallego Ack-by: mattam82 Ack-by: maximedenes Reviewed-by: ppedrot
Diffstat (limited to 'proofs/pfedit.ml')
-rw-r--r--proofs/pfedit.ml5
1 files changed, 0 insertions, 5 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml
index 7f1ae6d12b..9509c36ec0 100644
--- a/proofs/pfedit.ml
+++ b/proofs/pfedit.ml
@@ -70,11 +70,6 @@ let get_current_context ?p () =
let evd = Proof.in_proof p (fun x -> x) in
(evd, Global.env ())
-let current_proof_statement () =
- match Proof_global.V82.get_current_initial_conclusions () with
- | (id,([concl],strength)) -> id,strength,concl
- | _ -> CErrors.anomaly ~label:"Pfedit.current_proof_statement" (Pp.str "more than one statement.")
-
let solve ?with_end_tac gi info_lvl tac pr =
try
let tac = match with_end_tac with