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/global.ml | |
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/global.ml')
-rw-r--r-- | library/global.ml | 7 |
1 files changed, 7 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 |