diff options
| -rw-r--r-- | proofs/refiner.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index cd592296d3..804d009b14 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -772,9 +772,12 @@ 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 - if subgoals <> [] then - errorlabstrm "extract_proof" - (str "Attempt to save an incomplete proof"); + let exl = Evd.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"); let env = Global.env_of_context pts.tpf.goal.evar_hyps in strong whd_betaiotaevar env pts.tpfsigma pfterm (*** |