src/HOL/Tools/Sledgehammer/sledgehammer_minimize_isar.ML
changeset 54504 096f7d452164
parent 53764 eba0d1c069b8
child 54700 64177ce0a7bd
equal deleted inserted replaced
54503:b490e15a5e19 54504:096f7d452164
     9 sig
     9 sig
    10   type preplay_interface = Sledgehammer_Preplay.preplay_interface
    10   type preplay_interface = Sledgehammer_Preplay.preplay_interface
    11   type isar_proof = Sledgehammer_Proof.isar_proof
    11   type isar_proof = Sledgehammer_Proof.isar_proof
    12   val minimize_dependencies_and_remove_unrefed_steps :
    12   val minimize_dependencies_and_remove_unrefed_steps :
    13     bool -> preplay_interface -> isar_proof -> isar_proof
    13     bool -> preplay_interface -> isar_proof -> isar_proof
    14 end
    14 end;
    15 
    15 
    16 structure Sledgehammer_Minimize_Isar : SLEDGEHAMMER_MINIMIZE_ISAR =
    16 structure Sledgehammer_Minimize_Isar : SLEDGEHAMMER_MINIMIZE_ISAR =
    17 struct
    17 struct
    18 
    18 
    19 open Sledgehammer_Util
    19 open Sledgehammer_Util
   103         end
   103         end
   104   in
   104   in
   105     snd (do_proof proof)
   105     snd (do_proof proof)
   106   end
   106   end
   107 
   107 
   108 end
   108 end;