Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
facts_of
authorhaftmann
Wed, 30 Jul 2008 07:33:59 +0200
changeset 27709 2ba55d217705
parent 27708 7471449b9695
child 27710 29702aa892a5
facts_of
src/Pure/Isar/locale.ML file | annotate | diff | comparison | revisions 
--- 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
isabelle