diff options
author | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:36:58 +0000 |
---|---|---|
committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:36:58 +0000 |
commit | 70034c758c64191f70a2464a72d9ba7e4aa87d87 (patch) | |
tree | 96f28f12167d74f6cd7cfabaa170c06ddba716bc /proofs/goal.mli | |
parent | 3e5de6e07bd1c86a1a6da4545039292c887d6db8 (diff) |
Try to remove intermediate allocations when dealing with goal-specific tactics.
Introduces a primitive Goal.enter which allows to access the common information needed by goal-specific tactics, avoids a number of monadic binds, and some unnecessary allocations of lists.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16991 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/goal.mli')
-rw-r--r-- | proofs/goal.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/proofs/goal.mli b/proofs/goal.mli index 216e12f3a..6a19e0d69 100644 --- a/proofs/goal.mli +++ b/proofs/goal.mli @@ -147,6 +147,9 @@ val env : Environ.env sensitive (* [defs] is the [Evd.evar_map] at the current evaluation point *) val defs : Evd.evar_map sensitive +(* [enter] combines [env], [defs], [hyps] and [concl] in a single + primitive. *) +val enter : (Environ.env -> Evd.evar_map -> Environ.named_context_val -> Term.constr -> 'a) -> 'a sensitive (*** Additional functions ***) |