From 777f0ace3d2458cbe1840dcf3d8f350452721e84 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Mon, 2 Feb 2015 09:30:53 +0100 Subject: Removing dead code. --- library/globnames.ml | 1 - library/library.ml | 3 --- library/universes.mli | 3 --- 3 files changed, 7 deletions(-) (limited to 'library') diff --git a/library/globnames.ml b/library/globnames.ml index 5eb091af4..3befaa9a9 100644 --- a/library/globnames.ml +++ b/library/globnames.ml @@ -6,7 +6,6 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -open Util open Errors open Names open Term diff --git a/library/library.ml b/library/library.ml index b078e2c47..16dedf565 100644 --- a/library/library.ml +++ b/library/library.ml @@ -402,9 +402,6 @@ let intern_from_file f = module DPMap = Map.Make(DirPath) -let deps_to_string deps = - Array.fold_left (fun s (n, _) -> s^"\n - "^(DirPath.to_string n)) "" deps - let rec intern_library (needed, contents) (dir, f) from = Pp.feedback(Feedback.FileDependency (from, f)); (* Look if in the current logical environment *) diff --git a/library/universes.mli b/library/universes.mli index f2f68d329..252648d7d 100644 --- a/library/universes.mli +++ b/library/universes.mli @@ -7,12 +7,9 @@ (************************************************************************) open Util -open Pp open Names open Term -open Context open Environ -open Locus open Univ (** Universes *) -- cgit v1.2.3