added defined;
authorwenzelm
Wed May 14 20:30:05 2008 +0200 (2008-05-14)
changeset 26891bfa1944e5238
parent 26890 f9ec18f7c0f6
child 26892 9454a8bd1114
added defined;
src/Pure/Isar/attrib.ML
     1.1 --- a/src/Pure/Isar/attrib.ML	Wed May 14 14:43:38 2008 +0200
     1.2 +++ b/src/Pure/Isar/attrib.ML	Wed May 14 20:30:05 2008 +0200
     1.3 @@ -17,6 +17,7 @@
     1.4    val intern: theory -> xstring -> string
     1.5    val intern_src: theory -> src -> src
     1.6    val pretty_attribs: Proof.context -> src list -> Pretty.T list
     1.7 +  val defined: theory -> string -> bool
     1.8    val attribute: theory -> src -> attribute
     1.9    val attribute_i: theory -> src -> attribute
    1.10    val eval_thms: Proof.context -> (Facts.ref * src list) list -> thm list
    1.11 @@ -93,6 +94,8 @@
    1.12  
    1.13  (* get attributes *)
    1.14  
    1.15 +val defined = Symtab.defined o #2 o Attributes.get;
    1.16 +
    1.17  fun attribute_i thy =
    1.18    let
    1.19      val attrs = #2 (Attributes.get thy);