From 9f2d6ca25f784bd877c65e4fe20d5a3f6aee784d Mon Sep 17 00:00:00 2001
From: letouzey
Date: Wed, 26 Oct 2011 13:33:47 +0000
Subject: Environ.set_universes is dead code

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14613 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/environ.ml | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'kernel/environ.ml')

diff --git a/kernel/environ.ml b/kernel/environ.ml
index 59336a7624..7759efb671 100644
--- a/kernel/environ.ml
+++ b/kernel/environ.ml
@@ -195,11 +195,6 @@ let add_mind kn mib env =
   { env with env_globals = new_globals }
 
 (* Universe constraints *)
-let set_universes g env =
-  if env.env_stratification.env_universes == g then env
-  else
-    { env with env_stratification =
-      { env.env_stratification with env_universes = g } }
 
 let add_constraints c env =
   if c == empty_constraint then
-- 
cgit v1.2.3