src/HOL/Tools/Sledgehammer/sledgehammer_reconstruct.ML
changeset 51200 260cb10aac4b
parent 51198 4dd63cf5bba5
child 51201 f176855a1ee2
equal deleted inserted replaced
51199:e3447c380fe1 51200:260cb10aac4b
   373     (* Is there a repetition? If so, replace later line by earlier one. *)
   373     (* Is there a repetition? If so, replace later line by earlier one. *)
   374     else case take_prefix (not o is_same_inference (role, t)) lines of
   374     else case take_prefix (not o is_same_inference (role, t)) lines of
   375       (_, []) => line :: lines
   375       (_, []) => line :: lines
   376     | (pre, Inference_Step (name', _, _, _, _) :: post) =>
   376     | (pre, Inference_Step (name', _, _, _, _) :: post) =>
   377       line :: pre @ map (replace_dependencies_in_line (name', [name])) post
   377       line :: pre @ map (replace_dependencies_in_line (name', [name])) post
   378     | _ => raise Fail "unexpected inference"
       
   379 
   378 
   380 val waldmeister_conjecture_num = "1.0.0.0"
   379 val waldmeister_conjecture_num = "1.0.0.0"
   381 
   380 
   382 val repair_waldmeister_endgame =
   381 val repair_waldmeister_endgame =
   383   let
   382   let