src/HOL/Tools/Sledgehammer/sledgehammer_compress.ML
changeset 54504 096f7d452164
parent 54503 b490e15a5e19
child 54700 64177ce0a7bd
equal deleted inserted replaced
54503:b490e15a5e19 54504:096f7d452164
    13 sig
    13 sig
    14   type isar_proof = Sledgehammer_Proof.isar_proof
    14   type isar_proof = Sledgehammer_Proof.isar_proof
    15   type preplay_interface = Sledgehammer_Preplay.preplay_interface
    15   type preplay_interface = Sledgehammer_Preplay.preplay_interface
    16 
    16 
    17   val compress_proof : real -> preplay_interface -> isar_proof -> isar_proof
    17   val compress_proof : real -> preplay_interface -> isar_proof -> isar_proof
    18 end
    18 end;
    19 
       
    20 
    19 
    21 structure Sledgehammer_Compress : SLEDGEHAMMER_COMPRESS =
    20 structure Sledgehammer_Compress : SLEDGEHAMMER_COMPRESS =
    22 struct
    21 struct
    23 
    22 
    24 open Sledgehammer_Util
    23 open Sledgehammer_Util
   368 
   367 
   369   in
   368   in
   370     do_proof proof
   369     do_proof proof
   371   end
   370   end
   372 
   371 
   373 
   372 end;
   374 end