diff options
| author |  notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-04-05 10:39:25 +0000 |
|---|---|---|
| committer | notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-04-05 10:39:25 +0000 |
| commit | 8f4f8a3e60f8b708b1a8fbb9495d972d11c06609 (patch) | |
| tree | 40ca8a4fb300a3708c5c60f86f8b7e07826ebae5 /toplevel | |
| parent | 89170371b597086626a69637f802e855a1693f84 (diff) | |
Suppression du test Proof with <tac>
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8680 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index ad725bb5c..33b5aded1 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -568,14 +568,8 @@ let vernac_solve_existential = instantiate_nth_evar_com let vernac_set_end_tac tac = if not (refining ()) then error "Unknown command of the non proof-editing mode"; - let pfs = top_of_tree (get_pftreestate()) in - let pf = proof_of_pftreestate pfs in - if (is_leaf_proof pf) then - if tac <> (Tacexpr.TacId []) then set_end_tac (Tacinterp.interp tac) else () - (* TO DO verifier s'il faut pas mettre exist s | TacId s ici*) - else - errorlabstrm "Vernacentries.ExactProof" - (str "Command 'Proof ...' can only be used at the beginning of the proof") + if tac <> (Tacexpr.TacId []) then set_end_tac (Tacinterp.interp tac) else () + (* TO DO verifier s'il faut pas mettre exist s | TacId s ici*) (*****************************) (* Auxiliary file management *) |