equal
deleted
inserted
replaced
837 in one_line_proof ^ isar_proof end |
837 in one_line_proof ^ isar_proof end |
838 |
838 |
839 fun isar_proof_would_be_a_good_idea preplay = |
839 fun isar_proof_would_be_a_good_idea preplay = |
840 case preplay of |
840 case preplay of |
841 Played (reconstr, _) => reconstr = SMT |
841 Played (reconstr, _) => reconstr = SMT |
842 | Trust_Playable _ => false |
842 | Trust_Playable _ => true |
843 | Failed_to_Play _ => true |
843 | Failed_to_Play _ => true |
844 |
844 |
845 fun proof_text ctxt isar_proofs isar_params num_chained |
845 fun proof_text ctxt isar_proofs isar_params num_chained |
846 (one_line_params as (preplay, _, _, _, _, _)) = |
846 (one_line_params as (preplay, _, _, _, _, _)) = |
847 (if isar_proofs = SOME true orelse |
847 (if isar_proofs = SOME true orelse |