From 26ca22424b286f5ff22a1fa97c38d15e224b3dc2 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Fri, 7 Apr 2006 15:08:12 +0000
Subject: - Documentation of the Program tactics. - Fixes to the subtac
 implementation, utility tactic to apply existentials to a function and build
 a dependent sum out of name, constr lists. Also defined a Utils coq module
 for tactics related to subsets and the projections for ex in Prop. -
 Enhancements to inference algorithm added but not used in the default version
 as there are some remaining bugs.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8688 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/xml/xmlcommand.ml | 1 -
 1 file changed, 1 deletion(-)

(limited to 'contrib/xml/xmlcommand.ml')

diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml
index 39a12a7ea7..871a7f15cb 100644
--- a/contrib/xml/xmlcommand.ml
+++ b/contrib/xml/xmlcommand.ml
@@ -214,7 +214,6 @@ let theory_filename xml_library_root =
     None -> None  (* stdout *)
   | Some xml_library_root' ->
      let toks = List.map N.string_of_id (N.repr_dirpath (Lib.library_dp ())) in
-     let hd = List.hd toks in
      (* theory from A/B/C/F.v goes into A/B/C/F.theory *)
      let alltoks = List.rev toks in
        Some (join_dirs xml_library_root' alltoks ^ ".theory")
-- 
cgit v1.2.3