diff options
author | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-05-11 17:00:58 +0000 |
---|---|---|
committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-05-11 17:00:58 +0000 |
commit | 2dbe106c09b60690b87e31e58d505b1f4e05b57f (patch) | |
tree | 4476a715b796769856e67f6eb5bb6eb60ce6fb57 /library | |
parent | 95f043a4aa63630de133e667f3da1f48a8f9c4f3 (diff) |
Processor integers + Print assumption (see coqdev mailing list for the
details).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9821 85f007b7-540e-0410-9357-904b9bb8a0f7
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 30281bcc7..0ee5533f3 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 6842a44eb..8633dba76 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 |