diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 7 | ||||
| -rw-r--r-- | library/global.mli | 3 |
2 files changed, 10 insertions, 0 deletions
diff --git a/library/global.ml b/library/global.ml index 30281bcc70..0ee5533f37 100644 --- a/library/global.ml +++ b/library/global.ml @@ -151,3 +151,10 @@ let type_of_reference env = function Inductive.type_of_constructor cstr specif let type_of_global t = type_of_reference (env ()) t + + +(* spiwack: register/unregister functions for retroknowledge *) +let register field value by_clause = + let entry = kind_of_term value in + let senv = Safe_typing.register !global_env field entry by_clause in + global_env := senv diff --git a/library/global.mli b/library/global.mli index 6842a44eb8..8633dba769 100644 --- a/library/global.mli +++ b/library/global.mli @@ -91,3 +91,6 @@ val import : compiled_library -> Digest.t -> module_path val type_of_global : Libnames.global_reference -> types val env_of_context : Environ.named_context_val -> Environ.env + +(* spiwack: register/unregister function for retroknowledge *) +val register : Retroknowledge.field -> constr -> constr -> unit |