From 28c3c4724e3e37bc588fc395817d97b02165f61c Mon Sep 17 00:00:00 2001
From: delahaye
Date: Wed, 3 Jan 2001 18:05:23 +0000
Subject: Let doit etre utilise dans le mode de preuve

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1233 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/vernacentries.ml | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index a37cfcf0b4..9ad4fa0121 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -766,6 +766,9 @@ let _ =
            in 
 	   fun () ->
              begin
+               if (kind = "LETTOP") && not(refining ()) then
+                 errorlabstrm "Vernacentries.StartProof" [< 'sTR
+                 "Let declarations can only be used in proof editing mode" >];
                start_proof_com (Some s) stre com;
                if not (is_silent()) then show_open_subgoals()
              end
-- 
cgit v1.2.3