diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-03 16:47:55 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-03 17:07:58 +0200 |
commit | 6aeda23a14a5a5dfca259fe99a19d7bcb42d1052 (patch) | |
tree | 564bc776bbf721449769f3ebd88d80110b1a032a /library/global.ml | |
parent | e123ec7621d06cde2b65755bab75b438b9f02664 (diff) |
Removing a few suspicious functions from the kernel.
These functions were messing with the deferred universe constraints in an
error-prone way, and were only used for printing as of today. We inline
the one used by the printer instead.
Diffstat (limited to 'library/global.ml')
-rw-r--r-- | library/global.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/library/global.ml b/library/global.ml index 6d80012f4..7289cc757 100644 --- a/library/global.ml +++ b/library/global.ml @@ -124,10 +124,6 @@ let exists_objlabel id = Safe_typing.exists_objlabel id (safe_env ()) let opaque_tables () = Environ.opaque_tables (env ()) let body_of_constant_body cb = Declareops.body_of_constant (opaque_tables ()) cb let body_of_constant cst = body_of_constant_body (lookup_constant cst) -let constraints_of_constant_body cb = - Declareops.constraints_of_constant (opaque_tables ()) cb -let universes_of_constant_body cb = - Declareops.universes_of_constant (opaque_tables ()) cb (** Operations on kernel names *) |