# HG changeset patch
# User haftmann
# Date 1217396039 -7200
# Node ID 2ba55d217705939db3afa99d61638740b87ba89c
# Parent  7471449b9695bca15d72c94871ba8980fb9d3575
facts_of

diff -r 7471449b9695 -r 2ba55d217705 src/Pure/Isar/locale.ML
--- a/src/Pure/Isar/locale.ML	Wed Jul 30 07:33:58 2008 +0200
+++ b/src/Pure/Isar/locale.ML	Wed Jul 30 07:33:59 2008 +0200
@@ -60,7 +60,8 @@
     ((string * Attrib.src list) * term list) list
   val intros: theory -> string -> thm list * thm list
   val dests: theory -> string -> thm list
-  val elems: theory -> string -> Element.context_i list
+  val facts_of: theory -> string
+    -> ((string * Attrib.src list) * (thm list * Attrib.src list) list) list list
 
   (* Processing of locale statements *)
   val read_context_statement: xstring option -> Element.context element list ->
@@ -1421,7 +1422,8 @@
 
 fun dests thy = #dests o the_locale thy;
 
-fun elems thy = map fst o #elems o the_locale thy;
+fun facts_of thy = map_filter (fn (Element.Notes (_, facts), _) => SOME facts
+  | _ => NONE) o #elems o the_locale thy;
 
 fun parameters_of_expr thy expr =
   let