--- a/src/Pure/pure_thy.ML Wed Jan 25 00:21:35 2006 +0100
+++ b/src/Pure/pure_thy.ML Wed Jan 25 00:21:36 2006 +0100
@@ -52,6 +52,7 @@
val smart_store_thms_open: (bstring * thm list) -> thm list
val forall_elim_var: int -> thm -> thm
val forall_elim_vars: int -> thm -> thm
+ val name_multi: string -> 'a list -> (string * 'a) list
val add_thms: ((bstring * thm) * attribute list) list -> theory -> thm list * theory
val add_thmss: ((bstring * thm list) * attribute list) list -> theory -> thm list list * theory
val note_thmss: attribute -> ((bstring * attribute list) *