equal
deleted
inserted
replaced
56 (P.comment >> (Toplevel.theory o IsarThy.add_subsubsection)); |
56 (P.comment >> (Toplevel.theory o IsarThy.add_subsubsection)); |
57 |
57 |
58 val textP = OuterSyntax.markup_command "text" "formal comment (theory)" K.thy_decl |
58 val textP = OuterSyntax.markup_command "text" "formal comment (theory)" K.thy_decl |
59 (P.comment >> (Toplevel.theory o IsarThy.add_text)); |
59 (P.comment >> (Toplevel.theory o IsarThy.add_text)); |
60 |
60 |
61 val verbatimP = OuterSyntax.markup_command "verbatim" "verbatim document preparation text" |
61 val verbatimP = OuterSyntax.verbatim_command "verbatim" "verbatim document preparation text" |
62 K.thy_decl (P.comment >> (Toplevel.theory o IsarThy.add_verbatim)); |
62 K.thy_decl (P.comment >> (Toplevel.theory o IsarThy.add_verbatim)); |
63 |
63 |
64 |
64 |
65 val sectP = OuterSyntax.markup_command "sect" "formal comment (proof)" K.prf_decl |
65 val sectP = OuterSyntax.markup_command "sect" "formal comment (proof)" K.prf_decl |
66 (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_sect))); |
66 (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_sect))); |
72 (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_subsubsect))); |
72 (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_subsubsect))); |
73 |
73 |
74 val txtP = OuterSyntax.markup_command "txt" "formal comment (proof)" K.prf_decl |
74 val txtP = OuterSyntax.markup_command "txt" "formal comment (proof)" K.prf_decl |
75 (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_txt))); |
75 (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_txt))); |
76 |
76 |
77 val verbP = OuterSyntax.markup_command "verb" "verbatim document preparation text (proof)" |
77 val verbP = OuterSyntax.verbatim_command "verb" "verbatim document preparation text (proof)" |
78 K.prf_decl (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_verb))); |
78 K.prf_decl (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_verb))); |
79 |
79 |
80 |
80 |
81 |
81 |
82 (** theory sections **) |
82 (** theory sections **) |