--- a/src/Pure/Isar/object_logic.ML Wed Nov 28 00:44:37 2001 +0100
+++ b/src/Pure/Isar/object_logic.ML Wed Nov 28 00:46:26 2001 +0100
@@ -40,7 +40,6 @@
val empty = (None, ([], [Drule.norm_hhf_eq]));
val copy = I;
- val finish = I;
val prep_ext = I;
fun merge_judgment (Some x, Some y) =