diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-18 16:10:45 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-18 16:10:45 +0000 |
| commit | e2b35440ac709a3702ff30ab74c4a324e75929b2 (patch) | |
| tree | 57136c5ee9abcfdc3183da05ba4f9a0a8e8bf140 /proofs/refiner.ml | |
| parent | d6f4f3f3dc92d805bc046bcdbc30dd7df65fb4aa (diff) | |
- Rebranchement backtrack du langage déclaratif dans Coqide
- Divers: message d'erreur et typo relatifs au langage déclaratif
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11237 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |