aboutsummaryrefslogtreecommitdiffhomepage
path: root/library/global.mli
diff options
context:
space:
mode:
authorGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2017-07-14 13:27:56 +0200
committerGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2017-07-14 13:36:24 +0200
commite23f495c25749478c0a64c479d888e3671157c7d (patch)
tree93ed23a3b189143538b0d7898f3c94816f04112c /library/global.mli
parent6806059f7c043b45e6c42f382f069f8c49ed1c1f (diff)
Document the changes in API brought by this series of patches.
Diffstat (limited to 'library/global.mli')
-rw-r--r--library/global.mli7
1 files changed, 7 insertions, 0 deletions
diff --git a/library/global.mli b/library/global.mli
index 431747c52..48bcfa989 100644
--- a/library/global.mli
+++ b/library/global.mli
@@ -89,8 +89,15 @@ val constant_of_delta_kn : kernel_name -> constant
val mind_of_delta_kn : kernel_name -> mutual_inductive
val opaque_tables : unit -> Opaqueproof.opaquetab
+
val body_of_constant : constant -> (Term.constr * Univ.AUContext.t) option
+(** Returns the body of the constant if it has any, and the polymorphic context
+ it lives in. For monomorphic constant, the latter is empty, and for
+ polymorphic constants, the term contains De Bruijn universe variables that
+ need to be instantiated. *)
+
val body_of_constant_body : Declarations.constant_body -> (Term.constr * Univ.AUContext.t) option
+(** Same as {!body_of_constant} but on {!Declarations.constant_body}. *)
(** Global universe name <-> level mapping *)
type universe_names =