src/Pure/Isar/isar_syn.ML
changeset 7789 57d20133224e
parent 7775 26898fbd19ca
child 7862 3e75fbd4a46b
equal deleted inserted replaced
7788:825b8b1ad136 7789:57d20133224e
    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 **)