diff options
| author | filliatr | 1999-12-01 10:52:56 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-01 10:52:56 +0000 |
| commit | db76a192ec07bf71b0f0bf648f66d3487c27f1b3 (patch) | |
| tree | dba932d67fe2007ad1190b3081dd90e3d5b56ee2 | |
| parent | b97c6e7e86bce3a6ec7a9e3b99cfc08067f00789 (diff) | |
make_strength / reset_library
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@171 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | library/declare.ml | 4 | ||||
| -rw-r--r-- | library/declare.mli | 1 | ||||
| -rw-r--r-- | library/lib.ml | 4 |
3 files changed, 8 insertions, 1 deletions
diff --git a/library/declare.ml b/library/declare.ml index 9a32c1d461..bcfc312dff 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -18,6 +18,10 @@ type strength = | DischargeAt of section_path | NeverDischarge +let make_strength = function + | [] -> NeverDischarge + | l -> DischargeAt (sp_of_wd l) + (* Variables. *) let cache_variable (_,obj) = diff --git a/library/declare.mli b/library/declare.mli index c32ce46ac8..8a75172b63 100644 --- a/library/declare.mli +++ b/library/declare.mli @@ -32,6 +32,7 @@ val declare_eliminations : section_path -> unit val declare_syntax_constant : identifier -> constr -> unit +val make_strength : string list -> strength (*s Corresponding test and access functions. *) diff --git a/library/lib.ml b/library/lib.ml index 46a2833f57..ea81207871 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -192,5 +192,7 @@ let unfreeze stk = let init () = lib_stk := []; add_frozen_state (); - path_prefix := [] + path_prefix := []; + init_summaries() + |