src/HOL/Tools/Sledgehammer/sledgehammer_reconstruct.ML
changeset 50410 6ab3fadf43af
parent 50277 e0a4d8404c76
child 50450 358b6020f8b6
equal deleted inserted replaced
50409:5eaebd8e52f4 50410:6ab3fadf43af
   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 ()