changeset 50671 | 6632cb8df708 |
parent 50670 | eaa540986291 |
child 50672 | ab5b8b5c9cbe |
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 = |