From cd4d18cf0de8e8077a9c141a3e825b7647f03f8e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 9 Dec 2002 08:28:49 +0000
Subject: Code mort ?

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

diff --git a/toplevel/command.ml b/toplevel/command.ml
index 80c78c0860..283de9ade0 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -483,6 +483,7 @@ let start_proof_com sopt kind (bl,t) hook =
   let _ = Typeops.infer_type env c in
   start_proof id kind c hook
 
+(*
 let apply_tac_not_declare id pft = function
   | None -> error "Type of Let missing"
   | Some typ ->
@@ -490,6 +491,7 @@ let apply_tac_not_declare id pft = function
     and exat = Hiddentac.h_exact pft in
     Pfedit.delete_current_proof ();
     Pfedit.by (Refiner.tclTHENSV cutt [|introduction id;exat|])
+*)
 
 let save id const kind hook =
   let {const_entry_body = pft;
-- 
cgit v1.2.3