diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/refiner.ml | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 804d009b14..ca5d53587d 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -772,12 +772,13 @@ let extract_pftreestate pts = (str"Cannot extract from a proof-tree in which we have descended;" ++ spc () ++ str"Please ascend to the root"); let pfterm,subgoals = extract_open_pftreestate pts in - let exl = Evd.non_instantiated pts.tpfsigma in + let exl = Evarutil.non_instantiated pts.tpfsigma in if subgoals <> [] or exl <> [] then - (if subgoals <> [] then - str "Attempt to save an incomplete proof" - else - str "Attempt to save a proof with existential variables still non-instantiated"); + errorlabstrm "extract_proof" + (if subgoals <> [] then + str "Attempt to save an incomplete proof" + else + str "Attempt to save a proof with existential variables still non-instantiated"); let env = Global.env_of_context pts.tpf.goal.evar_hyps in strong whd_betaiotaevar env pts.tpfsigma pfterm (*** |