add_title;
authorwenzelm
Thu Mar 11 21:53:50 1999 +0100 (1999-03-11 ago)
changeset 6354a4c75cbd2fbf
parent 6353 5a76eb9030df
child 6355 f05492a711b1
add_title;
src/Pure/Isar/isar_thy.ML
     1.1 --- a/src/Pure/Isar/isar_thy.ML	Thu Mar 11 21:53:36 1999 +0100
     1.2 +++ b/src/Pure/Isar/isar_thy.ML	Thu Mar 11 21:53:50 1999 +0100
     1.3 @@ -13,6 +13,7 @@
     1.4  signature ISAR_THY =
     1.5  sig
     1.6    val add_text: string -> theory -> theory
     1.7 +  val add_title: string -> string -> string -> theory -> theory
     1.8    val add_chapter: string -> theory -> theory
     1.9    val add_section: string -> theory -> theory
    1.10    val add_subsection: string -> theory -> theory
    1.11 @@ -74,6 +75,7 @@
    1.12  (* formal comments *)	(* FIXME dummy *)
    1.13  
    1.14  fun add_text (txt:string) (thy:theory) = thy;
    1.15 +fun add_title title author date thy = thy;
    1.16  val add_chapter = add_text;
    1.17  val add_section = add_text;
    1.18  val add_subsection = add_text;