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 ----- kernel/environ.mli | 1 - 2 files changed, 6 deletions(-) (limited to 'kernel') diff --git a/kernel/environ.ml b/kernel/environ.ml index 59336a762..7759efb67 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 diff --git a/kernel/environ.mli b/kernel/environ.mli index aa6f52128..42100e4eb 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -152,7 +152,6 @@ val lookup_modtype : module_path -> env -> module_type_body (** {5 Universe constraints } *) -val set_universes : Univ.universes -> env -> env val add_constraints : Univ.constraints -> env -> env val set_engagement : engagement -> env -> env -- cgit v1.2.3