diff options
| -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() + |