diff options
| author |  aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:40:57 +0000 |
|---|---|---|
| committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:40:57 +0000 |
| commit | 6039f99f7acd0d964449e9ed4e535cbd2796b87c (patch) | |
| tree | 07d98de0e0c8421fb035cf694468e6e90a07ea96 /proofs/goal.mli | |
| parent | 0c7a77321a043a27645b6ec13b39b45aa7de28e7 (diff) | |
Add primitives in Goal.V82 to access the goal in nf_evar'd form.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17025 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/goal.mli')
| -rw-r--r-- | proofs/goal.mli | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/proofs/goal.mli b/proofs/goal.mli index 39c7ed793..1f04ce8c1 100644 --- a/proofs/goal.mli +++ b/proofs/goal.mli @@ -178,12 +178,24 @@ module V82 : sig (* Old style env primitive *) val env : Evd.evar_map -> goal -> Environ.env + (* same as [env], but ensures that existential variables are + normalised *) + val nf_env : Evd.evar_map -> goal -> Environ.env + (* Old style hyps primitive *) val hyps : Evd.evar_map -> goal -> Environ.named_context_val + (* same as [hyps], but ensures that existential variables are + normalised. *) + val nf_hyps : Evd.evar_map -> goal -> Environ.named_context_val + (* Access to ".evar_concl" *) val concl : Evd.evar_map -> goal -> Term.constr + (* same as [concl] but ensures that existential variables are + normalised. *) + val nf_concl : Evd.evar_map -> goal -> Term.constr + (* Access to ".evar_extra" *) val extra : Evd.evar_map -> goal -> Evd.Store.t |