equal
deleted
inserted
replaced
726 in string_of_int num_steps ^ plural_s num_steps end] |
726 in string_of_int num_steps ^ plural_s num_steps end] |
727 else []) |
727 else []) |
728 in |
728 in |
729 "\n\nStructured proof " |
729 "\n\nStructured proof " |
730 ^ (commas msg |> not (null msg) ? enclose "(" ")") |
730 ^ (commas msg |> not (null msg) ? enclose "(" ")") |
731 ^ ":\n" ^ Markup.markup Markup.sendback isar_text |
731 ^ ":\n" ^ Sendback.markup isar_text |
732 end |
732 end |
733 end |
733 end |
734 val isar_proof = |
734 val isar_proof = |
735 if debug then |
735 if debug then |
736 isar_proof_of () |
736 isar_proof_of () |