src/Pure/more_thm.ML
changeset 33666 e49bfeb0d822
parent 33644 5266a72e0889
child 33697 7d6793ce0a26
equal deleted inserted replaced
33665:bdcabcffaaf6 33666:e49bfeb0d822
    84   val has_name_hint: thm -> bool
    84   val has_name_hint: thm -> bool
    85   val get_name_hint: thm -> string
    85   val get_name_hint: thm -> string
    86   val put_name_hint: string -> thm -> thm
    86   val put_name_hint: string -> thm -> thm
    87   val definitionK: string
    87   val definitionK: string
    88   val theoremK: string
    88   val theoremK: string
    89   val generatedK : string
       
    90   val lemmaK: string
    89   val lemmaK: string
    91   val corollaryK: string
    90   val corollaryK: string
    92   val get_kind: thm -> string
    91   val get_kind: thm -> string
    93   val kind_rule: string -> thm -> thm
    92   val kind_rule: string -> thm -> thm
    94   val kind: string -> attribute
    93   val kind: string -> attribute
   411 
   410 
   412 (* theorem kinds *)
   411 (* theorem kinds *)
   413 
   412 
   414 val definitionK = "definition";
   413 val definitionK = "definition";
   415 val theoremK = "theorem";
   414 val theoremK = "theorem";
   416 val generatedK = "generatedK"
       
   417 val lemmaK = "lemma";
   415 val lemmaK = "lemma";
   418 val corollaryK = "corollary";
   416 val corollaryK = "corollary";
   419 
   417 
   420 fun get_kind thm = the_default "" (Properties.get (Thm.get_tags thm) Markup.kindN);
   418 fun get_kind thm = the_default "" (Properties.get (Thm.get_tags thm) Markup.kindN);
   421 
   419