diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-07-06 14:31:13 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-07-06 14:31:13 +0200 |
| commit | 307f08d2ad2aca5d48441394342af4615810d0c7 (patch) | |
| tree | 85f96651d250d107762473ca5d5f320f251c37a3 /library | |
| parent | 1111aeb445261af9e74770c0fe3bfd0ffd4930e2 (diff) | |
| parent | 78f536c7fa1af8a61c3dbc5eafae74ad436958ef (diff) | |
Merge PR #853: Clean 'with Definition' implementation.
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 4 | ||||
| -rw-r--r-- | library/global.mli | 4 |
2 files changed, 0 insertions, 8 deletions
diff --git a/library/global.ml b/library/global.ml index dd7f23378..8b59c84dd 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 *) diff --git a/library/global.mli b/library/global.mli index c7ccabe1a..754fa1516 100644 --- a/library/global.mli +++ b/library/global.mli @@ -91,10 +91,6 @@ val mind_of_delta_kn : kernel_name -> mutual_inductive val opaque_tables : unit -> Opaqueproof.opaquetab val body_of_constant : constant -> Term.constr option val body_of_constant_body : Declarations.constant_body -> Term.constr option -val constraints_of_constant_body : - Declarations.constant_body -> Univ.constraints -val universes_of_constant_body : - Declarations.constant_body -> Univ.universe_context (** Global universe name <-> level mapping *) type universe_names = |