moved theorem kinds from PureThy to Thm;
authorwenzelm
Tue, 21 Nov 2006 18:07:35 +0100
changeset 21438 90dda96bca98
parent 21437 a3c55b85cf0e
child 21439 303ec9e9f74f
moved theorem kinds from PureThy to Thm; exported note_thms(s);
src/Pure/pure_thy.ML
--- a/src/Pure/pure_thy.ML	Tue Nov 21 18:07:33 2006 +0100
+++ b/src/Pure/pure_thy.ML	Tue Nov 21 18:07:35 2006 +0100
@@ -37,10 +37,6 @@
   val get_kind: thm -> string
   val kind_rule: string -> thm -> thm
   val kind: string -> attribute
-  val theoremK: string
-  val lemmaK: string
-  val corollaryK: string
-  val internalK: string
   val kind_internal: attribute
   val has_internal: tag list -> bool
   val is_internal: thm -> bool
@@ -61,6 +57,8 @@
   val thms_of: theory -> (string * thm) list
   val all_thms_of: theory -> (string * thm) list
   val hide_thms: bool -> string list -> theory -> theory
+  val name_thms: bool -> string -> thm list -> thm list
+  val name_thmss: string -> (thm list * 'a) list -> (thm list * 'a) list
   val store_thm: (bstring * thm) * attribute list -> theory -> thm * theory
   val smart_store_thms: (bstring * thm list) -> thm list
   val smart_store_thms_open: (bstring * thm list) -> thm list
@@ -119,11 +117,6 @@
 
 (* theorem kinds *)
 
-val theoremK = "theorem";
-val lemmaK = "lemma";
-val corollaryK = "corollary";
-val internalK = "internal";
-
 fun get_kind thm =
   (case AList.lookup (op =) ((#2 o Thm.get_name_tags) thm) "kind" of
     SOME (k :: _) => k
@@ -392,6 +385,8 @@
 val note_thmss = gen_note_thmss get_thms;
 val note_thmss_i = gen_note_thmss (K I);
 
+end;
+
 fun note_thmss_qualified k path facts thy =
   thy
   |> Theory.add_path path
@@ -399,8 +394,6 @@
   |> note_thmss_i k facts
   ||> Theory.restore_naming thy;
 
-end;
-
 
 (* store_thm *)