diff options
| author | Matthieu Sozeau | 2017-07-20 18:32:03 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2018-08-15 12:23:21 +0200 |
| commit | bef7a78f9b7f2a27d342365107bd9cc992201129 (patch) | |
| tree | 03d463f7c6c16604b867b6469c23d2957332af8d /proofs/tacmach.ml | |
| parent | 71aa2992f4e8a6eb2bc64ecf9aa40a9b0bc0f233 (diff) | |
tacmach: function to gather undef evars of the goal
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 092bb5c276..6036c8cbca 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -227,4 +227,9 @@ module New = struct let pf_nf_evar gl t = nf_evar (project gl) t + let pf_undefined_evars gl = + let sigma = Proofview.Goal.sigma gl in + let ev = Proofview.Goal.goal gl in + let evi = Evd.find sigma ev in + Evarutil.filtered_undefined_evars_of_evar_info sigma evi end |