diff options
| author | aspiwack | 2011-05-13 17:57:57 +0000 |
|---|---|---|
| committer | aspiwack | 2011-05-13 17:57:57 +0000 |
| commit | aaafa92638be941a8750b1d88f42be69b807e550 (patch) | |
| tree | b62b176333792637e81653fcfb69dd395fe6e731 /proofs | |
| parent | 74158af19fc897734454f97e109d08be7ff6fc59 (diff) | |
A better procedure for checking presence of undefined evars.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14121 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proofview.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index aa00cee829..dd65a90495 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -467,9 +467,7 @@ module V82 = struct } let has_unresolved_evar pv = - let evd = pv.solution in - (* arnaud: essayer une procédure moins coûteuse *) - not ((Evarutil.non_instantiated evd) = []) + Evd.has_undefined pv.solution (* Returns the open goals of the proofview together with the evar_map to interprete them. *) |