From 8f4f8a3e60f8b708b1a8fbb9495d972d11c06609 Mon Sep 17 00:00:00 2001 From: notin Date: Wed, 5 Apr 2006 10:39:25 +0000 Subject: Suppression du test Proof with git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8680 85f007b7-540e-0410-9357-904b9bb8a0f7 --- toplevel/vernacentries.ml | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'toplevel') 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 *) -- cgit v1.2.3