src/Sequents/prover.ML
changeset 12123 739eba13e2cd
parent 7150 d203e2282789
child 12311 ce5f9e61c037
--- a/src/Sequents/prover.ML	Fri Nov 09 00:18:23 2001 +0100
+++ b/src/Sequents/prover.ML	Fri Nov 09 00:19:20 2001 +0100
@@ -174,6 +174,7 @@
   type T = pack ref;
   val empty = ref empty_pack
   fun copy (ref pack) = ref pack;
+  val finish = I;
   val prep_ext = copy;
   fun merge (ref pack1, ref pack2) = ref (merge_pack (pack1, pack2));
   fun print _ (ref pack) = print_pack pack;