src/HOL/Tools/Sledgehammer/sledgehammer_reconstruct.ML
changeset 51215 9ee38fc0bc81
parent 51212 2bbcc9cc12b4
child 51258 28b60ee75ef8
equal deleted inserted replaced
51214:4fb12e2598dc 51215:9ee38fc0bc81
   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