# HG changeset patch
# User wenzelm
# Date 903378744 -7200
# Node ID ac539483ad09f45d3e91b104a0c0d93782dfa391
# Parent  39a81cd9f9421164ec3a6170e8fd0c21668ef1e7
added get_tthmss;

diff -r 39a81cd9f942 -r ac539483ad09 src/Pure/pure_thy.ML
--- a/src/Pure/pure_thy.ML	Mon Aug 17 16:02:21 1998 +0200
+++ b/src/Pure/pure_thy.ML	Mon Aug 17 20:32:24 1998 +0200
@@ -26,6 +26,7 @@
   val thms_closure: theory -> xstring -> tthm list option
   val get_tthm: theory -> xstring -> tthm
   val get_tthms: theory -> xstring -> tthm list
+  val get_tthmss: theory -> xstring list -> tthm list
   val thms_containing: theory -> string list -> (string * thm) list
   val store_tthm: (bstring * tthm) * theory attribute list -> theory -> theory * tthm
   val smart_store_thm: (bstring * thm) -> thm
@@ -131,6 +132,8 @@
     [thm] => thm
   | _ => raise THEORY ("Single theorem expected " ^ quote name, [thy]));
 
+fun get_tthmss thy names = flat (map (get_tthms thy) names);
+
 fun get_thms thy = map Attribute.thm_of o get_tthms thy;
 fun get_thm thy = Attribute.thm_of o get_tthm thy;