From 402679a57beec382cf90cbcddfc00d3f702cba74 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 1 Oct 2000 13:18:11 +0000
Subject: Code mort

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@618 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/inv.ml      | 2 --
 toplevel/command.ml | 1 -
 2 files changed, 3 deletions(-)

diff --git a/tactics/inv.ml b/tactics/inv.ml
index 42dcb18f51..8759158187 100644
--- a/tactics/inv.ml
+++ b/tactics/inv.ml
@@ -64,8 +64,6 @@ let dest_match_eq gls eqn =
 	  errorlabstrm "dest_match_eq" 
 	    [< 'sTR "no primitive equality here" >]))
     
-let implicit = Sort implicit_sort
-
 (* Environment management *)
 let push_rel_type sigma (na,t) env =
   push_rel_decl (na,make_typed t (get_sort_of env sigma t)) env
diff --git a/toplevel/command.ml b/toplevel/command.ml
index d9193a8ff4..14381b7d7d 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -248,7 +248,6 @@ let build_recursive lnameargsardef =
 		  (mkFix ((Array.of_list nvrec,i),
 			  (varrec,List.map (fun id -> Name id) lnamerec,
 			   recvec)));
-		  (* (mkFixDlam (Array.of_list nvrec) i varrec recvec); *)
 	      const_entry_type = None } 
 	  in
 	  declare_constant fi (ce, n);
-- 
cgit v1.2.3