src/HOL/Tools/Sledgehammer/sledgehammer_reconstruct.ML
changeset 50671 6632cb8df708
parent 50670 eaa540986291
child 50672 ab5b8b5c9cbe
equal deleted inserted replaced
50670:eaa540986291 50671:6632cb8df708
   712                            isar_proof
   712                            isar_proof
   713       in
   713       in
   714         case isar_text of
   714         case isar_text of
   715           "" =>
   715           "" =>
   716           if isar_proofs then
   716           if isar_proofs then
   717             "\nNo structured proof available (proof too short)."
   717             "\nNo structured proof available (proof too simple)."
   718           else
   718           else
   719             ""
   719             ""
   720         | _ =>
   720         | _ =>
   721           let
   721           let
   722             val msg =
   722             val msg =