aboutsummaryrefslogtreecommitdiff
path: root/proofs/proofview.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2014-09-04 12:12:03 +0200
committerPierre-Marie Pédrot2014-09-04 12:57:33 +0200
commitfc7a66d58c39e3d57e509c754fb4cefa96ecd488 (patch)
tree43c6a5d626b4ba182723998d31ffbe99c38d114a /proofs/proofview.ml
parent6b0c471723a657048e50c94ea56387d54ef6eff6 (diff)
Revert "Tactics: [tclENV] is now sensitive to [Proofview.Goal.enter]."
This reverts commit 664b3cba1e8d326382ca981aa49fdf00edd429e6. Conflicts: proofs/proofview.ml
Diffstat (limited to 'proofs/proofview.ml')
-rw-r--r--proofs/proofview.ml7
1 files changed, 0 insertions, 7 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml
index 32df96097f..2c104ea181 100644
--- a/proofs/proofview.ml
+++ b/proofs/proofview.ml
@@ -547,8 +547,6 @@ let tclEVARMAP =
let tclENV = Proof.current
-let tclIN_ENV = Proof.set_local
-
let tclEFFECTS eff =
Proof.modify (fun initial -> emit_side_effects eff initial)
@@ -854,8 +852,6 @@ module Goal = struct
end
let enter f =
- (* the global environment of the tactic is changed to that of
- the goal *)
list_iter_goal () begin fun goal () ->
Proof.current >>= fun env ->
tclEVARMAP >>= fun sigma ->
@@ -872,9 +868,6 @@ module Goal = struct
end
let raw_enter f =
- (* the global environment of the tactic is changed to that of
- the goal *)
- let f gl = Proof.set_local (env gl) (f gl) in
list_iter_goal () begin fun goal () ->
Proof.current >>= fun env ->
tclEVARMAP >>= fun sigma ->