From 70034c758c64191f70a2464a72d9ba7e4aa87d87 Mon Sep 17 00:00:00 2001 From: aspiwack Date: Sat, 2 Nov 2013 15:36:58 +0000 Subject: 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 --- proofs/goal.mli | 3 +++ 1 file changed, 3 insertions(+) (limited to 'proofs/goal.mli') 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 ***) -- cgit v1.2.3