diff options
Diffstat (limited to 'proofs/refiner.ml')
-rw-r--r-- | proofs/refiner.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 1afd45b1f..1ad7dcd0a 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -754,9 +754,7 @@ let extract_open_pftreestate pts = let extract_pftreestate pts = if pts.tstack <> [] then - errorlabstrm "extract_pftreestate" - (str"Cannot extract from a proof-tree in which we have descended;" ++ - spc () ++ str"Please ascend to the root"); + errorlabstrm "extract_pftreestate" (str"Proof blocks need to be closed"); let pfterm,subgoals = extract_open_pftreestate pts in let exl = Evarutil.non_instantiated pts.tpfsigma in if subgoals <> [] or exl <> [] then |