From 85fe61e5d7ce550811a40ac8d9a28fffcf20fb1d Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Fri, 1 Sep 2017 16:43:43 +0200 Subject: Remove unused function Evd.whd_sort_variable --- engine/evd.ml | 2 -- engine/evd.mli | 2 -- 2 files changed, 4 deletions(-) (limited to 'engine') diff --git a/engine/evd.ml b/engine/evd.ml index b39069174..d1c7fef73 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -820,8 +820,6 @@ let fresh_constructor_instance ?loc env evd c = let fresh_global ?loc ?(rigid=univ_flexible) ?names env evd gr = with_context_set ?loc rigid evd (UnivGen.fresh_global_instance ?names env gr) -let whd_sort_variable evd t = t - let is_sort_variable evd s = UState.is_sort_variable evd.universes s let is_flexible_level evd l = diff --git a/engine/evd.mli b/engine/evd.mli index 532017b36..db2bd4eed 100644 --- a/engine/evd.mli +++ b/engine/evd.mli @@ -340,8 +340,6 @@ val shelve_on_future_goals : Evar.t list -> future_goals -> future_goals Evar maps also keep track of the universe constraints defined at a given point. This section defines the relevant manipulation functions. *) -val whd_sort_variable : evar_map -> econstr -> econstr - exception UniversesDiffer val add_universe_constraints : evar_map -> UnivProblem.Set.t -> evar_map -- cgit v1.2.3