equal
deleted
inserted
replaced
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 |
|