equal
deleted
inserted
replaced
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 |